function [ w, xyz ] = tetrahedron_unit_o15b ( )

%*****************************************************************************80
%
%% tetrahedron_unit_o15b() returns a 15 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 MIT 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.
%
%  Output:
%
%    real W(15), the weights.
%
%    real XYZ(3,15), the abscissas.
%
  w(1:15,1) = [ ...
    0.036160714285714285714, ...
    0.036160714285714285714, ...
    0.036160714285714285714, ...
    0.036160714285714285714, ...
    0.069871494516173816465, ...
    0.069871494516173816465, ...
    0.069871494516173816465, ...
    0.069871494516173816465, ...
    0.065694849368318756074, ...
    0.065694849368318756074, ...
    0.065694849368318756074, ...
    0.065694849368318756074, ...
    0.065694849368318756074, ...
    0.065694849368318756074, ...
    0.18170206858253505484 ];

  xyz(1:3,1:15) = [ ...
    0.00000000000000000000,  0.33333333333333333333,  0.33333333333333333333; ...
    0.33333333333333333333,  0.00000000000000000000,  0.33333333333333333333; ...
    0.33333333333333333333,  0.33333333333333333333,  0.00000000000000000000; ...
    0.33333333333333333333,  0.33333333333333333333,  0.33333333333333333333; ...
    0.72727272727272727273,  0.090909090909090909091,  0.090909090909090909091; ...
    0.090909090909090909091,  0.72727272727272727273,  0.090909090909090909091; ...
    0.090909090909090909091,  0.090909090909090909091,  0.72727272727272727273; ...
    0.090909090909090909091,  0.090909090909090909091,  0.090909090909090909091; ...
    0.43344984642633570176,  0.43344984642633570176,  0.066550153573664298240; ...
    0.43344984642633570176,  0.066550153573664298240,  0.43344984642633570176; ...
    0.43344984642633570176,  0.066550153573664298240,  0.066550153573664298240; ...
    0.066550153573664298240,  0.43344984642633570176,  0.43344984642633570176; ...
    0.066550153573664298240,  0.43344984642633570176,  0.066550153573664298240; ...
    0.066550153573664298240,  0.066550153573664298240,  0.43344984642633570176; ...
    0.25000000000000000000,  0.25000000000000000000,  0.250000000000000000 ]';

  return
end
