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

%*****************************************************************************80
%
%% RULE28 returns the rule of degree 28.
%
%  Discussion:
%
%    Order 28 (150 pts)
%    1/6 data for 28-th order quadrature with 30 nodes.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    26 June 2014
%
%  Author:
%
%    Original FORTRAN77 version by Hong Xiao, Zydrunas Gimbutas.
%    This MATLAB version by John Burkardt.
%
%  Parameters:
%
%    Output, real X(*), Y(*), the coordinates of the nodes.
%
%    Output, real W(*), the weights.
%
  x = [ ...
      0.00000000000000000000000000000000, ...
     -0.88746481351385107345127069412778, ...
     -0.52414142110826588794486451384092, ...
      0.00000000000000000000000000000000, ...
      0.00000000000000000000000000000000, ...
     -0.33813652586499035853666003249694, ...
      0.00000000000000000000000000000000, ...
     -0.15580617966892316052928987225377, ...
     -0.71154528411036221771832562317249, ...
     -0.56152923713272450305409461113685, ...
     -0.15254044569676028218764760621125, ...
      0.00000000000000000000000000000000, ...
     -0.32755930579423371309923889584162, ...
     -0.62891280297171951404385772231420, ...
     -0.42562113948455467103037050486861, ...
     -0.94140501712803148246323405238881, ...
     -0.40187196592587673308438468971732, ...
     -0.53523254211119856990013167468684, ...
      0.00000000000000000000000000000000, ...
      0.00000000000000000000000000000000, ...
     -0.34633469607556379390839833888773, ...
     -0.70700191257838956126529249352041, ...
     -0.22662440063670192933975301253849, ...
     -0.10878662096604677283105449627330, ...
     -0.20631360388374033702271668616836, ...
     -0.79729933059714082413378391932539, ...
      0.00000000000000000000000000000000, ...
      0.00000000000000000000000000000000, ...
      0.00000000000000000000000000000000, ...
     -0.85821826344224735007618585707670 ];
  y = [ ... ...
      0.10167280551560398976220492653467, ...
     -0.54006894012803566318386100608171, ...
     -0.49235910875172712775847678059386, ...
      0.11380585570620829080112594647327E+01, ...
     -0.43282761808513505745779087778619, ...
     -0.26963680688236239861351493942337, ...
     -0.18337097274071869661622880573497, ...
     -0.24858562418623951123781187881298, ...
     -0.56962812500573696889109864019987, ...
     -0.42548755921389883340768034668690, ...
     -0.46791873168797857582730644925957, ...
      0.26004754891078197570252274618257, ...
     -0.57016318648548524036109080252581, ...
     -0.53786850890931757394897545264776, ...
     -0.53803125336295947108113127503277, ...
     -0.56669876546503991682732553682320, ...
     -0.38330233101247314078613426299384, ...
     -0.56906848596694110780690954139249, ...
      0.78786657352369156249728778058495, ...
     -0.33331193876680684460752457704886, ...
     -0.46918587486573210609633873244633, ...
     -0.49038194407928164918552182401052, ...
     -0.53278806818989164900646131251018, ...
     -0.56757013000065183447611373867027, ...
     -0.37281400062453798641014279266735, ...
     -0.54575369430987430575525395306512, ...
     -0.52483841201603278034315141768996, ...
      0.60516346416700599387343286263650, ...
      0.94394739374781944379137982654772, ...
     -0.57527136550578091340619030932143 ];
  w = [ ... ...
      0.94510343300931478888807464349302E-02, ...
      0.27868387832627458914989081520856E-02, ...
      0.77591410167297521729327740749191E-02, ...
      0.20473848133013403509762806085984E-03, ...
      0.58247494675789234908196566576895E-02, ...
      0.16526278580754572911455183578579E-01, ...
      0.93510917286426097352060797088729E-02, ...
      0.17248616209516818765814273146624E-01, ...
      0.23411580330424100035578129796391E-02, ...
      0.10544291927832240582270995892779E-01, ...
      0.11140166083431255028726297685594E-01, ...
      0.86155130881102002892400222873137E-02, ...
      0.31279976876179532211383324626933E-02, ...
      0.56287726620134695271354834891188E-02, ...
      0.67531408157501848324491455305183E-02, ...
      0.12483494047479294769456871723105E-02, ...
      0.13484476650919357880017855769673E-01, ...
      0.30592737461003165508862947478784E-02, ...
      0.51392317566586590413074635030704E-02, ...
      0.89148192557630731697759322343474E-02, ...
      0.11746113414800820107755108695172E-01, ...
      0.77883730444682187225229982545828E-02, ...
      0.82393269507997219649806927417388E-02, ...
      0.41327061926490009393858952877356E-02, ...
      0.16828820578478445853343577421317E-01, ...
      0.42179069123934048296232732334268E-02, ...
      0.50551130485581726523795360821379E-02, ...
      0.78587185794036915888389747222587E-02, ...
      0.33745795976141645086914914308322E-02, ...
      0.95433079635401447385836219413628E-03 ];

  return
end
