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

%*****************************************************************************80
%
%% rule23() returns the rule of degree 23.
%
%  Discussion:
%
%    Order 23 (103 pts)
%    1/6 data for 23-th order quadrature with 23 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.65712214849613188354910369404174, ...
      -0.76660745759442637356707284950207, ...
       0.00000000000000000000000000000000, ...
      -0.77617921446782377203133884585557, ...
      -0.37522786404062973902300110350405, ...
      -0.58004024629858734710994966045544, ...
      -0.89831420119030494322671376626199, ...
      -0.21445385867353683733519417564443, ...
       0.00000000000000000000000000000000, ...
      -0.41730612660269037167833945853218, ...
       0.00000000000000000000000000000000, ...
       0.00000000000000000000000000000000, ...
       0.00000000000000000000000000000000, ...
      -0.59578381850403663485092059957580, ...
      -0.21256122928680759054743806564239, ...
       0.00000000000000000000000000000000, ...
       0.00000000000000000000000000000000, ...
      -0.18972387666403954451075595735093, ...
       0.00000000000000000000000000000000, ...
       0.00000000000000000000000000000000, ...
      -0.40941795217926264839064707861320, ...
       0.00000000000000000000000000000000, ...
       0.00000000000000000000000000000000 ];
  y = [ ... ...
      -0.53600577707072872244385605785502, ...
      -0.56836123421761655516206642728715, ...
       0.10195753956759042232454257963319E+01, ...
      -0.52064114314269073816779046417287, ...
      -0.57311090188249385547279923552875, ...
      -0.56223762431711984631227409503690, ...
      -0.56494438615384257743957669387858, ...
      -0.45865810284942809229483887487305, ...
      -0.50920750140222330666237718651679, ...
      -0.40115163422567045202527649710931, ...
       0.85387432302293394609857524739803, ...
      -0.21127615568211163281540431623842, ...
       0.23237891808812345451062467122205, ...
      -0.47628237617657111987911856906806, ...
      -0.30917657348348663047591112852387, ...
       0.67967040631012229365709649358046, ...
      -0.57374563316209184490726633368261, ...
      -0.55178698374998971587781023092642, ...
      -0.38575926863496184163982523488357, ...
       0.46621101303269434423430967614670, ...
      -0.52020349027005747473328130414494, ...
       0.11234666733002454051771461134785E+01, ...
       0.00000000000000000000000000000000 ];
  w = [ ... ...
       0.33272536459172081243423482336248E-02, ...
       0.29282906445970122313947765632691E-02, ...
       0.25767019981925537648569711133608E-02, ...
       0.70120823907155191278558743427503E-02, ...
       0.30021012691706992785886911937141E-02, ...
       0.54153159980733361962405203321805E-02, ...
       0.25697547045533841474189815315258E-02, ...
       0.19716254021883959296530794843124E-01, ...
       0.75002329339313453980338046569360E-02, ...
       0.21216747175005973181144357747315E-01, ...
       0.58959569777444837996575869478525E-02, ...
       0.15578768482573967095704720947014E-01, ...
       0.15666454825087261920671374524318E-01, ...
       0.13779632479555575444967581228253E-01, ...
       0.27432767705683395855549801326363E-01, ...
       0.95806564943421797133558151503143E-02, ...
       0.15842534442935738142299813918141E-02, ...
       0.93412022737984016156870664924120E-02, ...
       0.12471084885337250207089191625388E-01, ...
       0.13118150579496436724006564496384E-01, ...
       0.13391809372550109677210592618043E-01, ...
       0.70104711646684561385279668637298E-03, ...
       0.55391494064449379081462896405052E-02 ];

  return
end
