function [ a, b, c, w ] = rule14 ( )

%*****************************************************************************80
%
%% rule14() returns the rule of precision 14.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 June 2023
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Hong Xiao, Zydrunas Gimbutas,
%    A numerical algorithm for the construction of efficient
%    quadrature rules in two and higher dimensions, 
%    Computers and Mathematics with Applications,
%    Volume 59, 2010, pages 663-676.
%
%  Output:
%
%    real a(n), b(n), c(n): the barycentric coordinates of quadrature points.
%
%    real w(n): the quadrature weights.
%
  a = [ ...
          0.4176447193404539, ...
          0.4176447193404539, ...
          0.1647105613190921, ...
          0.2983728821362577, ...
          0.6869801678080878, ...
          0.0146469500556545, ...
          0.6869801678080878, ...
          0.2983728821362577, ...
          0.0146469500556543, ...
          0.0617998830908725, ...
          0.8764002338182547, ...
          0.0617998830908729, ...
          0.3368614597963450, ...
          0.5702222908466831, ...
          0.0929162493569718, ...
          0.5702222908466831, ...
          0.3368614597963450, ...
          0.0929162493569718, ...
          0.2734775283088386, ...
          0.4530449433823227, ...
          0.2734775283088388, ...
          0.1772055324125434, ...
          0.6455889351749130, ...
          0.1772055324125437, ...
          0.0193909612487009, ...
          0.9612180775025979, ...
          0.0193909612487014, ...
          0.4889639103621786, ...
          0.4889639103621787, ...
          0.0220721792756427, ...
          0.1722666878213555, ...
          0.7706085547749963, ...
          0.0571247574036480, ...
          0.7706085547749965, ...
          0.1722666878213556, ...
          0.0571247574036478, ...
          0.1189744976969568, ...
          0.8797571713701711, ...
          0.0012683309328722, ...
          0.8797571713701712, ...
          0.1189744976969569, ...
          0.0012683309328719 ];

  b = [ ...
          0.1647105613190922, ...
          0.4176447193404541, ...
          0.4176447193404541, ...
          0.0146469500556545, ...
          0.2983728821362578, ...
          0.6869801678080880, ...
          0.0146469500556545, ...
          0.6869801678080880, ...
          0.2983728821362580, ...
          0.0617998830908728, ...
          0.0617998830908724, ...
          0.8764002338182548, ...
          0.0929162493569719, ...
          0.3368614597963451, ...
          0.5702222908466833, ...
          0.0929162493569719, ...
          0.5702222908466833, ...
          0.3368614597963452, ...
          0.2734775283088388, ...
          0.2734775283088387, ...
          0.4530449433823228, ...
          0.1772055324125436, ...
          0.1772055324125434, ...
          0.6455889351749131, ...
          0.0193909612487012, ...
          0.0193909612487009, ...
          0.9612180775025979, ...
          0.0220721792756428, ...
          0.4889639103621786, ...
          0.4889639103621788, ...
          0.0571247574036480, ...
          0.1722666878213556, ...
          0.7706085547749967, ...
          0.0571247574036480, ...
          0.7706085547749966, ...
          0.1722666878213558, ...
          0.0012683309328721, ...
          0.1189744976969568, ...
          0.8797571713701712, ...
          0.0012683309328721, ...
          0.8797571713701712, ...
          0.1189744976969572 ];

  c = [ ...
          0.4176447193404539, ...
          0.1647105613190921, ...
          0.4176447193404539, ...
          0.6869801678080878, ...
          0.0146469500556544, ...
          0.2983728821362575, ...
          0.2983728821362577, ...
          0.0146469500556543, ...
          0.6869801678080877, ...
          0.8764002338182547, ...
          0.0617998830908728, ...
          0.0617998830908723, ...
          0.5702222908466831, ...
          0.0929162493569718, ...
          0.3368614597963449, ...
          0.3368614597963450, ...
          0.0929162493569716, ...
          0.5702222908466831, ...
          0.4530449433823226, ...
          0.2734775283088386, ...
          0.2734775283088385, ...
          0.6455889351749130, ...
          0.1772055324125436, ...
          0.1772055324125432, ...
          0.9612180775025979, ...
          0.0193909612487012, ...
          0.0193909612487008, ...
          0.4889639103621786, ...
          0.0220721792756427, ...
          0.4889639103621784, ...
          0.7706085547749965, ...
          0.0571247574036481, ...
          0.1722666878213553, ...
          0.1722666878213555, ...
          0.0571247574036479, ...
          0.7706085547749963, ...
          0.8797571713701712, ...
          0.0012683309328721, ...
          0.1189744976969566, ...
          0.1189744976969567, ...
          0.0012683309328719, ...
          0.8797571713701708 ];

  w = [ ...
          0.0327883535441254, ...
          0.0327883535441254, ...
          0.0327883535441254, ...
          0.0144363081135338, ...
          0.0144363081135338, ...
          0.0144363081135338, ...
          0.0144363081135338, ...
          0.0144363081135338, ...
          0.0144363081135338, ...
          0.0144336996697767, ...
          0.0144336996697767, ...
          0.0144336996697767, ...
          0.0385715107870607, ...
          0.0385715107870607, ...
          0.0385715107870607, ...
          0.0385715107870607, ...
          0.0385715107870607, ...
          0.0385715107870607, ...
          0.0517741045072916, ...
          0.0517741045072916, ...
          0.0517741045072916, ...
          0.0421625887369930, ...
          0.0421625887369930, ...
          0.0421625887369930, ...
          0.0049234036024001, ...
          0.0049234036024001, ...
          0.0049234036024001, ...
          0.0218835813694289, ...
          0.0218835813694289, ...
          0.0218835813694289, ...
          0.0246657532125637, ...
          0.0246657532125637, ...
          0.0246657532125637, ...
          0.0246657532125637, ...
          0.0246657532125637, ...
          0.0246657532125637, ...
          0.0050102288385007, ...
          0.0050102288385007, ...
          0.0050102288385007, ...
          0.0050102288385007, ...
          0.0050102288385007, ...
          0.0050102288385007 ];

  return
end
