function [ x, y, w ] = rule10 ( )

%*****************************************************************************80
%
%% rule10() returns the rule of degree 10.
%
%  Discussion:
%
%    Order 10 (25 pts)
%    1/6 data for   10-th order quadrature with   7 nodes
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 June 2014
%
%  Author:
%
%    Original FORTRAN77 version by Hong Xiao, Zydrunas Gimbutas.
%    This version by John Burkardt.
%
%  Output:
%
%    real X(*), Y(*), the coordinates of the nodes.
%
%    real W(*), the weights.
%
  x = [ ...
       0.00000000000000000000000000000000, ...
       0.00000000000000000000000000000000, ...
      -0.69780686931593427582366555189730, ...
       0.00000000000000000000000000000000, ...
      -0.30903100009613455447142535490429, ...
       0.00000000000000000000000000000000, ...
       0.00000000000000000000000000000000 ];
  y = [ ... ...
      -0.56063064349133316993278274030104, ...
       0.10883996591237330573849553975247E+01, ...
      -0.51720719429149531106975531479846, ...
       0.00000000000000000000000000000000, ...
      -0.51225507594767383123122215407598, ...
       0.51562570796758001502147445483555, ...
      -0.32874839651011214404597359718045 ];
  w = [ ... ...
       0.64438869372269120316756176676570E-02, ...
       0.42018026730627469477523487256964E-02, ...
       0.38116505989607355372802824839739E-01, ...
       0.18340560543312397707554978722912E-01, ...
       0.50983455788600478135692116331631E-01, ...
       0.51743930451848519084272818465418E-01, ...
       0.49515526441757000856785778879781E-01 ];

  return
end
