function [ a, b, c, d, w ] = rule07 ( )

%*****************************************************************************80
%
%% rule07() returns the rule of precision 7.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    02 April 2023
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Jan Jaskowiec, Natarajan Sukumar,
%    High order symmetric cubature rules for tetrahedra and pyramids,
%    International Journal of Numerical Methods in Engineering,
%    Volume 122, Number 1, pages 148-171, 24 August 2020.
%
%  Output:
%
%    a(n), b(n), c(n), d(n): the barycentric coordinates of quadrature points.
%
%    w(n): the quadrature weights.
%
  a = [ ...
      0.25000000000000000000, ...
      0.31570114977820279423, ...
      0.05289655066539160344, ...
      0.31570114977820279423, ...
      0.31570114977820279423, ...
      0.05048982259839637082, ...
      0.44951017740160364999, ...
      0.05048982259839637082, ...
      0.44951017740160364999, ...
      0.05048982259839637082, ...
      0.44951017740160364999, ...
      0.81083024109854850980, ...
      0.02126547254148324767, ...
      0.02126547254148324767, ...
      0.14663881381848495322, ...
      0.14663881381848495322, ...
      0.14663881381848495322, ...
      0.02126547254148324767, ...
      0.81083024109854850980, ...
      0.02126547254148324767, ...
      0.02126547254148324767, ...
      0.81083024109854850980, ...
      0.02126547254148324767, ...
      0.57517163758700007303, ...
      0.18883383102600104220, ...
      0.18883383102600104220, ...
      0.04716070036099788421, ...
      0.04716070036099788421, ...
      0.04716070036099788421, ...
      0.18883383102600104220, ...
      0.57517163758700007303, ...
      0.18883383102600104220, ...
      0.18883383102600104220, ...
      0.57517163758700007303, ...
      0.18883383102600104220 ];

  b = [ ...
      0.25000000000000000000, ...
      0.31570114977820279423, ...
      0.31570114977820279423, ...
      0.05289655066539160344, ...
      0.31570114977820279423, ...
      0.44951017740160364999, ...
      0.05048982259839637082, ...
      0.05048982259839637082, ...
      0.44951017740160364999, ...
      0.44951017740160364999, ...
      0.05048982259839637082, ...
      0.02126547254148324767, ...
      0.81083024109854850980, ...
      0.02126547254148324767, ...
      0.02126547254148324767, ...
      0.81083024109854850980, ...
      0.02126547254148324767, ...
      0.14663881381848495322, ...
      0.14663881381848495322, ...
      0.14663881381848495322, ...
      0.02126547254148324767, ...
      0.02126547254148324767, ...
      0.81083024109854850980, ...
      0.18883383102600104220, ...
      0.57517163758700007303, ...
      0.18883383102600104220, ...
      0.18883383102600104220, ...
      0.57517163758700007303, ...
      0.18883383102600104220, ...
      0.04716070036099788421, ...
      0.04716070036099788421, ...
      0.04716070036099788421, ...
      0.18883383102600104220, ...
      0.18883383102600104220, ...
      0.57517163758700007303 ];

  c = [ ...
      0.25000000000000000000, ...
      0.31570114977820279423, ...
      0.31570114977820279423, ...
      0.31570114977820279423, ...
      0.05289655066539160344, ...
      0.44951017740160364999, ...
      0.44951017740160364999, ...
      0.44951017740160364999, ...
      0.05048982259839637082, ...
      0.05048982259839637082, ...
      0.05048982259839637082, ...
      0.02126547254148324767, ...
      0.02126547254148324767, ...
      0.81083024109854850980, ...
      0.02126547254148324767, ...
      0.02126547254148324767, ...
      0.81083024109854850980, ...
      0.02126547254148324767, ...
      0.02126547254148324767, ...
      0.81083024109854850980, ...
      0.14663881381848495322, ...
      0.14663881381848495322, ...
      0.14663881381848495322, ...
      0.18883383102600104220, ...
      0.18883383102600104220, ...
      0.57517163758700007303, ...
      0.18883383102600104220, ...
      0.18883383102600104220, ...
      0.57517163758700007303, ...
      0.18883383102600104220, ...
      0.18883383102600104220, ...
      0.57517163758700007303, ...
      0.04716070036099788421, ...
      0.04716070036099788421, ...
      0.04716070036099788421 ];

  d = [ ...
      0.25000000000000000000, ...
      0.05289655066539160344, ...
      0.31570114977820279423, ...
      0.31570114977820279423, ...
      0.31570114977820279423, ...
      0.05048982259839637082, ...
      0.05048982259839637082, ...
      0.44951017740160364999, ...
      0.05048982259839637082, ...
      0.44951017740160364999, ...
      0.44951017740160364999, ...
      0.14663881381848495322, ...
      0.14663881381848495322, ...
      0.14663881381848495322, ...
      0.81083024109854850980, ...
      0.02126547254148324767, ...
      0.02126547254148324767, ...
      0.81083024109854850980, ...
      0.02126547254148324767, ...
      0.02126547254148324767, ...
      0.81083024109854850980, ...
      0.02126547254148324767, ...
      0.02126547254148324767, ...
      0.04716070036099788421, ...
      0.04716070036099788421, ...
      0.04716070036099788421, ...
      0.57517163758700007303, ...
      0.18883383102600104220, ...
      0.18883383102600104220, ...
      0.57517163758700007303, ...
      0.18883383102600104220, ...
      0.18883383102600104220, ...
      0.57517163758700007303, ...
      0.18883383102600104220, ...
      0.18883383102600104220 ];

  w = [ ...
      0.09548528946413084584, ...
      0.04232958120996702794, ...
      0.04232958120996702794, ...
      0.04232958120996702794, ...
      0.04232958120996702794, ...
      0.03189692783285758004, ...
      0.03189692783285758004, ...
      0.03189692783285758004, ...
      0.03189692783285758004, ...
      0.03189692783285758004, ...
      0.03189692783285758004, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.00811077082990334201, ...
      0.03720713072833461976, ...
      0.03720713072833461976, ...
      0.03720713072833461976, ...
      0.03720713072833461976, ...
      0.03720713072833461976, ...
      0.03720713072833461976, ...
      0.03720713072833461976, ...
      0.03720713072833461976, ...
      0.03720713072833461976, ...
      0.03720713072833461976, ...
      0.03720713072833461976, ...
      0.03720713072833461976 ];

  return
end
