subroutine smr00 ( xyw )

!*****************************************************************************80
!
!! SMR00 returns the SMR rule of degree 0.
!
!  Discussion:
!
!    DEGREE: 0
!    SYMM.: (X,Y), (-X,-Y)
!    POINTS CARDINALITY: 1
!    NORM INF MOMS. RESIDUAL: 0.00000D+00,
!    SUM NEGATIVE WEIGHTS: 0.00000D+00,
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*1), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*1)

  xyw = (/ &
     0.000000000000000D+00, 0.000000000000000D+00, 4.000000000000000D+00 /)

  return
end
subroutine smr01 ( xyw )

!*****************************************************************************80
!
!! SMR01 returns the SMR rule of degree 1.
!
!  Discussion:
!
!    DEGREE: 1
!    SYMM.: (X,Y), (-X,-Y)
!    POINTS CARDINALITY: 1
!    NORM INF MOMS. RESIDUAL: 0.00000D+00,
!    SUM NEGATIVE WEIGHTS: 0.00000D+00,
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    20 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*1), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*1)

  xyw = (/ &
     0.000000000000000D+00, 0.000000000000000D+00, 4.000000000000000D+00 /)

  return
end
subroutine smr02 ( xyw )

!*****************************************************************************80
!
!! SMR02 returns the SMR rule of degree 2.
!
!  Discussion:
!
!    DEGREE: 2
!    POINTS CARDINALITY: 3
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00,
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*3), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*3)

  xyw = (/ &
     6.519542382482019D-01,  3.623444315022428D-01, 1.498681096511322D+00, &
    -8.070876861583226D-01,  5.322309038833022D-01, 1.051530016968792D+00, &
    -8.856086946552445D-02, -7.605904084126465D-01, 1.449788886519887D+00 /)
 
  return
end
subroutine smr03 ( xyw )

!*****************************************************************************80
!
!! SMR03 returns the SMR rule of degree 3.
!
!  Discussion:
!
!    DEGREE: 3
!    SYMMETRY: (X,Y), (-Y,X), (-X,-Y), (Y,-X)
!    POINTS CARDINALITY: 4
!    NORM INF MOMS. RESIDUAL: 2.22045e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00,
! 
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*4), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*4)

  xyw = (/ &
    -5.773502691896257D-01, -5.773502691896257D-01, 1.000000000000000D+00, &
    -5.773502691896257D-01,  5.773502691896257D-01, 1.000000000000000D+00, &
     5.773502691896257D-01,  5.773502691896257D-01, 1.000000000000000D+00, &
     5.773502691896257D-01, -5.773502691896257D-01, 1.000000000000000D+00 /)

  return
end
subroutine smr04 ( xyw )

!*****************************************************************************80
!
!! SMR04 returns the SMR rule of degree 4.
!
!  Discussion:
!
!    DEGREE: 4
!    POINTS CARDINALITY: 6
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00,
! 
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*6), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*6)

  xyw = (/ &
     9.298664473826397D-01,  6.361197473108544D-02,  4.979283660841867D-01, &
    -7.329012618874027D-01,  5.903145258425608D-01,  6.883081069413867D-01, &
     3.895446419719248D-01,  8.325323327063485D-01,  6.340849824642651D-01, &
     5.169294362169509D-01, -8.804002381721473D-01,  4.856847322376568D-01, &
    -5.223159975544114D-02, -1.540167862605936D-01,  1.180646405191258D+00, &
    -7.693563599017555D-01, -6.943687766134327D-01,  5.133474070812475D-01 /)

  return
end
subroutine smr05 ( xyw )

!*****************************************************************************80
!
!! SMR05 returns the SMR rule of degree 5.
!
!  Discussion:
!
!    DEGREE: 5
!    SYMMETRY: (X,Y), (-X,-Y)
!    POINTS CARDINALITY: 7
!    NORM INF MOMS. RESIDUAL: 1.66533e-16
!    SUM NEGATIVE WEIGHTS: 0
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*7), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*7)

  xyw = (/ &
   -9.660917830792960D-01,  0.000000000000000D+00, 3.174603174603175D-01, &
   -5.773502691896258D-01, -7.745966692414834D-01, 5.555555555555556D-01, &
   -5.773502691896258D-01,  7.745966692414834D-01, 5.555555555555556D-01, &
    0.000000000000000D+00,  0.000000000000000D+00, 1.142857142857143D+00, &
    5.773502691896258D-01,  7.745966692414834D-01, 5.555555555555556D-01, &
    5.773502691896258D-01, -7.745966692414834D-01, 5.555555555555556D-01, &
    9.660917830792960D-01,  0.000000000000000D+00, 3.174603174603175D-01 /)

  return
end
subroutine smr06 ( xyw )

!*****************************************************************************80
!
!! SMR06 returns the SMR rule of degree 6.
!
!  Discussion:
!
!    DEGREE: 6
!    POINTS CARDINALITY: 10
!    NORM INF MOMS. RESIDUAL: 9.02056e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*10), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*10)

  xyw = (/ &
    9.785155476851563D-01,  2.032663758845348D-01, 2.115144101443901D-01, &
    8.002071174796732D-01, -8.068212789789568D-01, 2.633128596562718D-01, &
    6.478447271179293D-01,  8.174437151345265D-01, 3.765392584231271D-01, &
    4.527740405918522D-01, -2.317108088207500D-01, 7.128261121734308D-01, &
   -4.775668731692919D-01,  9.766597077168154D-01, 1.915080888326935D-01, &
   -7.569420164799104D-02,  4.409055401533251D-01, 7.647398979197457D-01, &
   -1.241563248035317D-01, -8.409222499092199D-01, 4.422079284502612D-01, &
   -9.014158913156406D-01,  5.483121720080090D-01, 2.801510395399764D-01, &
   -6.560277628978444D-01, -2.866497529648795D-01, 6.536308666716537D-01, &
   -9.537871517453275D-01, -8.861523430050633D-01, 1.035695381884487D-01 /)

  return
end
subroutine smr07 ( xyw )

!*****************************************************************************80
!
!! SMR07 returns the SMR rule of degree 7.
!
!  Discussion:
!
!    DEGREE: 7
!    ROTATIONALLY INVARIANT: (X,Y),(-Y,X),(-X,-Y),(Y,-X).
!    POINTS CARDINALITY: 12
!    NORM INF MOMS. RESIDUAL: 2.77556e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*12), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*12)

  xyw = (/ &
    3.938313610187890D-01, -3.669979343404274D-01, 5.209286223023044D-01, &
    8.019684762065925D-01,  8.099259297580919D-01, 2.374024056137991D-01, &
   -1.832732766424723D-02,  9.259609259310837D-01, 2.416689720838965D-01, &
    3.669979343404274D-01,  3.938313610187890D-01, 5.209286223023044D-01, &
   -8.099259297580919D-01,  8.019684762065925D-01, 2.374024056137991D-01, &
   -9.259609259310837D-01, -1.832732766424723D-02, 2.416689720838965D-01, &
   -3.938313610187890D-01,  3.669979343404274D-01, 5.209286223023044D-01, &
   -8.019684762065925D-01, -8.099259297580919D-01, 2.374024056137991D-01, &
    1.832732766424723D-02, -9.259609259310837D-01, 2.416689720838965D-01, &
   -3.669979343404274D-01, -3.938313610187890D-01, 5.209286223023044D-01, &
    8.099259297580919D-01, -8.019684762065925D-01, 2.374024056137991D-01, &
    9.259609259310837D-01,  1.832732766424723D-02, 2.416689720838965D-01 /)

  return
end
subroutine smr08 ( xyw )

!*****************************************************************************80
!
!! SMR08 returns the SMR rule of degree 8.
!
!  Discussion:
!
!    R.COOLS SAYS THERE IS A RULE WITH 15 PTS.
!
!    DEGREE: 8
!    POINTS CARDINALITY: 16
!    NORM INF MOMS. RESIDUAL: 5.27356e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*16), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*16)

  xyw = (/ &
    9.200233979246099D-01, -1.061811254185043D-01, 2.066851970823297D-01, &
    8.930854460206108D-01,  7.538456868810103D-01, 1.637084884729354D-01, &
    6.675369061590991D-01, -6.602769863240182D-01, 3.448725288612837D-01, &
    9.736841855611369D-01, -9.418906397956112D-01, 4.154990098574050D-02, &
    4.634059670545806D-01,  9.713146222867728D-01, 1.207701070516287D-01, &
    5.257251055722159D-01,  3.284384783969826D-01, 4.761612149298055D-01, &
   -3.171906088585705D-01,  8.431651719683217D-01, 8.714564872094989D-02, &
   -6.189113622341841D-02,  6.853227004655966D-01, 3.755078795520529D-01, &
    6.720825424065331D-02, -2.654137657769545D-01, 5.939493422195995D-01, &
    1.957478656950412D-01, -9.531380985058940D-01, 1.576823081145121D-01, &
   -7.280591295595631D-01,  9.245623167165428D-01, 1.261748042046440D-01, &
   -5.538775451118830D-01,  1.849451143123379D-01, 4.968422862065046D-01, &
   -4.448446986979669D-01, -7.417922043114903D-01, 3.611024723493892D-01, &
   -9.421081322947572D-01,  5.652760298758271D-01, 1.413572491732567D-01, &
   -8.900106969566213D-01, -3.626326971963237D-01, 2.363188753269229D-01, &
   -8.841558907294489D-01, -9.418511077281306D-01, 7.017169674844463D-02 /)

  return
end
subroutine smr09 ( xyw )

!*****************************************************************************80
!
!! SMR09 returns the SMR rule of degree 9.
!
!  Discussion:
!
!    DEGREE: 9
!    ROTATIONALLY INVARIANT: (X,Y),(-Y,X),(-X,-Y),(Y,-X).-
!    POINTS CARDINALITY: 17
!    NORM INF MOMS. RESIDUAL: 2.77556e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*17), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*17)

  xyw = (/ &
    -6.306801197316687D-01,  9.688499663619777D-01,  8.887937817019871D-02, &
     4.533398211356471D-01, -5.237358202144294D-01,  3.982824392620701D-01, &
     8.526157293336624D-01, -7.620832819261733D-02,  2.690513376397807D-01, &
    -7.502770999789007D-01, -9.279616459595696D-01,  1.120996021295965D-01, &
    -9.688499663619777D-01, -6.306801197316687D-01,  8.887937817019871D-02, &
     5.237358202144294D-01,  4.533398211356471D-01,  3.982824392620701D-01, &
     7.620832819261733D-02,  8.526157293336624D-01,  2.690513376397807D-01, &
     9.279616459595696D-01, -7.502770999789007D-01,  1.120996021295965D-01, &
     6.306801197316687D-01, -9.688499663619777D-01,  8.887937817019871D-02, &
    -4.533398211356471D-01,  5.237358202144294D-01,  3.982824392620701D-01, &
    -8.526157293336624D-01,  7.620832819261733D-02,  2.690513376397807D-01, &
     7.502770999789007D-01,  9.279616459595696D-01,  1.120996021295965D-01, &
     9.688499663619777D-01,  6.306801197316687D-01,  8.887937817019871D-02, &
    -5.237358202144294D-01, -4.533398211356471D-01,  3.982824392620701D-01, &
    -7.620832819261733D-02, -8.526157293336624D-01,  2.690513376397807D-01, &
    -9.279616459595696D-01,  7.502770999789007D-01,  1.120996021295965D-01, &
     0.000000000000000D+00,  0.000000000000000D+00,  5.267489711934157D-01 /)

  return
end
subroutine smr10 ( xyw )

!*****************************************************************************80
!
!! SMR10 returns the SMR rule of degree 10.
!
!  Discussion:
!
!    DEGREE: 10
!    POINTS CARDINALITY: 22
!    NORM INF MOMS. RESIDUAL: 3.88578e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*22), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*22)

  xyw = (/ &
    9.406185571992117D-01, -3.188453596839293D-01,  1.198415853239125D-01, &
    9.817119264047970D-01,  6.258661935323968D-01,  6.326927276111106D-02, &
    8.117151060164873D-01,  9.246684242905354D-01,  8.868620221697536D-02, &
    7.788254159831852D-01,  2.105273891482154D-01,  2.658711347712608D-01, &
    6.476354842626755D-01, -6.474946981752544D-01,  2.305700455337005D-01, &
    9.225481682574119D-01, -8.792348043990323D-01,  6.253794118755233D-02, &
    1.142951736422380D-01,  9.492191314088700D-01,  1.186176720746597D-01, &
    4.711392149070169D-01,  6.666473305982111D-01,  2.839584221827897D-01, &
    3.507267260891899D-01, -1.844717206212197D-01,  3.881144740244089D-01, &
    6.240243795898468D-01, -9.853833119314599D-01,  3.338712924707296D-02, &
   -3.924748753960961D-01,  7.631114939243835D-01,  2.582793941034283D-01, &
   -3.211002312038658D-02,  3.187935759364070D-01,  4.082419772615457D-01, &
   -1.073322786510871D-01, -6.188661913929927D-01,  3.149887822123112D-01, &
    2.065013461988724D-01, -9.119588710357345D-01,  1.346097738619806D-01, &
   -7.529656324799602D-01,  9.707183739677747D-01,  5.911019515035110D-02, &
   -7.605065507139738D-01,  3.663139167806791D-01,  2.604239768191683D-01, &
   -4.732489884927658D-01, -1.655785251003833D-01,  3.717176493089616D-01, &
   -5.089131904296067D-01, -9.215290755789827D-01,  1.333773119224012D-01, &
   -9.538019223425510D-01,  7.551269206143554D-01,  7.180589876051692D-02, &
   -9.663420836873585D-01, -1.043123255663638D-01,  9.794042948413186D-02, &
   -8.103749226019182D-01, -6.115967830349249D-01,  2.001832062027751D-01, &
   -9.577495916000752D-01, -9.262105001258389D-01,  3.446752558898364D-02 /)

  return
end
subroutine smr11 ( xyw )

!*****************************************************************************80
!
!! SMR11 returns the SMR rule of degree 11.
!
!  Discussion:
!
!    DEGREE: 11
!    ROTATIONALLY INVARIANT: (X,Y),(-Y,X),(-X,-Y),(Y,-X).
!    POINTS CARDINALITY: 24
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*24), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*24)

  xyw = (/ &
   -4.165807191202228D-02,  4.248472488486693D-01,  3.511587183982455D-01, &
    3.156234329152542D-01,  8.125205483048132D-01,  2.117363499989486D-01, &
    7.120019130753363D-01,  5.253202503645478D-01,  2.256260617288634D-01, &
    6.980761045495677D-01,  9.826392235408555D-01,  4.802076335072379D-02, &
    9.535395282015321D-01,  1.885861387186419D-01,  9.738677735866817D-02, &
    9.394863828167369D-01,  8.257758359029640D-01,  6.607132916455061D-02, &
   -4.248472488486693D-01, -4.165807191202228D-02,  3.511587183982455D-01, &
   -8.125205483048132D-01,  3.156234329152542D-01,  2.117363499989486D-01, &
   -5.253202503645478D-01,  7.120019130753363D-01,  2.256260617288634D-01, &
   -9.826392235408555D-01,  6.980761045495677D-01,  4.802076335072379D-02, &
   -1.885861387186419D-01,  9.535395282015321D-01,  9.738677735866817D-02, &
   -8.257758359029640D-01,  9.394863828167369D-01,  6.607132916455061D-02, &
    4.165807191202228D-02, -4.248472488486693D-01,  3.511587183982455D-01, &
   -3.156234329152542D-01, -8.125205483048132D-01,  2.117363499989486D-01, &
   -7.120019130753363D-01, -5.253202503645478D-01,  2.256260617288634D-01, &
   -6.980761045495677D-01, -9.826392235408555D-01,  4.802076335072379D-02, &
   -9.535395282015321D-01, -1.885861387186419D-01,  9.738677735866817D-02, &
   -9.394863828167369D-01, -8.257758359029640D-01,  6.607132916455061D-02, &
    4.248472488486693D-01,  4.165807191202228D-02,  3.511587183982455D-01, &
    8.125205483048132D-01, -3.156234329152542D-01,  2.117363499989486D-01, &
    5.253202503645478D-01, -7.120019130753363D-01,  2.256260617288634D-01, &
    9.826392235408555D-01, -6.980761045495677D-01,  4.802076335072379D-02, &
    1.885861387186419D-01, -9.535395282015321D-01,  9.738677735866817D-02, &
    8.257758359029640D-01, -9.394863828167369D-01,  6.607132916455061D-02 /)

  return
end
subroutine smr12 ( xyw )

!*****************************************************************************80
!
!! SMR12 returns the SMR rule of degree 12.
!
!  Discussion:
!
!    DEGREE: 12
!    POINTS CARDINALITY: 31
!    NORM INF MOMS. RESIDUAL: 5.55112e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*31), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*31)

  xyw = (/ &
    7.887961133518859D-01,  9.788423074444343D-01,  3.643740653079505D-02, &
    9.636803326457559D-01, -8.325162377112404D-01,  4.156946367307449D-02, &
    5.727054392308150D-01,  7.717261293782711D-01,  1.680361793533787D-01, &
    9.634302613611325D-01,  8.254780463742046D-01,  4.273104217362153D-02, &
    9.850208941660858D-01,  2.929038490713011D-03,  5.527116827932585D-02, &
    8.590486289231106D-01, -4.568247023502062D-01,  1.528634492877730D-01, &
    7.730732984501992D-01, -9.683129045193353D-01,  4.413124147353821D-02, &
   -1.779670698164110D-01,  7.009187390097460D-01,  2.328494912954924D-01, &
    8.543638116305748D-01,  4.518538584893645D-01,  1.556045127005831D-01, &
    6.291273683568680D-01, -7.545283511153206D-03,  2.625512570459704D-01, &
    5.528579662023739D-01, -7.445078276040368D-01,  1.822720395257231D-01, &
    2.838402579450193D-01,  4.114855681818982D-01,  2.766169541326807D-01, &
   -8.461631704059508D-02,  8.864609533086124D-02,  2.383849367209651D-01, &
    2.425324152553718D-01, -3.742080386362673D-01,  2.920973373876344D-01, &
    1.732349372327210D-01, -9.397208645575091D-01,  1.020918275656317D-01, &
    1.711409536609614D-01,  9.405188030525048D-01,  1.014134103497821D-01, &
   -4.125379277895744D-01,  5.932317296236497D-02,  1.455335918991387D-01, &
   -2.114002132094871D-01, -2.840983635497378D-01,  7.946218537051837D-02, &
   -4.914206209696642D-01,  9.453457692968009D-01,  8.467100517264473D-02, &
   -6.078146688229159D-01,  4.486792064962008D-01,  2.211679207393056D-01, &
   -5.774993705610445D-01, -3.758525621312278D-01,  2.131288659567110D-01, &
   -4.943548938878011D-01, -9.487282033931176D-01,  8.106167025374129D-02, &
   -8.307832892042354D-01,  8.056995002918920D-01,  1.095231158786915D-01, &
   -8.780106307148161D-01,  1.661245295800410D-01,  9.555205419558256D-02, &
   -9.855207994154948D-01, -5.172324935881427D-01,  4.485874655537044D-02, &
   -1.843157675090382D-01, -7.106474367504330D-01,  2.242636308727417D-01, &
   -9.639808262111604D-01,  9.935149440412500D-01,  1.153343223604792D-02, &
   -9.905890478558095D-01,  5.280652625496880D-01,  4.024626264818196D-02, &
   -8.720537162767097D-01, -1.329065631973914D-01,  1.058449657495581D-01, &
   -9.263657835203469D-01, -9.372594643356640D-01,  3.401287490362680D-02, &
   -7.769128911427001D-01, -7.339368334159078D-01,  1.242179600721695D-01 /)

  return
end
subroutine smr13 ( xyw )

!*****************************************************************************80
!
!! SMR13 returns the SMR rule of degree 13.
!
!  Discussion:
!
!    DEGREE: 13
!    ROTATIONALLY INVARIANT: (X,Y),(-Y,X),(-X,-Y),(Y,-X).
!    POINTS CARDINALITY: 33
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*33), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*33)

  xyw = (/ &
    4.758086252182755D-01,  8.500766736997488D-01,  1.188446673005955D-01, &
    3.427165560404069D-01,  4.093045616940387D-01,  2.568707494819678D-01, &
    7.558053565720811D-01,  6.478216371870110D-01,  1.297635503700028D-01, &
    9.413272258729251D-01,  3.907362161294611D-01,  7.749273853310545D-02, &
    9.572976997863074D-01,  8.595560056416388D-01,  3.817442131708364D-02, &
    7.788097115544195D-01,  9.834866824398723D-01,  2.999183886449914D-02, &
   -7.074150899644469D-02,  6.962500784917494D-01,  2.133415814571894D-01, &
    1.381834598624650D-01,  9.589251702875350D-01,  6.042492381774981D-02, &
   -8.500766736997488D-01,  4.758086252182755D-01,  1.188446673005955D-01, &
   -4.093045616940387D-01,  3.427165560404069D-01,  2.568707494819678D-01, &
   -6.478216371870110D-01,  7.558053565720811D-01,  1.297635503700028D-01, &
   -3.907362161294611D-01,  9.413272258729251D-01,  7.749273853310545D-02, &
   -8.595560056416388D-01,  9.572976997863074D-01,  3.817442131708364D-02, &
   -9.834866824398723D-01,  7.788097115544195D-01,  2.999183886449914D-02, &
   -6.962500784917494D-01, -7.074150899644469D-02,  2.133415814571894D-01, &
   -9.589251702875350D-01,  1.381834598624650D-01,  6.042492381774981D-02, &
   -4.758086252182755D-01, -8.500766736997488D-01,  1.188446673005955D-01, &
   -3.427165560404069D-01, -4.093045616940387D-01,  2.568707494819678D-01, &
   -7.558053565720811D-01, -6.478216371870110D-01,  1.297635503700028D-01, &
   -9.413272258729251D-01, -3.907362161294611D-01,  7.749273853310545D-02, &
   -9.572976997863074D-01, -8.595560056416388D-01,  3.817442131708364D-02, &
   -7.788097115544195D-01, -9.834866824398723D-01,  2.999183886449914D-02, &
    7.074150899644469D-02, -6.962500784917494D-01,  2.133415814571894D-01, &
   -1.381834598624650D-01, -9.589251702875350D-01,  6.042492381774981D-02, &
    8.500766736997488D-01, -4.758086252182755D-01,  1.188446673005955D-01, &
    4.093045616940387D-01, -3.427165560404069D-01,  2.568707494819678D-01, &
    6.478216371870110D-01, -7.558053565720811D-01,  1.297635503700028D-01, &
    3.907362161294611D-01, -9.413272258729251D-01,  7.749273853310545D-02, &
    8.595560056416388D-01, -9.572976997863074D-01,  3.817442131708364D-02, &
    9.834866824398723D-01, -7.788097115544195D-01,  2.999183886449914D-02, &
    6.962500784917494D-01,  7.074150899644469D-02,  2.133415814571894D-01, &
    9.589251702875350D-01, -1.381834598624650D-01,  6.042492381774981D-02, &
    0.000000000000000D+00,  0.000000000000000D+00,  3.003821154312253D-01 /)

  return
end
subroutine smr14 ( xyw )

!*****************************************************************************80
!
!! SMR14 returns the SMR rule of degree 14.
!
!  Discussion:
!
!    DEGREE: 14
!    POINTS CARDINALITY: 40
!    NORM INF MOMS. RESIDUAL: 9.57567e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*40), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*40)

  xyw = (/ &
    9.784247248091626D-01,  9.849379037345679D-01,  7.042609290974809D-03, &
    9.696033367128390D-01, -3.331633352358324D-01,  5.127000401619231D-02, &
    9.635907900433699D-01, -8.235135827696192D-01,  2.835904116834926D-02, &
    9.609680853689336D-01, -9.665848054209388D-01,  5.802552341290735D-03, &
    8.759175244824323D-01,  8.440519016975554D-01,  6.406839799781101D-02, &
    9.850622977861553D-01,  5.927006882272775D-01,  3.059827453183588D-02, &
    9.132378164262995D-01,  1.686644107446046D-01,  1.015293304177829D-01, &
    8.210255575251280D-01, -6.312138484114799D-01,  1.070566792196576D-01, &
    7.253802697646771D-01,  5.271299424251080D-01,  1.491850201682654D-01, &
    7.129972234617307D-01, -1.746725364206650D-01,  1.672674729613243D-01, &
    5.551781984544302D-01, -8.617677569495097D-01,  1.035166248728787D-01, &
    8.047627946516351D-01, -9.674432786379303D-01,  2.787008138269169D-02, &
    6.424373183439024D-01,  9.660008737161317D-01,  4.265704272492368D-02, &
    4.202620588036903D-01,  7.809596116887254D-01,  1.425075466703280D-01, &
    4.547166615470812D-01,  1.927401717576898D-01,  2.105516162791665D-01, &
    4.259990143599163D-01, -4.962208715768625D-01,  1.867185172918136D-01, &
    9.710021027954509D-02,  9.536977082453567D-01,  6.972182442589203D-02, &
    1.114008919498024D-01,  4.923616289896904D-01,  2.043948618313033D-01, &
    1.209667130758268D-01, -1.503469100876254D-01,  2.335930539280487D-01, &
    7.524097400070873D-02, -7.452253206810735D-01,  1.601269026668343D-01, &
   -4.518656196438389D-01,  9.427795716582286D-01,  6.465270834286081D-02, &
   -2.040271575380492D-01,  7.591224031418166D-01,  1.466929221365241D-01, &
   -2.427862218874625D-01,  1.736708825032474D-01,  2.280281871073875D-01, &
   -2.459782585741061D-01, -4.449955936922590D-01,  2.055272577034085D-01, &
    2.124852450722984D-01, -9.810732833242932D-01,  4.316769231929027D-02, &
   -7.568108239381779D-01,  7.901122315570046D-01,  9.576721669303179D-02, &
   -5.448202693114659D-01,  5.034324548840123D-01,  1.739315171493671D-01, &
   -5.908385723762482D-01, -1.268935867110808D-01,  1.941490024297708D-01, &
   -2.895046302710989D-01, -9.116133911949098D-01,  9.663345199603172D-02, &
   -6.417036777526361D-01, -9.886715561256082D-01,  2.266331268661072D-02, &
   -7.921595150813847D-01,  9.955322518565568D-01,  1.393382316893550D-02, &
   -9.527313016559716D-01,  5.688243284550245D-01,  5.657603379663307D-02, &
   -8.300912488610223D-01,  2.262029630794567D-01,  1.327223448878936D-01, &
   -5.758839055540124D-01, -6.756366015563920D-01,  1.369481741372994D-01, &
   -7.954880187581953D-01, -8.506684869408652D-01,  6.033321912862107D-02, &
   -9.562007514872694D-01,  9.139906777934969D-01,  2.419546581425405D-02, &
   -9.839876523259704D-01, -5.381597268716472D-02,  4.116110545021220D-02, &
   -8.552518042944189D-01, -4.002028380944249D-01,  1.164178174263354D-01, &
   -9.694591723778574D-01, -6.823556992833991D-01,  3.472756253802061D-02, &
   -9.468282975367817D-01, -9.506255113908446D-01,  1.793373090014833D-02 /)

  return
end
subroutine smr15 ( xyw )

!*****************************************************************************80
!
!! SMR15 returns the SMR rule of degree 15.
!
!  Discussion:
!
!    DEGREE: 15
!    SYMMETRY: (X,Y), (-X,-Y).
!    POINTS CARDINALITY: 43
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*43), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*43)

  xyw = (/ &
   -9.897035809317545D-01,  5.425907314742811D-01,  2.692004637463620D-02, &
   -9.844256804341962D-01, -8.630433434831161D-01,  1.749593663841038D-02, &
   -9.720740612950027D-01, -3.529770957215327D-01,  4.407397330060381D-02, &
   -9.717518222429252D-01,  9.683214017531246D-01,  9.597984117068133D-03, &
   -9.192734438999380D-01,  1.159789159156424D-01,  9.186688636374692D-02, &
   -8.920718007989080D-01,  8.096447739678093D-01,  6.009039847791869D-02, &
   -8.694522415973330D-01, -9.761961093345928D-01,  2.099677952515304D-02, &
   -8.685236892209494D-01, -6.756459657106383D-01,  7.822899155683208D-02, &
   -7.630389610522654D-01, -4.519651830370793D-01,  4.323794116684067D-02, &
   -7.606746138826611D-01,  4.797962173343035D-01,  1.341465202538838D-01, &
   -7.151716310198851D-01, -1.863833474025069D-01,  1.456054555637575D-01, &
   -6.987339962580051D-01,  9.595571077523438D-01,  4.226674647754744D-02, &
   -6.348443155921265D-01, -8.760006464754001D-01,  8.606581576391330D-02, &
   -5.034250302130044D-01,  7.544476347964910D-01,  1.336407358940195D-01, &
   -4.795655397342558D-01,  1.795809740683987D-01,  2.029010677239986D-01, &
   -4.639944974152491D-01, -5.789694673013793D-01,  1.560859171904400D-01, &
   -3.244129251598891D-01, -9.815797807964038D-01,  3.669707979316125D-02, &
   -2.413326601845606D-01, -2.562094364546668D-01,  1.805943476814126D-01, &
   -2.289847857525782D-01,  9.462454193863400D-01,  7.000525056015877D-02, &
   -1.648117901013778D-01,  5.076930665870906D-01,  2.008843851797360D-01, &
   -1.220776156497820D-01, -8.000225811280368D-01,  1.383276061021405D-01, &
    0.000000000000000D+00,  0.000000000000000D+00,  1.605402685892418D-01, &
    1.220776156497820D-01,  8.000225811280368D-01,  1.383276061021405D-01, &
    1.648117901013778D-01, -5.076930665870906D-01,  2.008843851797360D-01, &
    2.289847857525782D-01, -9.462454193863400D-01,  7.000525056015877D-02, &
    2.413326601845606D-01,  2.562094364546668D-01,  1.805943476814126D-01, &
    3.244129251598891D-01,  9.815797807964038D-01,  3.669707979316125D-02, &
    4.639944974152491D-01,  5.789694673013793D-01,  1.560859171904400D-01, &
    4.795655397342558D-01, -1.795809740683987D-01,  2.029010677239986D-01, &
    5.034250302130044D-01, -7.544476347964910D-01,  1.336407358940195D-01, &
    6.348443155921265D-01,  8.760006464754001D-01,  8.606581576391330D-02, &
    6.987339962580051D-01, -9.595571077523438D-01,  4.226674647754744D-02, &
    7.151716310198851D-01,  1.863833474025069D-01,  1.456054555637575D-01, &
    7.606746138826611D-01, -4.797962173343035D-01,  1.341465202538838D-01, &
    7.630389610522654D-01,  4.519651830370793D-01,  4.323794116684067D-02, &
    8.685236892209494D-01,  6.756459657106383D-01,  7.822899155683208D-02, &
    8.694522415973330D-01,  9.761961093345928D-01,  2.099677952515304D-02, &
    8.920718007989080D-01, -8.096447739678093D-01,  6.009039847791869D-02, &
    9.192734438999380D-01, -1.159789159156424D-01,  9.186688636374692D-02, &
    9.717518222429252D-01, -9.683214017531246D-01,  9.597984117068133D-03, &
    9.720740612950027D-01,  3.529770957215327D-01,  4.407397330060381D-02, &
    9.844256804341962D-01,  8.630433434831161D-01,  1.749593663841038D-02, &
    9.897035809317545D-01, -5.425907314742811D-01,  2.692004637463620D-02 /)

  return
end
subroutine smr16 ( xyw )

!*****************************************************************************80
!
!! SMR16 returns the SMR rule of degree 16.
!
!  Discussion:
!
!    DEGREE: 16
!    POINTS CARDINALITY: 52
!    NORM INF MOMS. RESIDUAL: 9.15934e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*52), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*52)

  xyw = (/ &
    9.849840927490825D-01, -8.331548011067518D-01,  1.148497840181236D-02, &
    9.872657987157976D-01,  8.588448788294810D-01,  1.473194969200236D-02, &
    9.793426944857834D-01,  3.488215241207180D-01,  3.098444037686296D-02, &
    9.710730712462519D-01, -1.976275486943358D-01,  3.939075140298535D-02, &
    9.543665314722640D-01, -6.214859681775430D-01,  3.181988181461071D-02, &
    8.967156835567945D-01,  6.357233965740013D-01,  6.754726963166503D-02, &
    8.560787402043915D-01,  9.300163636799799D-02,  9.806208102265382D-02, &
    8.352602163787974D-01, -4.546303275105074D-01,  8.007156600306299D-02, &
    9.242704749020406D-01, -9.624752146350085D-01,  1.773036206031470D-02, &
    8.914637296434523D-01,  9.704982463181010D-01,  1.966130427988303D-02, &
    7.225506553250621D-01,  8.352620376414029D-01,  7.379440929879094D-02, &
    6.725198105909391D-01,  3.980674436765583D-01,  1.347645483339404D-01, &
    6.371105617029685D-01, -1.999912055384129D-01,  1.423112416621634D-01, &
    7.808910471981420D-01, -8.134492991124070D-01,  7.085421872868532D-02, &
    6.337062775345687D-01, -9.719980099330250D-01,  2.925279318090791D-02, &
    5.291062928070972D-01,  9.679384351925090D-01,  3.562931685878622D-02, &
    4.244965002466626D-01,  6.479593280988540D-01,  1.310143500409354D-01, &
    3.773110188906150D-01,  1.020856639775450D-01,  1.867695133142744D-01, &
    5.192633407488266D-01, -6.187964471903282D-01,  1.329295627808754D-01, &
    3.642312437714700D-01, -8.863235986829771D-01,  7.576971496593095D-02, &
    5.561745660244605D-02,  9.824987512094673D-01,  2.458923517607215D-02, &
    2.315339247267523D-01,  8.666994462444320D-01,  7.856108542290755D-02, &
    7.921301678093465D-02,  3.983722019927857D-01,  1.821994092983056D-01, &
    2.060553068006480D-01, -3.586293462932311D-01,  1.877843167547426D-01, &
    5.968748053306436D-02, -7.377671587273356D-01,  1.194943798093123D-01, &
    9.345890458174631D-02, -9.856937685796492D-01,  2.683866060217570D-02, &
   -2.309174536279237D-01,  9.038233934314195D-01,  5.704293324973451D-02, &
   -8.490129042248308D-02,  7.103616948287095D-01,  1.008414737624086D-01, &
   -1.156391657288008D-01, -5.831278342511520D-02,  2.065290952798645D-01, &
   -2.469994669672659D-01, -5.451953129096770D-01,  1.486152719982061D-01, &
   -2.407569095414160D-01, -9.110001765460239D-01,  7.369448825579748D-02, &
   -5.483869894552442D-01, -9.876593748951622D-01,  2.052629805335149D-02, &
   -4.504247208566849D-01,  9.823752262299734D-01,  2.182431901411460D-02, &
   -3.866081747635596D-01,  6.227238096470654D-01,  9.969926465444570D-02, &
   -3.830201431115215D-01,  2.758592684399684D-01,  1.620659760964653D-01, &
   -5.052430403406701D-01, -2.965505634060009D-01,  1.515331269600610D-01, &
   -5.534470349649314D-01, -7.802045621704854D-01,  9.917678556230886D-02, &
   -8.118615876869535D-01, -9.295671133984095D-01,  4.092795912351316D-02, &
   -6.110904286470239D-01,  8.416598154470650D-01,  7.681751936941439D-02, &
   -7.180850315887866D-01,  5.275124303877409D-01,  1.078772215341901D-01, &
   -6.717184597177530D-01,  5.190959173969474D-02,  1.274953461648875D-01, &
   -7.688067943153316D-01, -5.765647129796945D-01,  9.670064900592909D-02, &
   -8.122178392749709D-01,  9.667410754993326D-01,  2.507418689814922D-02, &
   -9.001198519620254D-01,  7.660124377216176D-01,  5.337920648061494D-02, &
   -8.927917900428630D-01,  2.801343969829519D-01,  7.365567660310912D-02, &
   -8.625316023871907D-01, -2.304828850740908D-01,  7.976422028192462D-02, &
   -9.444379963884221D-01, -7.886904781685101D-01,  3.680993075145274D-02, &
   -9.814383394418308D-01,  9.386107932617476D-01,  1.041932477487203D-02, &
   -9.868302403965578D-01,  5.376625218147606D-01,  2.163454704946022D-02, &
   -9.782564506674100D-01, -7.629524842176458D-03,  2.926520573014411D-02, &
   -9.734724345230769D-01, -4.774981225500561D-01,  2.926793258824966D-02, &
   -9.832450869161593D-01, -9.836383787047436D-01,  5.320699842671481D-03 /)

  return
end
subroutine smr17 ( xyw )

!*****************************************************************************80
!
!! SMR17 returns the SMR rule of degree 17.
!
!  Discussion:
!
!    DEGREE: 17
!    SYMMETRY (X,Y), (-X,-Y)
!    POINTS CARDINALITY: 54
!    NORM INF MOMS. RESIDUAL: 4.44089e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*54), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*54)

  xyw = (/ &
   -9.863407162001064D-01, -5.350413962053188D-01,  2.305601467067279D-02, &
   -9.797917920771685D-01,  9.250929106098536D-02,  3.240673241115238D-02, &
   -9.759748695590249D-01, -9.216725954273451D-01,  1.270290274356204D-02, &
   -9.751604610540874D-01,  8.226615823534071D-01,  6.967658416756498D-03, &
   -9.655463590660567D-01,  5.873038194012039D-01,  3.379494459982002D-02, &
   -9.580417051272648D-01,  9.392146008421756D-01,  1.490471492599059D-02, &
   -8.990410418369936D-01, -2.442899840300571D-01,  8.052033202871829D-02, &
   -8.929777462525665D-01, -7.628113086068719D-01,  5.184525239733102D-02, &
   -8.684155248367631D-01, -9.940332573157988D-01,  8.888523934900541D-03, &
   -8.543834155553983D-01,  3.348609125819369D-01,  8.942431131283363D-02, &
   -8.198994002699886D-01,  7.861039744617548D-01,  6.602369125585303D-02, &
   -7.927874398654909D-01,  9.867131971602722D-01,  1.519282623398942D-02, &
   -7.313489231885142D-01, -5.375736491397500D-01,  1.043702032541429D-01, &
   -7.090784726108733D-01, -9.201347632293920D-01,  4.542324896856204D-02, &
   -6.903443278598889D-01,  8.463704695540367D-03,  1.345081852973794D-01, &
   -6.159136297254387D-01,  5.598744500532884D-01,  1.235292068763380D-01, &
   -5.503655196818333D-01,  9.111946838818689D-01,  6.486019261315923D-02, &
   -5.088888961572688D-01, -7.826367523208496D-01,  8.485070415264370D-02, &
   -4.701395263110675D-01, -3.185012886935781D-01,  1.454492206755823D-01, &
   -3.956137656607415D-01,  2.488545706442738D-01,  1.612339647041861D-01, &
   -3.787399827823459D-01, -9.766193765657439D-01,  3.251051105156653D-02, &
   -2.831429683388207D-01,  7.382031830574145D-01,  1.224068303196167D-01, &
   -2.468625326731463D-01, -6.309764352559230D-01,  1.169672902517008D-01, &
   -2.225539938942038D-01,  9.838126768040562D-01,  2.855916848841619D-02, &
   -1.626641413140420D-01, -1.008646063203129D-01,  1.626132038726945D-01, &
   -6.874965210282233D-02, -8.853346747431012D-01,  8.682936644584309D-02, &
   -5.847903009448556D-02,  4.510735833781594D-01,  1.501607980965882D-01, &
    5.847903009448556D-02, -4.510735833781594D-01,  1.501607980965882D-01, &
    6.874965210282233D-02,  8.853346747431012D-01,  8.682936644584309D-02, &
    1.626641413140420D-01,  1.008646063203129D-01,  1.626132038726945D-01, &
    2.225539938942038D-01, -9.838126768040562D-01,  2.855916848841619D-02, &
    2.468625326731463D-01,  6.309764352559230D-01,  1.169672902517008D-01, &
    2.831429683388207D-01, -7.382031830574145D-01,  1.224068303196167D-01, &
    3.787399827823459D-01,  9.766193765657439D-01,  3.251051105156653D-02, &
    3.956137656607415D-01, -2.488545706442738D-01,  1.612339647041861D-01, &
    4.701395263110675D-01,  3.185012886935781D-01,  1.454492206755823D-01, &
    5.088888961572688D-01,  7.826367523208496D-01,  8.485070415264370D-02, &
    5.503655196818333D-01, -9.111946838818689D-01,  6.486019261315923D-02, &
    6.159136297254387D-01, -5.598744500532884D-01,  1.235292068763380D-01, &
    6.903443278598889D-01, -8.463704695540367D-03,  1.345081852973794D-01, &
    7.090784726108733D-01,  9.201347632293920D-01,  4.542324896856204D-02, &
    7.313489231885142D-01,  5.375736491397500D-01,  1.043702032541429D-01, &
    7.927874398654909D-01, -9.867131971602722D-01,  1.519282623398942D-02, &
    8.198994002699886D-01, -7.861039744617548D-01,  6.602369125585303D-02, &
    8.543834155553983D-01, -3.348609125819369D-01,  8.942431131283363D-02, &
    8.684155248367631D-01,  9.940332573157988D-01,  8.888523934900541D-03, &
    8.929777462525665D-01,  7.628113086068719D-01,  5.184525239733102D-02, &
    8.990410418369936D-01,  2.442899840300571D-01,  8.052033202871829D-02, &
    9.580417051272648D-01, -9.392146008421756D-01,  1.490471492599059D-02, &
    9.655463590660567D-01, -5.873038194012039D-01,  3.379494459982002D-02, &
    9.751604610540874D-01, -8.226615823534071D-01,  6.967658416756498D-03, &
    9.759748695590249D-01,  9.216725954273451D-01,  1.270290274356204D-02, &
    9.797917920771685D-01, -9.250929106098536D-02,  3.240673241115238D-02, &
    9.863407162001064D-01,  5.350413962053188D-01,  2.305601467067279D-02 /)

  return
end
subroutine smr18 ( xyw )

!*****************************************************************************80
!
!! SMR18 returns the SMR rule of degree 18.
!
!  Discussion:
!
!    DEGREE: 18
!    POINTS CARDINALITY: 64
!    NORM INF MOMS. RESIDUAL: 1.80411e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*64), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*64)

  xyw = (/ &
   -9.901134796801783D-01, -3.636920739279686D-01,  1.924401162821098D-02, &
   -9.813479194657442D-01,  2.269728889226950D-01,  2.377081803411145D-02, &
   -9.751246202174101D-01, -8.087895536063188D-01,  1.824571677716675D-02, &
   -9.741192020631542D-01,  8.966914512186399D-01,  1.040325999881736D-02, &
   -9.699879010686473D-01, -9.814171856874379D-01,  5.169228082043371D-03, &
   -9.695988425630034D-01,  6.372691271564769D-01,  2.701864190192290D-02, &
   -9.502627815202467D-01,  9.663374399441544D-01,  6.832430188474440D-03, &
   -9.197723058789439D-01, -5.864804338113919D-02,  5.855723621166473D-02, &
   -9.059247381128510D-01, -5.898828597989898D-01,  5.297590163131558D-02, &
   -8.627599153540467D-01,  4.164987829940056D-01,  7.111515467482395D-02, &
   -8.569855990839045D-01, -9.267827643653366D-01,  2.894383892650155D-02, &
   -8.389143776305836D-01,  8.004661957859885D-01,  5.373522067458378D-02, &
   -8.065675356071547D-01,  9.834437446052690D-01,  1.315188692146605D-02, &
   -7.872448206722253D-01, -2.985727024319632D-01,  8.409595266673971D-02, &
   -7.325897102338846D-01, -7.627707340005139D-01,  6.493193699070636D-02, &
   -7.108608115543918D-01,  1.482798927069730D-01,  1.059543276308938D-01, &
   -6.620192350608188D-01, -9.914865774170796D-01,  1.356692677046532D-02, &
   -6.334849400427111D-01,  6.037434357654228D-01,  1.051942339342666D-01, &
   -6.014705998319453D-01,  9.143204709310846D-01,  5.210486977766542D-02, &
   -5.892324845704049D-01, -5.045342974742788D-01,  9.788981223530169D-02, &
   -5.131040457735190D-01, -9.095715109599031D-02,  1.108235515488634D-01, &
   -5.033556139567553D-01, -8.956709590819707D-01,  5.541443510056418D-02, &
   -3.947567656009430D-01,  3.383853875972697D-01,  1.469566677471172D-01, &
   -3.365255254825216D-01, -6.932064968553141D-01,  9.848736935036356D-02, &
   -3.344750516678310D-01,  9.866136919798809D-01,  2.170786884754973D-02, &
   -3.310287403968845D-01,  7.731192382826196D-01,  1.015778188232984D-01, &
   -2.999505641193486D-01, -2.928443015341402D-01,  1.107816184233573D-01, &
   -2.331455368936777D-01, -9.731854050766667D-01,  2.884073562303302D-02, &
   -1.116980244718904D-01,  4.992438237750351D-02,  1.612001429698854D-01, &
   -6.575627688742440D-02,  5.455174655246902D-01,  1.390613750634900D-01, &
   -6.089043840299364D-02, -8.562318836763884D-01,  6.853830062046717D-02, &
   -4.781118177875937D-02, -4.996330916388668D-01,  1.194580692354339D-01, &
   -2.644564050493325D-02,  9.165721602454180D-01,  6.685724630082367D-02, &
    1.924944168163869D-01, -2.367466035142029D-01,  1.491161554688392D-01, &
    1.951330272152753D-01, -7.328036825494620D-01,  8.630902364197904D-02, &
    2.028158693449157D-01, -9.703380537473529D-01,  3.364243858164141D-02, &
    2.092663468167508D-01,  2.662322825395520D-01,  1.486647112920279D-01, &
    2.283553896503115D-01,  7.496185156938090D-01,  1.027379035896721D-01, &
    2.876554348315164D-01,  9.873845509936813D-01,  2.192507210698709D-02, &
    4.237159887642933D-01, -5.535582535086475D-01,  1.058102193186085D-01, &
    4.581157947253051D-01,  5.130944233380290D-01,  1.090905648997083D-01, &
    4.752280776399702D-01, -8.857999997554080D-01,  6.346475038588688D-02, &
    4.831508023294471D-01, -2.549857293827913D-02,  1.337777655566684D-01, &
    5.057868104561423D-01,  8.896750734704260D-01,  6.079360942822091D-02, &
    6.099162517568020D-01, -3.853032051834505D-01,  6.436419858280257D-02, &
    6.559598836045895D-01,  2.795821152702244D-01,  8.177939511493874D-02, &
    6.565622107706015D-01, -9.883582556647157D-01,  1.640381218907065D-02, &
    6.956126158721206D-01,  6.950821057395169D-01,  7.746885102883669D-02, &
    7.094177605066919D-01, -7.370072009566638D-01,  7.788188331156506D-02, &
    7.290386435476074D-01,  9.703386432783726D-01,  2.313579562579107D-02, &
    7.557526341619506D-01, -2.941608525026456D-01,  7.412112987017343D-02, &
    7.912367791054172D-01,  8.744914899411797D-02,  6.420122545616397D-02, &
    8.543844628271234D-01, -9.182475827792237D-01,  3.336594260262386D-02, &
    8.645615995455240D-01,  4.552151496141779D-01,  6.553880387109420D-02, &
    8.705823452020542D-01,  8.420186142289366D-01,  3.949607694089933D-02, &
    8.978579920125014D-01, -5.603807009892569D-01,  5.906741413770155D-02, &
    9.236747719664095D-01, -1.092483343302797D-01,  5.348329279696051D-02, &
    9.440144649649265D-01,  9.743199890031753D-01,  8.946275110809443D-03, &
    9.689413373175574D-01,  6.453835143088201D-01,  2.577199176900479D-02, &
    9.716342103019509D-01, -9.824772013181601D-01,  5.332369479915357D-03, &
    9.729481716901303D-01, -7.936277261963781D-01,  2.070804573643469D-02, &
    9.758025156447697D-01,  2.267876624457436D-01,  2.981298882062168D-02, &
    9.939173935792275D-01,  8.841354641450845D-01,  5.745299494229030D-03, &
    9.953701290021145D-01, -3.661129988733890D-01,  1.543638847873499D-02 /)

  return
end
subroutine smr19 ( xyw )

!*****************************************************************************80
!
!! SMR19 returns the SMR rule of degree 19.
!
!  Discussion:
!
!    DEGREE: 19
!    SYMMETRY: (X,Y), (-X,-Y)
!    POINTS CARDINALITY: 67
!    NORM INF MOMS. RESIDUAL: 4.44089e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*67), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*67)

  xyw = (/ &
   -9.882811207043626D-01,  5.499680659586386D-02,  2.092785503234627D-02, &
   -9.849643667633750D-01,  6.212597907298936D-01,  1.808240699704512D-02, &
   -9.813999666122014D-01, -4.952365265213790D-01,  2.248743945205191D-02, &
   -9.782104202505005D-01,  9.275801424350509D-01,  1.011830773881234D-02, &
   -9.691016249998836D-01, -9.857365066859964D-01,  4.619328461670566D-03, &
   -9.683241755943918D-01, -8.352830082748723D-01,  1.956137669036511D-02, &
   -9.202706700587867D-01,  3.511851149995373D-01,  5.773555533944277D-02, &
   -9.094971072531579D-01, -2.172757421209814D-01,  6.345799736852624D-02, &
   -8.955283373897494D-01,  7.976174402318889D-01,  3.990477349231469D-02, &
   -8.910382534296201D-01,  9.945369448321910D-01,  6.887461729231832D-03, &
   -8.645217306506207D-01, -6.631996105098346D-01,  5.773686209899585D-02, &
   -8.361991822628865D-01, -9.403589726574770D-01,  2.822764839262689D-02, &
   -7.730414957980034D-01,  8.238831136924889D-02,  1.001138265151715D-01, &
   -7.650572339362595D-01,  5.862972313979000D-01,  7.938451847571938D-02, &
   -7.339165122981658D-01,  9.301444324799357D-01,  3.698855138726674D-02, &
   -7.142591688630336D-01, -4.144687459254282D-01,  9.862108370826694D-02, &
   -6.567593878397442D-01, -8.187456800244232D-01,  6.430400825705974D-02, &
   -5.911965681070577D-01, -9.890895416891479D-01,  1.619432554055879D-02, &
   -5.650612797733545D-01,  3.562777186069158D-01,  1.145600986645687D-01, &
   -5.522558344482561D-01,  7.877180001548971D-01,  7.542302799441891D-02, &
   -5.204497226646213D-01, -1.319110721429938D-01,  1.271745083852966D-01, &
   -4.843104169217222D-01, -6.372481900547796D-01,  7.509621769261574D-02, &
   -4.576710954771651D-01,  9.804344277407575D-01,  2.360353464684936D-02, &
   -3.501819505299977D-01, -9.155258592028724D-01,  5.647374387294429D-02, &
   -3.449909757079617D-01, -5.171112886647338D-01,  6.683630505556533D-02, &
   -3.245616103968320D-01,  6.112729098917052D-01,  1.024013654183961D-01, &
   -2.899888936344285D-01,  1.640917354232377D-01,  1.271636872050067D-01, &
   -2.124604121926062D-01,  8.907682205113933D-01,  6.854209870863227D-02, &
   -2.101863370194021D-01, -2.888406804953518D-01,  1.103357066015591D-01, &
   -2.061044019817992D-01, -7.806540187071476D-01,  3.167739924216664D-02, &
   -6.183281639699825D-02,  4.515274811396188D-01,  1.060858442601201D-01, &
   -5.624698000526564D-02, -7.388749473949220D-01,  8.327955875718944D-02, &
   -4.730013829225772D-02, -9.811237074398366D-01,  2.608831452074966D-02, &
    0.000000000000000D+00,  0.000000000000000D+00,  1.198105245928960D-01, &
    4.730013829225772D-02,  9.811237074398366D-01,  2.608831452074966D-02, &
    5.624698000526564D-02,  7.388749473949220D-01,  8.327955875718944D-02, &
    6.183281639699825D-02, -4.515274811396188D-01,  1.060858442601201D-01, &
    2.061044019817992D-01,  7.806540187071476D-01,  3.167739924216664D-02, &
    2.101863370194021D-01,  2.888406804953518D-01,  1.103357066015591D-01, &
    2.124604121926062D-01, -8.907682205113933D-01,  6.854209870863227D-02, &
    2.899888936344285D-01, -1.640917354232377D-01,  1.271636872050067D-01, &
    3.245616103968320D-01, -6.112729098917052D-01,  1.024013654183961D-01, &
    3.449909757079617D-01,  5.171112886647338D-01,  6.683630505556533D-02, &
    3.501819505299977D-01,  9.155258592028724D-01,  5.647374387294429D-02, &
    4.576710954771651D-01, -9.804344277407575D-01,  2.360353464684936D-02, &
    4.843104169217222D-01,  6.372481900547796D-01,  7.509621769261574D-02, &
    5.204497226646213D-01,  1.319110721429938D-01,  1.271745083852966D-01, &
    5.522558344482561D-01, -7.877180001548971D-01,  7.542302799441891D-02, &
    5.650612797733545D-01, -3.562777186069158D-01,  1.145600986645687D-01, &
    5.911965681070577D-01,  9.890895416891479D-01,  1.619432554055879D-02, &
    6.567593878397442D-01,  8.187456800244232D-01,  6.430400825705974D-02, &
    7.142591688630336D-01,  4.144687459254282D-01,  9.862108370826694D-02, &
    7.339165122981658D-01, -9.301444324799357D-01,  3.698855138726674D-02, &
    7.650572339362595D-01, -5.862972313979000D-01,  7.938451847571938D-02, &
    7.730414957980034D-01, -8.238831136924889D-02,  1.001138265151715D-01, &
    8.361991822628865D-01,  9.403589726574770D-01,  2.822764839262689D-02, &
    8.645217306506207D-01,  6.631996105098346D-01,  5.773686209899585D-02, &
    8.910382534296201D-01, -9.945369448321910D-01,  6.887461729231832D-03, &
    8.955283373897494D-01, -7.976174402318889D-01,  3.990477349231469D-02, &
    9.094971072531579D-01,  2.172757421209814D-01,  6.345799736852624D-02, &
    9.202706700587867D-01, -3.511851149995373D-01,  5.773555533944277D-02, &
    9.683241755943918D-01,  8.352830082748723D-01,  1.956137669036511D-02, &
    9.691016249998836D-01,  9.857365066859964D-01,  4.619328461670566D-03, &
    9.782104202505005D-01, -9.275801424350509D-01,  1.011830773881234D-02, &
    9.813999666122014D-01,  4.952365265213790D-01,  2.248743945205191D-02, &
    9.849643667633750D-01, -6.212597907298936D-01,  1.808240699704512D-02, &
    9.882811207043626D-01, -5.499680659586386D-02,  2.092785503234627D-02 /)

  return
end
subroutine smr19s ( xyw )

!*****************************************************************************80
!
!! SMR19S returns the rotationally invariant SMR rule of degree 19.
!
!  Discussion:
!
!    DEGREE: 19
!    ROTATIONALLY INVARIANT: (X,Y),(-Y,X),(-X,-Y),(Y,-X).
!    POINTS CARDINALITY: 68
!    NORM INF MOMS. RESIDUAL: 2.63678e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*68), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*68)

  xyw = (/ &
    6.772712303303220D-02,  1.091623307294788D-01,  5.494509440087280D-02, &
    1.911320239476111D-01,  7.684428790753622D-01,  9.924039371581232D-02, &
    1.293584417049455D-01,  9.843401047067886D-01,  2.298164089064930D-02, &
    2.653188588974263D-01,  3.187377804093571D-01,  1.356277329376223D-01, &
    4.805884103058745D-01,  5.883672104526556D-01,  1.092830463202312D-01, &
    4.353820421144143D-01,  9.253041863610407D-01,  5.332719030254342D-02, &
    5.327122733511525D-01,  5.307888414194004D-02,  1.342811802398570D-01, &
    6.817257899596626D-01,  8.006754071171294D-01,  6.668259225153295D-02, &
    6.897274550636672D-01,  9.904094449990978D-01,  1.399432148751916D-02, &
    8.960307328244307D-01,  1.256777467976840D-01,  6.752580403681208D-02, &
    7.189012994269330D-01,  3.612251785232622D-01,  1.014916530440626D-01, &
    8.636764064784566D-01,  6.273567750914366D-01,  5.639122590523545D-02, &
    8.689071260438135D-01,  9.214958682077944D-01,  2.840189695206082D-02, &
    9.851138463638244D-01,  3.506711929883037D-01,  1.440758011223270D-02, &
    9.604323781459383D-01,  4.868528161195464D-01,  1.812287875530189D-02, &
    9.757200071559576D-01,  7.955215584636620D-01,  1.826958037918748D-02, &
    9.734329880957604D-01,  9.798840213938864D-01,  5.026188268466660D-03, &
   -1.091623307294788D-01,  6.772712303303220D-02,  5.494509440087280D-02, &
   -7.684428790753622D-01,  1.911320239476111D-01,  9.924039371581232D-02, &
   -9.843401047067886D-01,  1.293584417049455D-01,  2.298164089064930D-02, &
   -3.187377804093571D-01,  2.653188588974263D-01,  1.356277329376223D-01, &
   -5.883672104526556D-01,  4.805884103058745D-01,  1.092830463202312D-01, &
   -9.253041863610407D-01,  4.353820421144143D-01,  5.332719030254342D-02, &
   -5.307888414194004D-02,  5.327122733511525D-01,  1.342811802398570D-01, &
   -8.006754071171294D-01,  6.817257899596626D-01,  6.668259225153295D-02, &
   -9.904094449990978D-01,  6.897274550636672D-01,  1.399432148751916D-02, &
   -1.256777467976840D-01,  8.960307328244307D-01,  6.752580403681208D-02, &
   -3.612251785232622D-01,  7.189012994269330D-01,  1.014916530440626D-01, &
   -6.273567750914366D-01,  8.636764064784566D-01,  5.639122590523545D-02, &
   -9.214958682077944D-01,  8.689071260438135D-01,  2.840189695206082D-02, &
   -3.506711929883037D-01,  9.851138463638244D-01,  1.440758011223270D-02, &
   -4.868528161195464D-01,  9.604323781459383D-01,  1.812287875530189D-02, &
   -7.955215584636620D-01,  9.757200071559576D-01,  1.826958037918748D-02, &
   -9.798840213938864D-01,  9.734329880957604D-01,  5.026188268466660D-03, &
   -6.772712303303220D-02, -1.091623307294788D-01,  5.494509440087280D-02, &
   -1.911320239476111D-01, -7.684428790753622D-01,  9.924039371581232D-02, &
   -1.293584417049455D-01, -9.843401047067886D-01,  2.298164089064930D-02, &
   -2.653188588974263D-01, -3.187377804093571D-01,  1.356277329376223D-01, &
   -4.805884103058745D-01, -5.883672104526556D-01,  1.092830463202312D-01, &
   -4.353820421144143D-01, -9.253041863610407D-01,  5.332719030254342D-02, &
   -5.327122733511525D-01, -5.307888414194004D-02,  1.342811802398570D-01, &
   -6.817257899596626D-01, -8.006754071171294D-01,  6.668259225153295D-02, &
   -6.897274550636672D-01, -9.904094449990978D-01,  1.399432148751916D-02, &
   -8.960307328244307D-01, -1.256777467976840D-01,  6.752580403681208D-02, &
   -7.189012994269330D-01, -3.612251785232622D-01,  1.014916530440626D-01, &
   -8.636764064784566D-01, -6.273567750914366D-01,  5.639122590523545D-02, &
   -8.689071260438135D-01, -9.214958682077944D-01,  2.840189695206082D-02, &
   -9.851138463638244D-01, -3.506711929883037D-01,  1.440758011223270D-02, &
   -9.604323781459383D-01, -4.868528161195464D-01,  1.812287875530189D-02, &
   -9.757200071559576D-01, -7.955215584636620D-01,  1.826958037918748D-02, &
   -9.734329880957604D-01, -9.798840213938864D-01,  5.026188268466660D-03, &
    1.091623307294788D-01, -6.772712303303220D-02,  5.494509440087280D-02, &
    7.684428790753622D-01, -1.911320239476111D-01,  9.924039371581232D-02, &
    9.843401047067886D-01, -1.293584417049455D-01,  2.298164089064930D-02, &
    3.187377804093571D-01, -2.653188588974263D-01,  1.356277329376223D-01, &
    5.883672104526556D-01, -4.805884103058745D-01,  1.092830463202312D-01, &
    9.253041863610407D-01, -4.353820421144143D-01,  5.332719030254342D-02, &
    5.307888414194004D-02, -5.327122733511525D-01,  1.342811802398570D-01, &
    8.006754071171294D-01, -6.817257899596626D-01,  6.668259225153295D-02, &
    9.904094449990978D-01, -6.897274550636672D-01,  1.399432148751916D-02, &
    1.256777467976840D-01, -8.960307328244307D-01,  6.752580403681208D-02, &
    3.612251785232622D-01, -7.189012994269330D-01,  1.014916530440626D-01, &
    6.273567750914366D-01, -8.636764064784566D-01,  5.639122590523545D-02, &
    9.214958682077944D-01, -8.689071260438135D-01,  2.840189695206082D-02, &
    3.506711929883037D-01, -9.851138463638244D-01,  1.440758011223270D-02, &
    4.868528161195464D-01, -9.604323781459383D-01,  1.812287875530189D-02, &
    7.955215584636620D-01, -9.757200071559576D-01,  1.826958037918748D-02, &
    9.798840213938864D-01, -9.734329880957604D-01,  5.026188268466660D-03 /)

  return
end
subroutine smr20 ( xyw )

!*****************************************************************************80
!
!! SMR20 returns the SMR rule of degree 20.
!
!  Discussion:
!
!    DEGREE: 20
!    POINTS CARDINALITY: 78
!    NORM INF MOMS. RESIDUAL: 2.28983e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*78), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*78)

  xyw = (/ &
   -9.915878317634396D-01, -3.766765890053987D-01,  1.499554515729458D-02, &
   -9.848784210298892D-01,  2.360994416770047D-01,  2.023115319845336D-02, &
   -9.825526677091110D-01, -8.035427779709161D-01,  1.282555877962797D-02, &
   -9.823044706287086D-01,  9.079824601518448D-01,  8.347241351837816D-03, &
   -9.779664722705005D-01,  6.550056336206199D-01,  1.862995031692569D-02, &
   -9.749883694415311D-01, -9.764755256224437D-01,  4.686323174122413D-03, &
   -9.385487288532800D-01,  9.860342433350299D-01,  5.797911563640461D-03, &
   -9.382963126427573D-01, -8.801426949855569D-02,  4.706757194633274D-02, &
   -9.249968857981914D-01, -6.085959286922041D-01,  4.012822177863082D-02, &
   -8.999893404040346D-01,  4.529514070355635D-01,  5.107860141818281D-02, &
   -8.920744993132258D-01, -9.198780734342489D-01,  2.159208371061492D-02, &
   -8.839154125809222D-01,  8.143818242625289D-01,  3.594236238111754D-02, &
   -8.255579083847894D-01, -3.654427417348043D-01,  6.695838633949613D-02, &
   -8.150245024284021D-01,  1.358607026009545D-01,  6.745427113661845D-02, &
   -7.845038084549548D-01,  9.550568485953186D-01,  2.204090981614230D-02, &
   -7.824159434580745D-01, -7.878743325718499D-01,  4.748312482965101D-02, &
   -7.695472095330197D-01, -9.958600578952408D-01,  8.095042436189770D-03, &
   -7.297305046678980D-01,  6.478626088426425D-01,  7.099765909663569D-02, &
   -6.917823169027344D-01,  3.281317067480576D-01,  5.185357866003446D-02, &
   -6.707656574849767D-01, -1.664730150689492D-01,  7.925719271981636D-02, &
   -6.531604608468555D-01, -6.061553872260436D-01,  6.838834261564096D-02, &
   -6.077773437763014D-01,  8.732147826609341D-01,  4.367407053165663D-02, &
   -6.066275299755738D-01, -9.326014647185664D-01,  3.595011352210572D-02, &
   -5.368890549246464D-01,  9.928457944663468D-01,  1.126554474822698D-02, &
   -5.316204099083646D-01,  6.576158887431759D-02,  8.069676572542248D-02, &
   -4.990046627082800D-01,  4.435890153276254D-01,  9.122827397472959D-02, &
   -4.796158821615813D-01, -4.431584361510255D-01,  8.384497173647569D-02, &
   -4.453245842342572D-01, -8.121904960479558D-01,  5.866651296620028D-02, &
   -4.339460304187116D-01,  7.546357919895570D-01,  6.052390807315380D-02, &
   -3.360460286836234D-01, -1.779527551281239D-01,  9.606753662405314D-02, &
   -3.163304450629529D-01, -9.789738490980646D-01,  2.421886578475265D-02, &
   -2.973007276058863D-01,  9.384528339104452D-01,  3.945003410423680D-02, &
   -2.583665449486478D-01, -6.746223007740130D-01,  7.803382675359716D-02, &
   -2.518910778242828D-01,  2.047144992617838D-01,  1.190753521874101D-01, &
   -2.350658939126170D-01,  6.176223949714494D-01,  8.152900900964591D-02, &
   -1.249372040555246D-01, -4.012798196143892D-01,  9.737789681157598D-02, &
   -1.071681420632334D-01,  9.911853557002673D-01,  7.840583991172302D-03, &
   -7.990032115620818D-02, -8.881537557485726D-01,  6.417774009554068D-02, &
   -4.818581787472142D-02,  8.368871897464495D-01,  6.958137992100039D-02, &
   -6.302932436761816D-03,  4.427387497778728D-01,  1.046411531707668D-01, &
    6.282561382377720D-03, -4.735863969094835D-02,  1.283072770780011D-01, &
    7.678421140871043D-02, -6.515968986198225D-01,  7.386235866198392D-02, &
    1.223163344818137D-01, -5.049264867963420D-01,  3.280543393245010D-02, &
    1.476259613184704D-01,  9.693655840355563D-01,  2.767850463294367D-02, &
    1.518625838305689D-01, -9.802704961935971D-01,  2.416012781979250D-02, &
    2.026981528589298D-01,  6.904257555809832D-01,  8.975917019163195D-02, &
    2.329194026833933D-01,  2.327373099667877D-01,  1.156666854710510D-01, &
    2.594187814838830D-01, -2.856358493697289D-01,  1.124110482665555D-01, &
    2.798470302423499D-01, -8.056133086386197D-01,  7.131679353184883D-02, &
    3.814217712474836D-01,  8.883375933116525D-01,  5.600628102613372D-02, &
    4.444592404902306D-01,  5.043261157258173D-01,  1.006394209690602D-01, &
    4.558914387037205D-01, -5.329822923030598D-01,  9.411407048103884D-02, &
    4.614020071813320D-01,  4.486972130091344D-03,  1.101092346172853D-01, &
    4.685495664357138D-01, -9.368544770988728D-01,  4.082934734266681D-02, &
    5.560918457946907D-01,  9.862938876987586D-01,  1.658263314370683D-02, &
    6.138352275991088D-01,  7.500124042821561D-01,  7.207159699616439D-02, &
    6.168426991815920D-01, -7.309006089346149D-01,  6.388336371014162D-02, &
    6.496172646332740D-01, -2.465046206462174D-01,  9.502316165822158D-02, &
    6.597659995735623D-01,  2.810856634851854D-01,  9.635446672099211D-02, &
    6.758048936769788D-01, -9.975229702582141D-01,  8.901892537462009D-03, &
    7.526986651007189D-01, -8.790172927450672D-01,  3.744847919043556D-02, &
    7.612710727469121D-01,  9.187271298549152D-01,  3.541134799086990D-02, &
    7.917231830960033D-01, -4.936809625913063D-01,  6.733975809456394D-02, &
    8.045897042890074D-01,  5.573763685706831D-01,  6.859164893126736D-02, &
    8.267194449217807D-01,  2.268030189899398D-02,  7.832191919270795D-02, &
    8.905802715963324D-01, -9.579826342974288D-01,  1.558785638304684D-02, &
    8.926961921705238D-01, -7.092071287453895D-01,  3.889483241199626D-02, &
    9.008369589898633D-01,  9.865275306057119D-01,  7.998523354461931D-03, &
    9.055629673123163D-01,  7.845529526667002D-01,  3.438925925800883D-02, &
    9.323802074714704D-01, -2.645795079832657D-01,  4.838142723685821D-02, &
    9.345858376931122D-01,  3.200026555755083D-01,  4.824416289256322D-02, &
    9.738506914356970D-01, -8.469006629251953D-01,  1.394893863211126D-02, &
    9.755796434358871D-01,  8.802225242154167D-01,  6.292208457909152D-03, &
    9.843147800221137D-01, -5.383749684018156D-01,  1.737917079753502D-02, &
    9.849316953313286D-01,  9.464841822891732D-01,  4.298012753035497D-03, &
    9.851840541929131D-01,  6.021648971571338D-01,  1.660764544264520D-02, &
    9.870587239914860D-01, -9.834157626132080D-01,  2.426383339927545D-03, &
    9.921802352398980D-01,  2.608826889643944D-02,  1.626098469219482D-02 /)

  return
end
subroutine smr21 ( xyw )

!*****************************************************************************80
!
!! SMR21 returns the SMR rule of degree 21.
!
!  Discussion:
!
!    DEGREE: 21
!    ROTATIONALLY INVARIANT: (X,  Y),  (-Y,  X),  (-X, -Y),  (Y, -X).
!    POINTS CARDINALITY: 81
!    NORM INF MOMS. RESIDUAL: 4.44089e-15
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*81), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*81)

  xyw = (/ &
    2.659786054558319D-01,  2.472943466792205D-01,  1.257081274315271D-01, &
    2.966299561078732D-01,  6.837659120145181D-01,  9.195620074644660D-02, &
    3.476456848560975D-01,  9.391305012893792D-01,  3.823913002575823D-02, &
    5.204899365134467D-01,  4.701056221362075D-01,  9.955659700462254D-02, &
    5.565331479249288D-01,  8.299687476559192D-01,  5.711233679557120D-02, &
    5.608625825041144D-01,  9.938235381537796D-01,  8.125409684532186D-03, &
    7.107545267842089D-01,  2.218786231241980D-01,  8.989795633682901D-02, &
    7.323028382034139D-01,  6.675759613958541D-01,  6.285712965516167D-02, &
    7.248337121391071D-01,  9.556008374660931D-01,  2.068885521020362D-02, &
    8.678958423780866D-01,  4.595394054487673D-01,  5.463376630254965D-02, &
    8.501142309217191D-01,  8.692220828069680D-01,  2.950403142043507D-02, &
    9.142859758630335D-01,  9.852274923275850D-01,  6.850217129206400D-03, &
    9.537223544012101D-01,  2.050108803358328D-01,  3.630414793101230D-02, &
    9.934425198626209D-01,  5.102048128337472D-01,  1.110556726680624D-02, &
    9.448573049959050D-01,  7.218738735054576D-01,  2.723130314700101D-02, &
    9.865716562931908D-01,  8.882998675210052D-01,  6.165546352541271D-03, &
    9.790570750021207D-01,  9.587134606894607D-01,  2.900715554613127D-03, &
    1.944817128807972D-02,  4.950400647800665D-01,  1.165426493105556D-01, &
    5.600805589569329D-02,  8.501230581964183D-01,  6.754741413634147D-02, &
    1.000588448960449D-01,  9.908677016040155D-01,  1.332984242008183D-02, &
   -2.472943466792205D-01,  2.659786054558319D-01,  1.257081274315271D-01, &
   -6.837659120145181D-01,  2.966299561078732D-01,  9.195620074644660D-02, &
   -9.391305012893792D-01,  3.476456848560975D-01,  3.823913002575823D-02, &
   -4.701056221362075D-01,  5.204899365134467D-01,  9.955659700462254D-02, &
   -8.299687476559192D-01,  5.565331479249288D-01,  5.711233679557120D-02, &
   -9.938235381537796D-01,  5.608625825041144D-01,  8.125409684532186D-03, &
   -2.218786231241980D-01,  7.107545267842089D-01,  8.989795633682901D-02, &
   -6.675759613958541D-01,  7.323028382034139D-01,  6.285712965516167D-02, &
   -9.556008374660931D-01,  7.248337121391071D-01,  2.068885521020362D-02, &
   -4.595394054487673D-01,  8.678958423780866D-01,  5.463376630254965D-02, &
   -8.692220828069680D-01,  8.501142309217191D-01,  2.950403142043507D-02, &
   -9.852274923275850D-01,  9.142859758630335D-01,  6.850217129206400D-03, &
   -2.050108803358328D-01,  9.537223544012101D-01,  3.630414793101230D-02, &
   -5.102048128337472D-01,  9.934425198626209D-01,  1.110556726680624D-02, &
   -7.218738735054576D-01,  9.448573049959050D-01,  2.723130314700101D-02, &
   -8.882998675210052D-01,  9.865716562931908D-01,  6.165546352541271D-03, &
   -9.587134606894607D-01,  9.790570750021207D-01,  2.900715554613127D-03, &
   -4.950400647800665D-01,  1.944817128807972D-02,  1.165426493105556D-01, &
   -8.501230581964183D-01,  5.600805589569329D-02,  6.754741413634147D-02, &
   -9.908677016040155D-01,  1.000588448960449D-01,  1.332984242008183D-02, &
   -2.659786054558319D-01, -2.472943466792205D-01,  1.257081274315271D-01, &
   -2.966299561078732D-01, -6.837659120145181D-01,  9.195620074644660D-02, &
   -3.476456848560975D-01, -9.391305012893792D-01,  3.823913002575823D-02, &
   -5.204899365134467D-01, -4.701056221362075D-01,  9.955659700462254D-02, &
   -5.565331479249288D-01, -8.299687476559192D-01,  5.711233679557120D-02, &
   -5.608625825041144D-01, -9.938235381537796D-01,  8.125409684532186D-03, &
   -7.107545267842089D-01, -2.218786231241980D-01,  8.989795633682901D-02, &
   -7.323028382034139D-01, -6.675759613958541D-01,  6.285712965516167D-02, &
   -7.248337121391071D-01, -9.556008374660931D-01,  2.068885521020362D-02, &
   -8.678958423780866D-01, -4.595394054487673D-01,  5.463376630254965D-02, &
   -8.501142309217191D-01, -8.692220828069680D-01,  2.950403142043507D-02, &
   -9.142859758630335D-01, -9.852274923275850D-01,  6.850217129206400D-03, &
   -9.537223544012101D-01, -2.050108803358328D-01,  3.630414793101230D-02, &
   -9.934425198626209D-01, -5.102048128337472D-01,  1.110556726680624D-02, &
   -9.448573049959050D-01, -7.218738735054576D-01,  2.723130314700101D-02, &
   -9.865716562931908D-01, -8.882998675210052D-01,  6.165546352541271D-03, &
   -9.790570750021207D-01, -9.587134606894607D-01,  2.900715554613127D-03, &
   -1.944817128807972D-02, -4.950400647800665D-01,  1.165426493105556D-01, &
   -5.600805589569329D-02, -8.501230581964183D-01,  6.754741413634147D-02, &
   -1.000588448960449D-01, -9.908677016040155D-01,  1.332984242008183D-02, &
    2.472943466792205D-01, -2.659786054558319D-01,  1.257081274315271D-01, &
    6.837659120145181D-01, -2.966299561078732D-01,  9.195620074644660D-02, &
    9.391305012893792D-01, -3.476456848560975D-01,  3.823913002575823D-02, &
    4.701056221362075D-01, -5.204899365134467D-01,  9.955659700462254D-02, &
    8.299687476559192D-01, -5.565331479249288D-01,  5.711233679557120D-02, &
    9.938235381537796D-01, -5.608625825041144D-01,  8.125409684532186D-03, &
    2.218786231241980D-01, -7.107545267842089D-01,  8.989795633682901D-02, &
    6.675759613958541D-01, -7.323028382034139D-01,  6.285712965516167D-02, &
    9.556008374660931D-01, -7.248337121391071D-01,  2.068885521020362D-02, &
    4.595394054487673D-01, -8.678958423780866D-01,  5.463376630254965D-02, &
    8.692220828069680D-01, -8.501142309217191D-01,  2.950403142043507D-02, &
    9.852274923275850D-01, -9.142859758630335D-01,  6.850217129206400D-03, &
    2.050108803358328D-01, -9.537223544012101D-01,  3.630414793101230D-02, &
    5.102048128337472D-01, -9.934425198626209D-01,  1.110556726680624D-02, &
    7.218738735054576D-01, -9.448573049959050D-01,  2.723130314700101D-02, &
    8.882998675210052D-01, -9.865716562931908D-01,  6.165546352541271D-03, &
    9.587134606894607D-01, -9.790570750021207D-01,  2.900715554613127D-03, &
    4.950400647800665D-01, -1.944817128807972D-02,  1.165426493105556D-01, &
    8.501230581964183D-01, -5.600805589569329D-02,  6.754741413634147D-02, &
    9.908677016040155D-01, -1.000588448960449D-01,  1.332984242008183D-02, &
    0.000000000000000D+00,  0.000000000000000D+00,  1.349722245528155D-01 /)

  return
end
subroutine smr22 ( xyw )

!*****************************************************************************80
!
!! SMR22 returns the SMR rule of degree 22.
!
!  Discussion:
!
!    DEGREE: 22
!    POINTS CARDINALITY: 93
!    NORM INF MOMS. RESIDUAL: 9.10296e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*93), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*93)

  xyw = (/ &
    9.886329057797582D-01, -1.145674729933659D-01,  1.325842639382102D-02, &
    9.888026938509622D-01, -5.213303149527411D-01,  1.068979190883013D-02, &
    9.661816000824490D-01, -7.555070898927371D-01,  1.743977208490352D-02, &
    9.889031095854282D-01, -9.320977012046493D-01,  5.174381878169184D-03, &
    9.873701927717461D-01,  9.897035459144938D-01,  1.707304801541134D-03, &
    9.905941115128364D-01,  8.327302191279294D-01,  6.754790334156039D-03, &
    9.706393731700478D-01,  5.982438926502055D-01,  2.062095495154808D-02, &
    9.803136579961507D-01,  2.717042647614646D-01,  1.891617092472248D-02, &
    9.341083383086605D-01, -3.353056638554749D-01,  3.390112966783673D-02, &
    8.734893606329978D-01, -6.054983585922311D-01,  3.753341638181854D-02, &
    8.810582900635474D-01, -8.777017334048872D-01,  2.414667023001881D-02, &
    9.308712251904757D-01, -9.880767541958921D-01,  5.413462408552709D-03, &
    9.377374302689546D-01,  9.330744362659844D-01,  1.265810122238417D-02, &
    8.843781920205257D-01,  7.681591801566370D-01,  3.367838185981432D-02, &
    8.775411599331090D-01,  4.195677919703100D-01,  4.701250942104521D-02, &
    9.082100522297584D-01,  4.460741468226298D-02,  4.492517531449552D-02, &
    7.763303548789647D-01, -4.810624802969050D-01,  3.017348276324992D-02, &
    7.230162511431557D-01, -7.596607824735281D-01,  4.911947899024260D-02, &
    7.562342329425361D-01, -9.545271924860271D-01,  1.392058621129393D-02, &
    8.327763332833239D-01,  9.863527280259253D-01,  8.265982196594024D-03, &
    7.412680367128046D-01,  8.954212932861624D-01,  3.350811254077402D-02, &
    7.400126973983402D-01,  6.111125638321177D-01,  5.811729500469508D-02, &
    7.414564617437679D-01,  1.965720776730482D-01,  7.150247641033709D-02, &
    7.867408087541262D-01, -1.930389785977610D-01,  6.417378369478929D-02, &
    5.369437186749637D-01, -6.314307127870589D-01,  4.820720884716240D-02, &
    5.461961159674565D-01, -8.910958585786000D-01,  4.010297901331633D-02, &
    7.505636824335776D-01, -9.781952487239193D-01,  5.423665310144266D-03, &
    5.668739124520142D-01,  9.769610350593898D-01,  1.855890684449772D-02, &
    5.608631907999050D-01,  7.717573834145061D-01,  5.676854811058375D-02, &
    5.612115855209996D-01,  4.088149453043886D-01,  8.333374346661079D-02, &
    5.661336430919435D-01, -4.176475015217607D-02,  9.157138052866115D-02, &
    6.134724653625782D-01, -4.169917924461408D-01,  6.572843506020827D-02, &
    3.374627534596129D-01, -7.953338524031655D-01,  4.698932393055661D-02, &
    5.506194243847290D-01, -9.906600094074560D-01,  6.956589831798293D-03, &
    3.682032600755504D-01,  8.998189655297543D-01,  4.291338908110833D-02, &
    3.503173557999109D-01,  6.043160593908300D-01,  8.199842424347994D-02, &
    3.484934492594987D-01,  1.842187014808652D-01,  1.042545147901201D-01, &
    3.599239753698877D-01, -2.793900622896136D-01,  1.003220388009486D-01, &
    3.352794040120309D-01, -6.090983723997480D-01,  5.250936392916155D-02, &
    1.648479846846835D-01, -9.222811023803827D-01,  3.600095811243217D-02, &
    3.409639556515009D-01, -9.775579820216516D-01,  1.513630382707296D-02, &
    2.013308254889806D-01,  9.817828174442371D-01,  1.803413215387369D-02, &
    1.340901732488610D-01,  7.766562660948982D-01,  6.844087294220280D-02, &
    1.144967045243097D-01,  4.069075707084039D-01,  1.019382263127832D-01, &
    1.189485784665626D-01, -5.433922354403713D-02,  1.136907024324531D-01, &
    1.058758908864689D-01, -4.793787778363424D-01,  9.348793573923811D-02, &
    2.839855852222449D-02, -7.559768193014593D-01,  6.803236606704954D-02, &
   -4.712493250696739D-02, -9.874476808665996D-01,  1.515020459751181D-02, &
   -1.410549552011679D-01,  9.945136764387909D-01,  7.185771234424889D-03, &
   -5.100979131120797D-02,  9.148649196209385D-01,  4.369402100644239D-02, &
   -1.137013612566373D-01,  6.139356044623114D-01,  8.777317450897354D-02, &
   -1.244170197023402D-01,  1.823653793283892D-01,  1.117684867762398D-01, &
   -1.370122651236654D-01, -2.712575708608372D-01,  1.085208525145446D-01, &
   -2.232031959837765D-01, -6.067425313332153D-01,  8.558870495241622D-02, &
   -1.940829548165339D-01, -8.901639697157221D-01,  4.867603590079570D-02, &
   -4.081653916012992D-01, -9.709368148205605D-01,  2.331260017933040D-02, &
   -3.533981306028999D-01,  9.616410187563108D-01,  2.242566292797548D-02, &
   -3.045652224491460D-01,  7.985802428860417D-01,  6.420737202085385D-02, &
   -3.526743970139553D-01,  4.146812551454919D-01,  9.787271335988859D-02, &
   -3.720004998868196D-01, -3.666778868685774D-02,  1.068882608071387D-01, &
   -4.514888617224385D-01, -4.096349836635951D-01,  9.192684575976928D-02, &
   -4.429908638318878D-01, -7.743729186166529D-01,  6.295500628522636D-02, &
   -6.815740834481019D-01, -9.928214216661736D-01,  7.026776085145282D-03, &
   -5.632109089288005D-01,  9.935896447624268D-01,  6.283490740799424D-03, &
   -5.621512958714884D-01,  8.896399470067906D-01,  3.761225364844008D-02, &
   -5.382057775784931D-01,  6.382212857626252D-01,  7.506638282008458D-02, &
   -5.813167555829912D-01,  2.056862702815186D-01,  9.243697007930982D-02, &
   -6.516405814152544D-01, -1.846901900997915D-01,  8.505041739260445D-02, &
   -6.506998051630787D-01, -6.087053290037806D-01,  6.818365853952568D-02, &
   -6.334805048429584D-01, -8.975976820838455D-01,  3.682517885499488D-02, &
   -7.472275238683430D-01,  9.641740358177714D-01,  1.669151214269935D-02, &
   -7.482067350979565D-01,  7.780755148965470D-01,  4.495260598024266D-02, &
   -7.400821884669309D-01,  4.532491832762973D-01,  6.928645874800578D-02, &
   -8.105044748991020D-01,  5.416962245544283D-02,  6.619505274805781D-02, &
   -8.156792303551951D-01, -4.060746003340047D-01,  6.042829810764130D-02, &
   -8.090136873528386D-01, -7.748312229117293D-01,  4.151899530758620D-02, &
   -8.335513136071991D-01, -9.535072625443444D-01,  1.514946999120562D-02, &
   -8.872174992437346D-01,  8.965769271361460D-01,  2.104433235476698D-02, &
   -8.931086765195151D-01,  6.328025905174818D-01,  3.860028858677801D-02, &
   -8.916333811989803D-01,  3.038140953910366D-01,  2.786266023247349D-02, &
   -9.292789589232818D-01, -1.761834888463487D-01,  4.117008802426377D-02, &
   -9.292197203932411D-01, -6.069529981720342D-01,  3.315912528944302D-02, &
   -9.385590119112288D-01, -8.777667192165588D-01,  1.580481441801968D-02, &
   -9.284304209620261D-01, -9.951824052865140D-01,  2.664793505134054D-03, &
   -9.053874905610783D-01,  9.962748823261235D-01,  3.593987239589643D-03, &
   -9.747952911035821D-01,  7.907984327057133D-01,  1.405694455607466D-02, &
   -9.866861855312228D-01,  5.118586070736004D-01,  1.306184877568784D-02, &
   -9.863703578500000D-01,  6.111749406829102D-02,  1.559138821480461D-02, &
   -9.889270365025400D-01, -3.994782279754348D-01,  1.342812184963877D-02, &
   -9.908021213083021D-01, -7.596541692019284D-01,  7.741415848728735D-03, &
   -9.815692523507022D-01,  9.572922384144454D-01,  5.171764118207254D-03, &
   -9.471376718841760D-01,  2.927695425907414D-01,  2.000641714794302D-02, &
   -9.874787306662429D-01, -9.621211118728035D-01,  3.377128849473962D-03 /)

  return
end
subroutine smr23 ( xyw )

!*****************************************************************************80
!
!! SMR23 returns the SMR rule of degree 23.
!
!  Discussion:
!
!    DEGREE: 23
!    ROTATIONALLY INVARIANT: (X,  Y),  (-Y,  X),  (-X, -Y),  (Y, -X).
!    POINTS CARDINALITY: 96
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*96), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*96)

  xyw = (/ &
    1.853314713323298D-01, -1.194182324265387D-02,  6.529202325372914D-02, &
    1.659642315868930D-01,  3.367719887764350D-01,  6.231767492170222D-02, &
    9.876738163488666D-02,  8.306969615801286D-01,  6.201416548818468D-02, &
    8.869002322225777D-02,  9.854102218186098D-01,  1.324109920098785D-02, &
    3.982734759789451D-01,  1.335875115514376D-01,  6.923888037215149D-02, &
    2.307675985221515D-01,  5.659053189940804D-01,  7.857529731333650D-02, &
    4.154938603680680D-01,  7.488761930933899D-01,  6.583136220575310D-02, &
    3.258331163946451D-01,  9.405377066569092D-01,  3.516290651110937D-02, &
    4.718068156165912D-01,  3.742733716935872D-01,  7.391201672123172D-02, &
    6.214843667854110D-01,  5.757611415753823D-01,  6.633209783965152D-02, &
    6.111965358277813D-01,  8.835074910197936D-01,  4.096440841363334D-02, &
    5.425835924085424D-01,  9.934011708856250D-01,  9.791218112671066D-03, &
    6.454787887214178D-01,  7.290903205395782D-02,  7.527535021842932D-02, &
    7.663883133711373D-01,  3.281528217933192D-01,  6.564383307544155D-02, &
    7.763362157153701D-01,  7.457829318163177D-01,  4.507790595281267D-02, &
    7.869974305642068D-01,  9.638578123979478D-01,  1.814838304609862D-02, &
    9.212736070974256D-01,  1.716486762023320D-01,  4.117445213281692D-02, &
    8.886542125222323D-01,  5.442346685704154D-01,  4.215575969073930D-02, &
    9.057049801164405D-01,  8.685411402721253D-01,  2.274825956928111D-02, &
    9.457512810375365D-01,  9.860275528096041D-01,  5.078778817313888D-03, &
    9.878935301664215D-01,  7.759170798217239D-02,  4.765144456210194D-03, &
    9.836661500284433D-01,  4.041056452269987D-01,  1.596460029217852D-02, &
    9.734962304125074D-01,  7.140118690494257D-01,  1.705297096357996D-02, &
    9.936548069316368D-01,  9.210767826681668D-01,  4.241411430955866D-03, &
    1.194182324265387D-02,  1.853314713323298D-01,  6.529202325372914D-02, &
   -3.367719887764350D-01,  1.659642315868930D-01,  6.231767492170222D-02, &
   -8.306969615801286D-01,  9.876738163488666D-02,  6.201416548818468D-02, &
   -9.854102218186098D-01,  8.869002322225777D-02,  1.324109920098785D-02, &
   -1.335875115514376D-01,  3.982734759789451D-01,  6.923888037215149D-02, &
   -5.659053189940804D-01,  2.307675985221515D-01,  7.857529731333650D-02, &
   -7.488761930933899D-01,  4.154938603680680D-01,  6.583136220575310D-02, &
   -9.405377066569092D-01,  3.258331163946451D-01,  3.516290651110937D-02, &
   -3.742733716935872D-01,  4.718068156165912D-01,  7.391201672123172D-02, &
   -5.757611415753823D-01,  6.214843667854110D-01,  6.633209783965152D-02, &
   -8.835074910197936D-01,  6.111965358277813D-01,  4.096440841363334D-02, &
   -9.934011708856250D-01,  5.425835924085424D-01,  9.791218112671066D-03, &
   -7.290903205395782D-02,  6.454787887214178D-01,  7.527535021842932D-02, &
   -3.281528217933192D-01,  7.663883133711373D-01,  6.564383307544155D-02, &
   -7.457829318163177D-01,  7.763362157153701D-01,  4.507790595281267D-02, &
   -9.638578123979478D-01,  7.869974305642068D-01,  1.814838304609862D-02, &
   -1.716486762023320D-01,  9.212736070974256D-01,  4.117445213281692D-02, &
   -5.442346685704154D-01,  8.886542125222323D-01,  4.215575969073930D-02, &
   -8.685411402721253D-01,  9.057049801164405D-01,  2.274825956928111D-02, &
   -9.860275528096041D-01,  9.457512810375365D-01,  5.078778817313888D-03, &
   -7.759170798217239D-02,  9.878935301664215D-01,  4.765144456210194D-03, &
   -4.041056452269987D-01,  9.836661500284433D-01,  1.596460029217852D-02, &
   -7.140118690494257D-01,  9.734962304125074D-01,  1.705297096357996D-02, &
   -9.210767826681668D-01,  9.936548069316368D-01,  4.241411430955866D-03, &
   -1.853314713323298D-01,  1.194182324265387D-02,  6.529202325372914D-02, &
   -1.659642315868930D-01, -3.367719887764350D-01,  6.231767492170222D-02, &
   -9.876738163488666D-02, -8.306969615801286D-01,  6.201416548818468D-02, &
   -8.869002322225777D-02, -9.854102218186098D-01,  1.324109920098785D-02, &
   -3.982734759789451D-01, -1.335875115514376D-01,  6.923888037215149D-02, &
   -2.307675985221515D-01, -5.659053189940804D-01,  7.857529731333650D-02, &
   -4.154938603680680D-01, -7.488761930933899D-01,  6.583136220575310D-02, &
   -3.258331163946451D-01, -9.405377066569092D-01,  3.516290651110937D-02, &
   -4.718068156165912D-01, -3.742733716935872D-01,  7.391201672123172D-02, &
   -6.214843667854110D-01, -5.757611415753823D-01,  6.633209783965152D-02, &
   -6.111965358277813D-01, -8.835074910197936D-01,  4.096440841363334D-02, &
   -5.425835924085424D-01, -9.934011708856250D-01,  9.791218112671066D-03, &
   -6.454787887214178D-01, -7.290903205395782D-02,  7.527535021842932D-02, &
   -7.663883133711373D-01, -3.281528217933192D-01,  6.564383307544155D-02, &
   -7.763362157153701D-01, -7.457829318163177D-01,  4.507790595281267D-02, &
   -7.869974305642068D-01, -9.638578123979478D-01,  1.814838304609862D-02, &
   -9.212736070974256D-01, -1.716486762023320D-01,  4.117445213281692D-02, &
   -8.886542125222323D-01, -5.442346685704154D-01,  4.215575969073930D-02, &
   -9.057049801164405D-01, -8.685411402721253D-01,  2.274825956928111D-02, &
   -9.457512810375365D-01, -9.860275528096041D-01,  5.078778817313888D-03, &
   -9.878935301664215D-01, -7.759170798217239D-02,  4.765144456210194D-03, &
   -9.836661500284433D-01, -4.041056452269987D-01,  1.596460029217852D-02, &
   -9.734962304125074D-01, -7.140118690494257D-01,  1.705297096357996D-02, &
   -9.936548069316368D-01, -9.210767826681668D-01,  4.241411430955866D-03, &
   -1.194182324265387D-02, -1.853314713323298D-01,  6.529202325372914D-02, &
    3.367719887764350D-01, -1.659642315868930D-01,  6.231767492170222D-02, &
    8.306969615801286D-01, -9.876738163488666D-02,  6.201416548818468D-02, &
    9.854102218186098D-01, -8.869002322225777D-02,  1.324109920098785D-02, &
    1.335875115514376D-01, -3.982734759789451D-01,  6.923888037215149D-02, &
    5.659053189940804D-01, -2.307675985221515D-01,  7.857529731333650D-02, &
    7.488761930933899D-01, -4.154938603680680D-01,  6.583136220575310D-02, &
    9.405377066569092D-01, -3.258331163946451D-01,  3.516290651110937D-02, &
    3.742733716935872D-01, -4.718068156165912D-01,  7.391201672123172D-02, &
    5.757611415753823D-01, -6.214843667854110D-01,  6.633209783965152D-02, &
    8.835074910197936D-01, -6.111965358277813D-01,  4.096440841363334D-02, &
    9.934011708856250D-01, -5.425835924085424D-01,  9.791218112671066D-03, &
    7.290903205395782D-02, -6.454787887214178D-01,  7.527535021842932D-02, &
    3.281528217933192D-01, -7.663883133711373D-01,  6.564383307544155D-02, &
    7.457829318163177D-01, -7.763362157153701D-01,  4.507790595281267D-02, &
    9.638578123979478D-01, -7.869974305642068D-01,  1.814838304609862D-02, &
    1.716486762023320D-01, -9.212736070974256D-01,  4.117445213281692D-02, &
    5.442346685704154D-01, -8.886542125222323D-01,  4.215575969073930D-02, &
    8.685411402721253D-01, -9.057049801164405D-01,  2.274825956928111D-02, &
    9.860275528096041D-01, -9.457512810375365D-01,  5.078778817313888D-03, &
    7.759170798217239D-02, -9.878935301664215D-01,  4.765144456210194D-03, &
    4.041056452269987D-01, -9.836661500284433D-01,  1.596460029217852D-02, &
    7.140118690494257D-01, -9.734962304125074D-01,  1.705297096357996D-02, &
    9.210767826681668D-01, -9.936548069316368D-01,  4.241411430955866D-03 /)

  return
end
subroutine smr24 ( xyw )

!*****************************************************************************80
!
!! SMR24 returns the SMR rule of degree 24.
!
!  Discussion:
!
!    DEGREE: 24
!    POINTS CARDINALITY: 109
!    NORM INF MOMS. RESIDUAL: 1.33227e-15
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*109), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*109)

  xyw = (/ &
   -9.947552488434938D-01, -4.385704490896414D-01,  2.698557791124145D-03, &
   -9.931097629772323D-01,  6.703739358435329D-01,  7.377682774083533D-03, &
   -9.926803856666530D-01,  2.074620875386726D-01,  6.953676686934647D-03, &
   -9.906389564778285D-01,  9.389787594673664D-01,  4.005676169355294D-03, &
   -9.853982980908041D-01, -1.546975310338203D-01,  1.391680440670080D-02, &
   -9.837508975466611D-01, -8.419003469340943D-01,  8.844680842740435D-03, &
   -9.834972384053117D-01, -5.844467591604228D-01,  1.101492580337329D-02, &
   -9.818922098458703D-01, -9.808906804560406D-01,  2.833762301624789D-03, &
   -9.737197710731226D-01,  3.846778957131831D-01,  1.346113092355880D-02, &
   -9.500074961120746D-01,  8.209864656561424D-01,  1.735987104490214D-02, &
   -9.403701834437002D-01,  9.898046509843106D-01,  4.134638994139726D-03, &
   -9.322891009559756D-01,  6.891056205665078D-02,  3.385109951711678D-02, &
   -9.291432442434125D-01, -3.649292941055270D-01,  3.313278955371516D-02, &
   -9.278770514198088D-01,  5.372507215773373D-01,  2.595775803019849D-02, &
   -9.160984294365914D-01, -7.088454133225529D-01,  2.740072723324332D-02, &
   -9.158788280467461D-01, -9.354605631847065D-01,  1.341647825529986D-02, &
   -8.614049341981235D-01,  9.223186488292008D-01,  1.828556090710842D-02, &
   -8.411326781777169D-01,  2.986796133696130D-01,  5.109735452042367D-02, &
   -8.399585109946057D-01,  6.941827653602577D-01,  3.578648643426428D-02, &
   -8.284250818876616D-01, -1.413597089673544D-01,  5.450666609336831D-02, &
   -8.258893393997301D-01, -9.946839974593770D-01,  5.524951523211650D-03, &
   -8.061244501112171D-01, -5.249750016790736D-01,  5.069979449576008D-02, &
   -8.039912747312149D-01, -8.393703760802331D-01,  3.118857585337858D-02, &
   -7.503800600330690D-01,  9.808995135027622D-01,  1.020614373666720D-02, &
   -7.159580396066608D-01,  8.204005009530653D-01,  3.345975676433573D-02, &
   -7.066954614920985D-01,  5.015305614605768D-01,  6.001952691278750D-02, &
   -6.885485793465114D-01,  9.202328849593100D-02,  7.346166114914886D-02, &
   -6.800088501791149D-01, -9.443640836874199D-01,  2.298808927262541D-02, &
   -6.560939841533527D-01, -3.083819563661853D-01,  7.136431171052350D-02, &
   -6.549319709970016D-01, -6.928080924969605D-01,  5.352097766179938D-02, &
   -5.986758659840633D-01,  9.036887631193311D-01,  2.206238875433044D-02, &
   -5.440986421726908D-01,  6.690288689480005D-01,  5.524621622310746D-02, &
   -5.421013331274553D-01,  9.805973671548335D-01,  1.050046021811538D-02, &
   -5.117472121011815D-01,  3.140452735180922D-01,  8.289952810298720D-02, &
   -5.059194733599800D-01, -9.837457937119135D-01,  1.096035229919467D-02, &
   -4.980272781651189D-01, -8.405454275729934D-01,  4.487909208174960D-02, &
   -4.827305043646576D-01, -4.980524078016305D-01,  7.003741329201849D-02, &
   -4.657032616378755D-01, -8.311620500718582D-02,  9.203159768871901D-02, &
   -3.984335431880944D-01,  7.823560336425450D-01,  3.533735180399633D-02, &
   -3.812251842054403D-01,  9.211692018557595D-01,  2.479377740140328D-02, &
   -3.254324649968378D-01, -6.106485217368141D-01,  1.987123465724002D-02, &
   -3.081376572739211D-01,  5.152565145304252D-01,  8.148061878192561D-02, &
   -3.061609471247951D-01, -9.953099499439115D-01,  4.421627578115842D-03, &
   -3.040806099754977D-01, -6.945205873058414D-01,  4.874084869821138D-02, &
   -3.040627168926376D-01, -9.238254614973810D-01,  2.731221830374910D-02, &
   -2.730267547433428D-01,  9.914365779967292D-01,  9.183887978612177D-03, &
   -2.548424890251378D-01, -3.019158326395579D-01,  9.514384875199645D-02, &
   -2.519554856003144D-01,  1.492385558662303D-01,  1.000641506538448D-01, &
   -1.931995209634114D-01,  8.232643617111496D-01,  3.769059900817138D-02, &
   -1.885349353760669D-01, -8.893470388562837D-01,  8.285027518755494D-03, &
   -1.018544959716391D-01, -7.832201508773523D-01,  4.767805838303123D-02, &
   -9.655685106805004D-02,  6.703558020663598D-01,  5.541671674358566D-02, &
   -7.901309787694769D-02, -9.687392227645953D-01,  1.819078482187320D-02, &
   -7.169337674372403D-02,  9.452615682987324D-01,  2.860240343608491D-02, &
   -4.349902330261272D-02, -5.144306594431935D-01,  8.777502677071561D-02, &
   -2.884848343031785D-02, -7.515483993225638D-02,  1.033082821984657D-01, &
   -1.950518268267537D-02,  3.687032706515938D-01,  9.771287132446460D-02, &
    1.000713405257931D-01, -8.778592595775899D-01,  4.025365288851937D-02, &
    1.288386576225213D-01,  8.499166400570952D-01,  4.727125786790465D-02, &
    1.307155265497598D-01, -9.938241813833318D-01,  7.039833852159185D-03, &
    1.308425147211156D-01,  6.526807421421726D-01,  4.979273601404909D-02, &
    1.451164406166477D-01,  9.905591807186089D-01,  1.078258330904423D-02, &
    1.853995153478054D-01, -3.035646033025806D-01,  9.690391758696711D-02, &
    1.943247761163270D-01, -6.769527305130935D-01,  7.109638809439672D-02, &
    2.052879132552834D-01,  1.494567879060908D-01,  1.010903998636895D-01, &
    2.768585369952569D-01,  5.067311062472540D-01,  6.479712852470575D-02, &
    3.149836876173980D-01, -9.498509878332206D-01,  2.600605597250065D-02, &
    3.466439434503832D-01,  9.410184803711036D-01,  2.912818672968244D-02, &
    3.903088921667896D-01,  4.250693093572162D-01,  2.571049499832495D-02, &
    3.993865541451484D-01,  7.683264787575288D-01,  5.493699586057709D-02, &
    4.086593369430472D-01, -4.969944946335217D-01,  7.910634640474691D-02, &
    4.120045473805335D-01, -8.379854233451292D-02,  9.482614431233395D-02, &
    4.170298041496714D-01, -8.110827678737819D-01,  5.059001095427527D-02, &
    4.991948804043371D-01,  2.844383580006540D-01,  7.600131857765238D-02, &
    5.215718300412919D-01, -9.911476542754794D-01,  8.938791600642888D-03, &
    5.358795456370800D-01,  9.892706596240752D-01,  9.652257973711614D-03, &
    5.675663650098263D-01,  6.269930547839709D-01,  5.565333636824790D-02, &
    6.083113501735691D-01, -6.671573460757463D-01,  5.724631842495273D-02, &
    6.091213803480886D-01, -3.002786277521432D-01,  7.620974249495195D-02, &
    6.098130539524327D-01,  8.880641734983817D-01,  3.607781947134865D-02, &
    6.133229089892412D-01, -9.115716813284614D-01,  2.976045072649638D-02, &
    6.644692975845461D-01,  7.278284636752541D-02,  7.402473800633137D-02, &
    7.058360022640749D-01,  4.736368348307747D-01,  5.128474162165504D-02, &
    7.603978094655672D-01,  7.687530787837937D-01,  3.987086504850027D-02, &
    7.680081930648918D-01,  9.719796486153569D-01,  1.425802911781755D-02, &
    7.730566152310493D-01, -8.076103665001979D-01,  3.513944563783513D-02, &
    7.740524973445363D-01, -5.000787609526253D-01,  5.331933422231531D-02, &
    7.765031539359070D-01, -9.744702466310179D-01,  1.298770336406751D-02, &
    8.105891537849745D-01, -1.496106096240346D-01,  5.659879783131575D-02, &
    8.136030860267544D-01,  2.997934729123835D-01,  4.597071032159282D-02, &
    8.738296548638522D-01,  6.252207344858673D-01,  3.235229209061567D-02, &
    8.820767009721266D-01,  8.997350185706089D-01,  1.969080467560540D-02, &
    8.968725800328660D-01, -6.749357059674395D-01,  3.049246549718226D-02, &
    9.008567820439595D-01, -9.076509501580650D-01,  1.724041843190777D-02, &
    9.036351991894711D-01,  1.066673951092828D-01,  3.553262749083069D-02, &
    9.194113498715898D-01, -3.652426921938732D-01,  3.438229944741761D-02, &
    9.235901436599459D-01,  4.967015317618840D-01,  1.373744804296171D-02, &
    9.328830195971040D-01, -9.941380940892665D-01,  2.989382978667606D-03, &
    9.404372628037821D-01,  9.889603686778536D-01,  4.443564861581591D-03, &
    9.607926125333919D-01,  7.879019305115507D-01,  1.649904214759328D-02, &
    9.627435059550357D-01,  3.759293384523862D-01,  1.893234461167443D-02, &
    9.661246051400586D-01, -9.321465960805159D-02,  2.021199306716822D-02, &
    9.772105063681134D-01, -8.054188902050837D-01,  1.143950510739337D-02, &
    9.818083790572272D-01, -5.613562549296841D-01,  1.303588980687769D-02, &
    9.873606864519788D-01, -9.558632391723191D-01,  3.650162385277064D-03, &
    9.909481727417117D-01,  9.350098107984304D-01,  4.199764168210779D-03, &
    9.933228865506706D-01,  1.717028973685849D-01,  7.977198513429708D-03, &
    9.934734927244968D-01,  6.113673375988821D-01,  7.151800672626832D-03, &
    9.958206097496789D-01, -2.883979781434184D-01,  5.617961121686336D-03 /)

  return
end
subroutine smr25 ( xyw )

!*****************************************************************************80
!
!! SMR25 returns the SMR rule of degree 25.
!
!  Discussion:
!
!    DEGREE: 25
!    ROTATIONALLY INVARIANT: (X,  Y),  (-Y,  X),  (-X, -Y),  (Y, -X).
!    POINTS CARDINALITY: 113
!    NORM INF MOMS. RESIDUAL: 2.04121e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*113), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*113)

  xyw = (/ &
    2.408979561244244D-01,  4.202921149345177D-01,  8.649643596540968D-02, &
    2.718022358106373D-01,  7.547569098063632D-01,  5.930450471454697D-02, &
    2.949651173549945D-01,  9.557139743958390D-01,  2.492523876506716D-02, &
    4.390520493777193D-01,  2.026918805813806D-01,  8.650651080976479D-02, &
    4.662064901266157D-01,  5.942245210433184D-01,  6.800866187330593D-02, &
    4.830786617878046D-01,  8.732633185547312D-01,  3.820005521117373D-02, &
    5.045376712354956D-01,  9.940169417092007D-01,  7.120126112016729D-03, &
    7.757488163218268D-01,  1.779409708250335D-01,  5.827884791218824D-02, &
    6.369947479572929D-01,  4.005073391747475D-01,  6.761649569671979D-02, &
    6.535675504807226D-01,  7.533634302760710D-01,  4.601021918794469D-02, &
    6.595342990537197D-01,  9.508745400630684D-01,  1.723971223901597D-02, &
    7.906371918772621D-01,  5.934656821653986D-01,  4.568246307970081D-02, &
    8.055336482199160D-01,  8.773080252379840D-01,  2.484701585804588D-02, &
    7.535373835857363D-01,  9.795331551151395D-01,  4.313716122504384D-03, &
    9.564646592216111D-01,  1.571205964662031D-01,  2.535428637556193D-02, &
    8.902743405153437D-01,  3.914673487680078D-01,  3.753743912008318D-02, &
    9.033639329394400D-01,  7.595177874407598D-01,  2.457091299936516D-02, &
    9.372983112686489D-01,  9.385069580562527D-01,  1.007243031836228D-02, &
    8.636461603424476D-01,  9.896801193034730D-01,  4.961458044877222D-03, &
    9.938360564492993D-01,  3.750300609078687D-01,  7.598805738926257D-03, &
    9.619543373713801D-01,  5.836819379362060D-01,  1.776328589308987D-02, &
    9.918091540820021D-01,  7.176122922535305D-01,  3.747585881528770D-03, &
    9.847916123916505D-01,  8.571417379883992D-01,  6.289982457940641D-03, &
    9.885652833157735D-01,  9.860593798999778D-01,  1.697350354991505D-03, &
    9.233777086225921D-03,  2.208671709154587D-01,  9.688701249182402D-02, &
    3.041113022131709D-02,  6.137415273447637D-01,  7.643513771616485D-02, &
    6.708941821053316D-02,  8.786573477860689D-01,  4.373962481400533D-02, &
    7.276240742442623D-02,  9.928846185998859D-01,  8.791036677341798D-03, &
   -4.202921149345177D-01,  2.408979561244244D-01,  8.649643596540968D-02, &
   -7.547569098063632D-01,  2.718022358106373D-01,  5.930450471454697D-02, &
   -9.557139743958390D-01,  2.949651173549945D-01,  2.492523876506716D-02, &
   -2.026918805813806D-01,  4.390520493777193D-01,  8.650651080976479D-02, &
   -5.942245210433184D-01,  4.662064901266157D-01,  6.800866187330593D-02, &
   -8.732633185547312D-01,  4.830786617878046D-01,  3.820005521117373D-02, &
   -9.940169417092007D-01,  5.045376712354956D-01,  7.120126112016729D-03, &
   -1.779409708250335D-01,  7.757488163218268D-01,  5.827884791218824D-02, &
   -4.005073391747475D-01,  6.369947479572929D-01,  6.761649569671979D-02, &
   -7.533634302760710D-01,  6.535675504807226D-01,  4.601021918794469D-02, &
   -9.508745400630684D-01,  6.595342990537197D-01,  1.723971223901597D-02, &
   -5.934656821653986D-01,  7.906371918772621D-01,  4.568246307970081D-02, &
   -8.773080252379840D-01,  8.055336482199160D-01,  2.484701585804588D-02, &
   -9.795331551151395D-01,  7.535373835857363D-01,  4.313716122504384D-03, &
   -1.571205964662031D-01,  9.564646592216111D-01,  2.535428637556193D-02, &
   -3.914673487680078D-01,  8.902743405153437D-01,  3.753743912008318D-02, &
   -7.595177874407598D-01,  9.033639329394400D-01,  2.457091299936516D-02, &
   -9.385069580562527D-01,  9.372983112686489D-01,  1.007243031836228D-02, &
   -9.896801193034730D-01,  8.636461603424476D-01,  4.961458044877222D-03, &
   -3.750300609078687D-01,  9.938360564492993D-01,  7.598805738926257D-03, &
   -5.836819379362060D-01,  9.619543373713801D-01,  1.776328589308987D-02, &
   -7.176122922535305D-01,  9.918091540820021D-01,  3.747585881528770D-03, &
   -8.571417379883992D-01,  9.847916123916505D-01,  6.289982457940641D-03, &
   -9.860593798999778D-01,  9.885652833157735D-01,  1.697350354991505D-03, &
   -2.208671709154587D-01,  9.233777086225921D-03,  9.688701249182402D-02, &
   -6.137415273447637D-01,  3.041113022131709D-02,  7.643513771616485D-02, &
   -8.786573477860689D-01,  6.708941821053316D-02,  4.373962481400533D-02, &
   -9.928846185998859D-01,  7.276240742442623D-02,  8.791036677341798D-03, &
   -2.408979561244244D-01, -4.202921149345177D-01,  8.649643596540968D-02, &
   -2.718022358106373D-01, -7.547569098063632D-01,  5.930450471454697D-02, &
   -2.949651173549945D-01, -9.557139743958390D-01,  2.492523876506716D-02, &
   -4.390520493777193D-01, -2.026918805813806D-01,  8.650651080976479D-02, &
   -4.662064901266157D-01, -5.942245210433184D-01,  6.800866187330593D-02, &
   -4.830786617878046D-01, -8.732633185547312D-01,  3.820005521117373D-02, &
   -5.045376712354956D-01, -9.940169417092007D-01,  7.120126112016729D-03, &
   -7.757488163218268D-01, -1.779409708250335D-01,  5.827884791218824D-02, &
   -6.369947479572929D-01, -4.005073391747475D-01,  6.761649569671979D-02, &
   -6.535675504807226D-01, -7.533634302760710D-01,  4.601021918794469D-02, &
   -6.595342990537197D-01, -9.508745400630684D-01,  1.723971223901597D-02, &
   -7.906371918772621D-01, -5.934656821653986D-01,  4.568246307970081D-02, &
   -8.055336482199160D-01, -8.773080252379840D-01,  2.484701585804588D-02, &
   -7.535373835857363D-01, -9.795331551151395D-01,  4.313716122504384D-03, &
   -9.564646592216111D-01, -1.571205964662031D-01,  2.535428637556193D-02, &
   -8.902743405153437D-01, -3.914673487680078D-01,  3.753743912008318D-02, &
   -9.033639329394400D-01, -7.595177874407598D-01,  2.457091299936516D-02, &
   -9.372983112686489D-01, -9.385069580562527D-01,  1.007243031836228D-02, &
   -8.636461603424476D-01, -9.896801193034730D-01,  4.961458044877222D-03, &
   -9.938360564492993D-01, -3.750300609078687D-01,  7.598805738926257D-03, &
   -9.619543373713801D-01, -5.836819379362060D-01,  1.776328589308987D-02, &
   -9.918091540820021D-01, -7.176122922535305D-01,  3.747585881528770D-03, &
   -9.847916123916505D-01, -8.571417379883992D-01,  6.289982457940641D-03, &
   -9.885652833157735D-01, -9.860593798999778D-01,  1.697350354991505D-03, &
   -9.233777086225921D-03, -2.208671709154587D-01,  9.688701249182402D-02, &
   -3.041113022131709D-02, -6.137415273447637D-01,  7.643513771616485D-02, &
   -6.708941821053316D-02, -8.786573477860689D-01,  4.373962481400533D-02, &
   -7.276240742442623D-02, -9.928846185998859D-01,  8.791036677341798D-03, &
    4.202921149345177D-01, -2.408979561244244D-01,  8.649643596540968D-02, &
    7.547569098063632D-01, -2.718022358106373D-01,  5.930450471454697D-02, &
    9.557139743958390D-01, -2.949651173549945D-01,  2.492523876506716D-02, &
    2.026918805813806D-01, -4.390520493777193D-01,  8.650651080976479D-02, &
    5.942245210433184D-01, -4.662064901266157D-01,  6.800866187330593D-02, &
    8.732633185547312D-01, -4.830786617878046D-01,  3.820005521117373D-02, &
    9.940169417092007D-01, -5.045376712354956D-01,  7.120126112016729D-03, &
    1.779409708250335D-01, -7.757488163218268D-01,  5.827884791218824D-02, &
    4.005073391747475D-01, -6.369947479572929D-01,  6.761649569671979D-02, &
    7.533634302760710D-01, -6.535675504807226D-01,  4.601021918794469D-02, &
    9.508745400630684D-01, -6.595342990537197D-01,  1.723971223901597D-02, &
    5.934656821653986D-01, -7.906371918772621D-01,  4.568246307970081D-02, &
    8.773080252379840D-01, -8.055336482199160D-01,  2.484701585804588D-02, &
    9.795331551151395D-01, -7.535373835857363D-01,  4.313716122504384D-03, &
    1.571205964662031D-01, -9.564646592216111D-01,  2.535428637556193D-02, &
    3.914673487680078D-01, -8.902743405153437D-01,  3.753743912008318D-02, &
    7.595177874407598D-01, -9.033639329394400D-01,  2.457091299936516D-02, &
    9.385069580562527D-01, -9.372983112686489D-01,  1.007243031836228D-02, &
    9.896801193034730D-01, -8.636461603424476D-01,  4.961458044877222D-03, &
    3.750300609078687D-01, -9.938360564492993D-01,  7.598805738926257D-03, &
    5.836819379362060D-01, -9.619543373713801D-01,  1.776328589308987D-02, &
    7.176122922535305D-01, -9.918091540820021D-01,  3.747585881528770D-03, &
    8.571417379883992D-01, -9.847916123916505D-01,  6.289982457940641D-03, &
    9.860593798999778D-01, -9.885652833157735D-01,  1.697350354991505D-03, &
    2.208671709154587D-01, -9.233777086225921D-03,  9.688701249182402D-02, &
    6.137415273447637D-01, -3.041113022131709D-02,  7.643513771616485D-02, &
    8.786573477860689D-01, -6.708941821053316D-02,  4.373962481400533D-02, &
    9.928846185998859D-01, -7.276240742442623D-02,  8.791036677341798D-03, &
    0.000000000000000D+00,  0.000000000000000D+00,  1.459027412974250D-05 /)

  return
end
subroutine smr26 ( xyw )

!*****************************************************************************80
!
!! SMR26 returns the SMR rule of degree 26.
!
!  Discussion:
!
!    DEGREE: 26
!    POINTS CARDINALITY: 127
!    NORM INF MOMS. RESIDUAL: 2.72785e-16
!    SUM NEGATIVE WEIGHTS: 0
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*127), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*127)

  xyw = (/ &
   -9.954149432053586D-01, -8.467950645561364D-01,  3.684914976298696D-03, &
   -9.951846316463983D-01,  4.962239287417011D-01,  5.769468055434405D-03, &
   -9.946910061010343D-01, -2.554039039018801D-01,  5.732088976456913D-03, &
   -9.919373759022915D-01,  1.036499274958413D-01,  7.852213957780449D-03, &
   -9.906494815143384D-01,  8.649856906058798D-01,  5.121508648969548D-03, &
   -9.896255204784331D-01, -5.367353086290219D-01,  7.653897829024368D-03, &
   -9.883067004873612D-01,  9.892991458592666D-01,  1.353489163893612D-03, &
   -9.871269120799574D-01, -9.856243972746432D-01,  1.601609521006031D-03, &
   -9.688175505639893D-01,  6.876579842845731D-01,  1.481263227905701D-02, &
   -9.623107235333284D-01, -7.113315046485157D-01,  1.467102553035195D-02, &
   -9.594699050132816D-01,  3.158494085062999D-01,  2.066592783625548D-02, &
   -9.556340329654068D-01, -8.022603946161568D-02,  2.057995991913653D-02, &
   -9.551530447389018D-01, -9.306484497591768D-01,  8.053489843056318D-03, &
   -9.424969861668707D-01,  9.469477514122181D-01,  8.919732609121192D-03, &
   -9.420253084162512D-01, -3.677325230608104D-01,  2.273184282144351D-02, &
   -8.987320916561362D-01,  8.122593786261580D-01,  2.096666902511633D-02, &
   -8.958607050863848D-01,  5.192884077130218D-01,  3.251925598993868D-02, &
   -8.896472695790547D-01, -8.337317899908271D-01,  1.954814636274032D-02, &
   -8.855870754573025D-01, -5.696730697875062D-01,  2.769715991416717D-02, &
   -8.851975534775430D-01, -9.861706664088894D-01,  5.503686420382153D-03, &
   -8.824869023397663D-01,  1.313680696309325D-01,  3.733200212029421D-02, &
   -8.536298178066737D-01,  9.912818948096804D-01,  5.124303871062341D-03, &
   -8.470126989959706D-01, -1.751543370107349D-01,  3.903031857246672D-02, &
   -7.935791896852771D-01,  9.085946391105678D-01,  2.070806621666239D-02, &
   -7.916311495402206D-01, -4.081621366651574D-01,  3.398634661189039D-02, &
   -7.861405619098327D-01, -9.316104713801209D-01,  1.770750778349851D-02, &
   -7.844763488387392D-01,  6.770066879653323D-01,  3.909373917813275D-02, &
   -7.812595515556915D-01, -7.208792112743798D-01,  3.206208479847047D-02, &
   -7.750802181046658D-01,  3.380282238952111D-01,  5.215291009390418D-02, &
   -7.135764412117650D-01,  1.416925255648272D-02,  5.853608843151761D-02, &
   -6.828943144695906D-01, -9.907384181599451D-01,  6.548608319199373D-03, &
   -6.658796622951563D-01, -5.739095648918578D-01,  4.128887088242855D-02, &
   -6.601473080396085D-01,  9.720448999511093D-01,  1.432353654588031D-02, &
   -6.579506062388087D-01, -2.844859212870189D-01,  4.720582197472361D-02, &
   -6.479646319399198D-01, -8.498157318331752D-01,  3.083452896969299D-02, &
   -6.397790086368259D-01,  8.094061184323337D-01,  3.847861173239278D-02, &
   -6.249362696077773D-01,  5.216217958951045D-01,  5.859572334726999D-02, &
   -5.576842250639873D-01,  2.121572188446747D-01,  6.977200243841351D-02, &
   -5.231225720726088D-01, -9.559709376266402D-01,  1.921032430496192D-02, &
   -5.108013542724835D-01, -7.271185268803120D-01,  4.267920181533953D-02, &
   -4.958822443640539D-01, -1.352950226786132D-01,  6.727743365041994D-02, &
   -4.903913278322852D-01, -4.632593578701779D-01,  5.398148692009514D-02, &
   -4.716786109784886D-01,  9.096410577420503D-01,  3.072280881059000D-02, &
   -4.571089728524948D-01,  9.962395125952335D-01,  5.314155662552198D-03, &
   -4.458359027750944D-01,  6.845878478236567D-01,  5.741502788464329D-02, &
   -3.761204219053791D-01,  4.027492188232445D-01,  7.244352535381400D-02, &
   -3.757270438769368D-01, -8.813300989750833D-01,  2.864804532479737D-02, &
   -3.233151458448575D-01, -9.924702614510548D-01,  8.376460295913149D-03, &
   -3.214177198641322D-01,  5.465196421581072D-02,  7.825743561587792D-02, &
   -3.079596913747666D-01, -6.299193766661012D-01,  5.253252015129221D-02, &
   -2.908499987046121D-01, -3.299468222568143D-01,  7.147473944911664D-02, &
   -2.711488527112555D-01, -8.141343465894294D-01,  2.066316039292166D-02, &
   -2.621892153300335D-01,  9.646535606685744D-01,  1.798911598012612D-02, &
   -2.481167506627375D-01,  8.186440564336724D-01,  4.859943151527142D-02, &
   -1.791342365314126D-01,  5.748981248381774D-01,  6.765610404074739D-02, &
   -1.437544578360581D-01, -9.443574522438600D-01,  2.652222430073281D-02, &
   -1.269743475931557D-01,  2.485350964764208D-01,  8.025561424009733D-02, &
   -1.038608843226707D-01, -1.432437001920102D-01,  8.120590842585292D-02, &
   -8.599298880188963D-02, -7.716801473651607D-01,  4.636752344758587D-02, &
   -8.395006281782805D-02,  9.871263594306682D-01,  6.816019493764937D-03, &
   -8.371947125930103D-02, -5.208589889223917D-01,  6.747918873878211D-02, &
   -1.697646807858736D-02,  9.086536018884021D-01,  3.387459722470887D-02, &
    1.833871143655595D-02,  7.209167099679072D-01,  5.538931339457189D-02, &
    5.565106332452326D-02, -9.889754197418217D-01,  1.032926366015326D-02, &
    7.395330091505788D-02,  4.297944936585988D-01,  7.320349165354346D-02, &
    9.468086843565157D-02,  5.388968586906774D-02,  8.305615985562806D-02, &
    1.024839179112914D-01, -8.834041600598230D-01,  3.604665584816725D-02, &
    1.074857184095777D-01, -3.452094910890526D-01,  7.761121952888624D-02, &
    1.267100636690128D-01,  9.932822811543160D-01,  6.369719109332116D-03, &
    1.534607276530462D-01, -6.678010821258034D-01,  6.156496555816345D-02, &
    2.264963086729804D-01,  8.230177907394701D-01,  3.968243470712332D-02, &
    2.459857454037700D-01,  9.492195041164657D-01,  2.026587105731689D-02, &
    2.573243932667488D-01,  5.876784265758089D-01,  5.691232110819883D-02, &
    2.787299946892420D-01, -8.902304358275253D-01,  6.562216924914964D-03, &
    2.938069266369140D-01,  2.464559758407173D-01,  7.639234774613035D-02, &
    3.031751644439591D-01, -1.498955147329062D-01,  7.988963989267751D-02, &
    3.057176124210453D-01, -9.663294098875163D-01,  1.951951397301675D-02, &
    3.429948224409587D-01, -5.036657844935868D-01,  6.771694379519085D-02, &
    3.468395902763219D-01, -8.106928028976478D-01,  3.534883558238713D-02, &
    4.294715053745923D-01,  6.972444059344115D-01,  4.114854443928950D-02, &
    4.504438324791868D-01,  9.813465089178893D-01,  1.218029689385577D-02, &
    4.587114216458100D-01,  8.757161022302909D-01,  2.985614815263661D-02, &
    4.705023240099300D-01,  4.248914232485290D-01,  6.029605985982594D-02, &
    4.730542337014057D-01, -7.226405060364207D-01,  3.424156109429213D-02, &
    4.939440770258761D-01,  5.066200964988320D-02,  7.407077493593092D-02, &
    5.203715415927748D-01, -3.207475729229982D-01,  6.635966202614821D-02, &
    5.257639785007799D-01, -9.977170958540899D-01,  5.409613333068085D-03, &
    5.313378826806301D-01, -9.170479942929537D-01,  2.720520257275587D-02, &
    6.022923045507941D-01, -5.994501280239045D-01,  4.830919014106976D-02, &
    6.204433975928566D-01,  7.641974295227819D-01,  3.404033553026726D-02, &
    6.209466711991216D-01,  5.494777927720476D-01,  3.791496686575289D-02, &
    6.466689879582136D-01,  9.360734505765457D-01,  1.996022042410962D-02, &
    6.621033564067602D-01,  2.496966370849072D-01,  6.144981322024960D-02, &
    6.789809770063248D-01, -8.212602557120876D-01,  3.236488593000712D-02, &
    6.796918717501631D-01, -1.331309975388194D-01,  5.802989349830448D-02, &
    6.812502176754324D-01,  9.989521401044065D-01,  3.579807875673121D-03, &
    7.266475436540760D-01, -9.675683591285036D-01,  1.484875678494199D-02, &
    7.440642616936161D-01, -4.322014403053586D-01,  4.959179569785551D-02, &
    7.592474840505909D-01,  6.228158958890423D-01,  3.061073682759719D-02, &
    7.651597556914833D-01,  8.643901077992759D-01,  1.594483883723016D-02, &
    7.967436284918096D-01, -6.999653717120403D-01,  3.119771973203415D-02, &
    8.082541716984714D-01,  5.125601506516623D-02,  4.548581114128645D-02, &
    8.109696076652307D-01,  4.100804853037188D-01,  4.010668645708275D-02, &
    8.230542108068375D-01,  7.992506945688510D-01,  1.707575997005541D-02, &
    8.345479402209883D-01,  9.699921801950655D-01,  1.084337625005019D-02, &
    8.501041529924387D-01, -8.905397308072454D-01,  2.036774520670110D-02, &
    8.672176401962716D-01, -2.462270148388496D-01,  4.072777874876069D-02, &
    8.815659674305341D-01, -9.912929489021226D-01,  4.286277790305716D-03, &
    8.884328863679039D-01, -5.630909797598750D-01,  2.665108708356420D-02, &
    9.036096198949736D-01,  6.861746191520888D-01,  2.199046962304617D-02, &
    9.087614696522919D-01,  2.107906691217087D-01,  2.933513900564612D-02, &
    9.227489940536037D-01,  5.030781079388300D-01,  1.792733716201453D-02, &
    9.244232598969854D-01,  8.987785855053358D-01,  1.334853657169367D-02, &
    9.371340023166588D-01, -7.719078499479927D-01,  1.828418899551716D-02, &
    9.533101385624838D-01, -5.893948233744529D-02,  2.493427565247522D-02, &
    9.546218786151554D-01,  9.901100266242597D-01,  2.997669288160739D-03, &
    9.549184254866305D-01, -9.479041510850161D-01,  7.333351181224950D-03, &
    9.584840095307160D-01, -4.174125864174710D-01,  1.906983600300858D-02, &
    9.754885144991214D-01,  3.570890018408184D-01,  1.283253988624834D-02, &
    9.784766134144718D-01,  7.916730646314184D-01,  9.664155967361797D-03, &
    9.878112520788415D-01,  5.881933255153872D-01,  8.019243932869360D-03, &
    9.878730421247439D-01, -6.289972589684678D-01,  8.869256817284361D-03, &
    9.914552412725798D-01, -8.617824090170690D-01,  4.432377107176309D-03, &
    9.929343270174540D-01, -9.907397806148996D-01,  9.278177812673883D-04, &
    9.937639919249919D-01,  9.433436502803851D-01,  2.685285882370453D-03, &
    9.939007341106521D-01,  1.320895377365522D-01,  6.886649912238812D-03, &
    9.952509862842531D-01, -2.550697642134186D-01,  6.463763906756026D-03 /)

  return
end
subroutine smr27 ( xyw )

!*****************************************************************************80
!
!! SMR27 returns the SMR rule of degree 27.
!
!  Discussion:
!
!    DEGREE: 27
!    ROTATIONALLY INVARIANT: (X,  Y),  (-Y,  X),  (-X, -Y),  (Y, -X).
!    POINTS CARDINALITY: 132
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*132), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*132)

  xyw = (/ &
    1.886005021782720D-03,  5.828566738691298D-01,  6.979680609052895D-02, &
   -4.610090446080339D-03,  8.577929872633651D-01,  4.314966506560954D-02, &
   -4.155284083838179D-02,  9.888852930552997D-01,  1.072399831167234D-02, &
    2.067872320344404D-01, -6.296477862134920D-04,  8.488483237702206D-02, &
    2.082269167023509D-01,  4.038616639190317D-01,  7.727830308506041D-02, &
    2.052137161358173D-01,  7.394171390837959D-01,  5.621586102413551D-02, &
    1.807393256852824D-01,  9.496265565549702D-01,  2.535911050249288D-02, &
    3.322057475944939D-01,  9.960227386085063D-01,  5.272055511683970D-03, &
    4.045305824612024D-01,  2.059859741136477D-01,  7.726743635049893D-02, &
    4.025837874193514D-01,  5.870128510662224D-01,  6.365147357369046D-02, &
    3.850900136224434D-01,  8.707822203710608D-01,  3.854775533996937D-02, &
    4.961565809611688D-01,  9.726108752621352D-01,  1.194490281825224D-02, &
    7.337041416795138D-01,  2.082446806606209D-01,  5.658941671510189D-02, &
    5.809960989937741D-01,  4.073474789041275D-01,  6.376865298046723D-02, &
    5.677230574148288D-01,  7.531679569108030D-01,  4.625453544861270D-02, &
    6.209259660886249D-01,  9.313450399117541D-01,  1.820437285093996D-02, &
    7.222712946524428D-01,  9.926688332077881D-01,  5.756269356678867D-03, &
    8.472675519335334D-01,  4.202098689198475D-01,  4.046935707697283D-02, &
    7.235313755189597D-01,  6.009001598253331D-01,  4.695366916509310D-02, &
    7.436209196607865D-01,  8.532631127882830D-01,  2.452811191323398D-02, &
    8.078125449235396D-01,  8.865860238557206D-01,  3.599599560868793D-03, &
    8.496011789870433D-01,  9.584740402687207D-01,  1.136717702495919D-02, &
    9.873993632652779D-01,  3.857565023254501D-01,  9.087958640367919D-03, &
    9.407918538992979D-01,  5.806290275537873D-01,  2.155259200865792D-02, &
    8.583622893662932D-01,  7.355260155277167D-01,  2.723142317719206D-02, &
    9.417112190155333D-01,  8.140933233486173D-01,  6.586312510744677D-03, &
    9.293007271718974D-01,  8.976314904285845D-01,  9.170625679716800D-03, &
    9.365522911144204D-01,  2.247649048332172D-01,  2.753902574626484D-02, &
    9.913001320610028D-01,  5.146910772747944D-01,  2.062938898431044D-03, &
    9.892062993684332D-01,  7.177306340863354D-01,  6.213455600316710D-03, &
    9.825794696006162D-01,  8.526916976863245D-01,  3.542165144107640D-03, &
    9.899623983816039D-01,  9.559123039771233D-01,  2.789025209960568D-03, &
    9.454816892922301D-01,  9.931508332329141D-01,  2.641115240694518D-03, &
   -5.828566738691298D-01,  1.886005021782720D-03,  6.979680609052895D-02, &
   -8.577929872633651D-01, -4.610090446080339D-03,  4.314966506560954D-02, &
   -9.888852930552997D-01, -4.155284083838179D-02,  1.072399831167234D-02, &
    6.296477862134920D-04,  2.067872320344404D-01,  8.488483237702206D-02, &
   -4.038616639190317D-01,  2.082269167023509D-01,  7.727830308506041D-02, &
   -7.394171390837959D-01,  2.052137161358173D-01,  5.621586102413551D-02, &
   -9.496265565549702D-01,  1.807393256852824D-01,  2.535911050249288D-02, &
   -9.960227386085063D-01,  3.322057475944939D-01,  5.272055511683970D-03, &
   -2.059859741136477D-01,  4.045305824612024D-01,  7.726743635049893D-02, &
   -5.870128510662224D-01,  4.025837874193514D-01,  6.365147357369046D-02, &
   -8.707822203710608D-01,  3.850900136224434D-01,  3.854775533996937D-02, &
   -9.726108752621352D-01,  4.961565809611688D-01,  1.194490281825224D-02, &
   -2.082446806606209D-01,  7.337041416795138D-01,  5.658941671510189D-02, &
   -4.073474789041275D-01,  5.809960989937741D-01,  6.376865298046723D-02, &
   -7.531679569108030D-01,  5.677230574148288D-01,  4.625453544861270D-02, &
   -9.313450399117541D-01,  6.209259660886249D-01,  1.820437285093996D-02, &
   -9.926688332077881D-01,  7.222712946524428D-01,  5.756269356678867D-03, &
   -4.202098689198475D-01,  8.472675519335334D-01,  4.046935707697283D-02, &
   -6.009001598253331D-01,  7.235313755189597D-01,  4.695366916509310D-02, &
   -8.532631127882830D-01,  7.436209196607865D-01,  2.452811191323398D-02, &
   -8.865860238557206D-01,  8.078125449235396D-01,  3.599599560868793D-03, &
   -9.584740402687207D-01,  8.496011789870433D-01,  1.136717702495919D-02, &
   -3.857565023254501D-01,  9.873993632652779D-01,  9.087958640367919D-03, &
   -5.806290275537873D-01,  9.407918538992979D-01,  2.155259200865792D-02, &
   -7.355260155277167D-01,  8.583622893662932D-01,  2.723142317719206D-02, &
   -8.140933233486173D-01,  9.417112190155333D-01,  6.586312510744677D-03, &
   -8.976314904285845D-01,  9.293007271718974D-01,  9.170625679716800D-03, &
   -2.247649048332172D-01,  9.365522911144204D-01,  2.753902574626484D-02, &
   -5.146910772747944D-01,  9.913001320610028D-01,  2.062938898431044D-03, &
   -7.177306340863354D-01,  9.892062993684332D-01,  6.213455600316710D-03, &
   -8.526916976863245D-01,  9.825794696006162D-01,  3.542165144107640D-03, &
   -9.559123039771233D-01,  9.899623983816039D-01,  2.789025209960568D-03, &
   -9.931508332329141D-01,  9.454816892922301D-01,  2.641115240694518D-03, &
   -1.886005021782720D-03, -5.828566738691298D-01,  6.979680609052895D-02, &
    4.610090446080339D-03, -8.577929872633651D-01,  4.314966506560954D-02, &
    4.155284083838179D-02, -9.888852930552997D-01,  1.072399831167234D-02, &
   -2.067872320344404D-01,  6.296477862134920D-04,  8.488483237702206D-02, &
   -2.082269167023509D-01, -4.038616639190317D-01,  7.727830308506041D-02, &
   -2.052137161358173D-01, -7.394171390837959D-01,  5.621586102413551D-02, &
   -1.807393256852824D-01, -9.496265565549702D-01,  2.535911050249288D-02, &
   -3.322057475944939D-01, -9.960227386085063D-01,  5.272055511683970D-03, &
   -4.045305824612024D-01, -2.059859741136477D-01,  7.726743635049893D-02, &
   -4.025837874193514D-01, -5.870128510662224D-01,  6.365147357369046D-02, &
   -3.850900136224434D-01, -8.707822203710608D-01,  3.854775533996937D-02, &
   -4.961565809611688D-01, -9.726108752621352D-01,  1.194490281825224D-02, &
   -7.337041416795138D-01, -2.082446806606209D-01,  5.658941671510189D-02, &
   -5.809960989937741D-01, -4.073474789041275D-01,  6.376865298046723D-02, &
   -5.677230574148288D-01, -7.531679569108030D-01,  4.625453544861270D-02, &
   -6.209259660886249D-01, -9.313450399117541D-01,  1.820437285093996D-02, &
   -7.222712946524428D-01, -9.926688332077881D-01,  5.756269356678867D-03, &
   -8.472675519335334D-01, -4.202098689198475D-01,  4.046935707697283D-02, &
   -7.235313755189597D-01, -6.009001598253331D-01,  4.695366916509310D-02, &
   -7.436209196607865D-01, -8.532631127882830D-01,  2.452811191323398D-02, &
   -8.078125449235396D-01, -8.865860238557206D-01,  3.599599560868793D-03, &
   -8.496011789870433D-01, -9.584740402687207D-01,  1.136717702495919D-02, &
   -9.873993632652779D-01, -3.857565023254501D-01,  9.087958640367919D-03, &
   -9.407918538992979D-01, -5.806290275537873D-01,  2.155259200865792D-02, &
   -8.583622893662932D-01, -7.355260155277167D-01,  2.723142317719206D-02, &
   -9.417112190155333D-01, -8.140933233486173D-01,  6.586312510744677D-03, &
   -9.293007271718974D-01, -8.976314904285845D-01,  9.170625679716800D-03, &
   -9.365522911144204D-01, -2.247649048332172D-01,  2.753902574626484D-02, &
   -9.913001320610028D-01, -5.146910772747944D-01,  2.062938898431044D-03, &
   -9.892062993684332D-01, -7.177306340863354D-01,  6.213455600316710D-03, &
   -9.825794696006162D-01, -8.526916976863245D-01,  3.542165144107640D-03, &
   -9.899623983816039D-01, -9.559123039771233D-01,  2.789025209960568D-03, &
   -9.454816892922301D-01, -9.931508332329141D-01,  2.641115240694518D-03, &
    5.828566738691298D-01, -1.886005021782720D-03,  6.979680609052895D-02, &
    8.577929872633651D-01,  4.610090446080339D-03,  4.314966506560954D-02, &
    9.888852930552997D-01,  4.155284083838179D-02,  1.072399831167234D-02, &
   -6.296477862134920D-04, -2.067872320344404D-01,  8.488483237702206D-02, &
    4.038616639190317D-01, -2.082269167023509D-01,  7.727830308506041D-02, &
    7.394171390837959D-01, -2.052137161358173D-01,  5.621586102413551D-02, &
    9.496265565549702D-01, -1.807393256852824D-01,  2.535911050249288D-02, &
    9.960227386085063D-01, -3.322057475944939D-01,  5.272055511683970D-03, &
    2.059859741136477D-01, -4.045305824612024D-01,  7.726743635049893D-02, &
    5.870128510662224D-01, -4.025837874193514D-01,  6.365147357369046D-02, &
    8.707822203710608D-01, -3.850900136224434D-01,  3.854775533996937D-02, &
    9.726108752621352D-01, -4.961565809611688D-01,  1.194490281825224D-02, &
    2.082446806606209D-01, -7.337041416795138D-01,  5.658941671510189D-02, &
    4.073474789041275D-01, -5.809960989937741D-01,  6.376865298046723D-02, &
    7.531679569108030D-01, -5.677230574148288D-01,  4.625453544861270D-02, &
    9.313450399117541D-01, -6.209259660886249D-01,  1.820437285093996D-02, &
    9.926688332077881D-01, -7.222712946524428D-01,  5.756269356678867D-03, &
    4.202098689198475D-01, -8.472675519335334D-01,  4.046935707697283D-02, &
    6.009001598253331D-01, -7.235313755189597D-01,  4.695366916509310D-02, &
    8.532631127882830D-01, -7.436209196607865D-01,  2.452811191323398D-02, &
    8.865860238557206D-01, -8.078125449235396D-01,  3.599599560868793D-03, &
    9.584740402687207D-01, -8.496011789870433D-01,  1.136717702495919D-02, &
    3.857565023254501D-01, -9.873993632652779D-01,  9.087958640367919D-03, &
    5.806290275537873D-01, -9.407918538992979D-01,  2.155259200865792D-02, &
    7.355260155277167D-01, -8.583622893662932D-01,  2.723142317719206D-02, &
    8.140933233486173D-01, -9.417112190155333D-01,  6.586312510744677D-03, &
    8.976314904285845D-01, -9.293007271718974D-01,  9.170625679716800D-03, &
    2.247649048332172D-01, -9.365522911144204D-01,  2.753902574626484D-02, &
    5.146910772747944D-01, -9.913001320610028D-01,  2.062938898431044D-03, &
    7.177306340863354D-01, -9.892062993684332D-01,  6.213455600316710D-03, &
    8.526916976863245D-01, -9.825794696006162D-01,  3.542165144107640D-03, &
    9.559123039771233D-01, -9.899623983816039D-01,  2.789025209960568D-03, &
    9.931508332329141D-01, -9.454816892922301D-01,  2.641115240694518D-03 /)

  return
end
subroutine smr28 ( xyw )

!*****************************************************************************80
!
!! SMR28 returns the SMR rule of degree 28.
!
!  Discussion:
!
!    DEGREE: 28
!    POINTS CARDINALITY: 146
!    NORM INF MOMS. RESIDUAL: 9.93129e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) *XYW(3*146), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*146)

  xyw = (/ &
    9.948578576510482D-01,  9.951313777393089D-01,  5.350567115949095D-04, &
    9.942909707974587D-01,  8.766570248036105D-01,  2.791138783606160D-03, &
    9.936073905803642D-01,  6.435920031349868D-01,  4.975936005062567D-03, &
    9.955492434128311D-01,  3.009600560431372D-01,  5.028092846274678D-03, &
    9.953117341967249D-01, -1.155952308989407D-01,  5.404591653487998D-03, &
    9.945568546430053D-01, -4.954371212342698D-01,  4.995854780477920D-03, &
    9.941123224157187D-01, -7.686450662183013D-01,  3.412261550099155D-03, &
    9.973970470314231D-01, -9.477148556565722D-01,  1.256390479179999D-03, &
    9.688973112117140D-01,  9.519148224233880D-01,  4.713673624203035D-03, &
    9.613309496208055D-01,  7.757025845655895D-01,  1.166028423822774D-02, &
    9.659860418437211D-01,  4.681861912724297D-01,  1.519045343561554D-02, &
    9.698532836823804D-01,  9.733476040026384D-02,  1.657048063461714D-02, &
    9.676987141452779D-01, -3.026291805415285D-01,  1.602715348074777D-02, &
    9.652351090613974D-01, -6.421223495984553D-01,  1.210066207543355D-02, &
    9.705483737595868D-01, -8.773547971281066D-01,  6.923308160213495D-03, &
    9.748783800172183D-01, -9.912505022009086D-01,  1.588717379761370D-03, &
    9.166016146066042D-01,  9.861313164544186D-01,  3.329484690768878D-03, &
    8.994804531261812D-01,  8.827649742916205D-01,  1.434726026694510D-02, &
    9.053106430680723D-01,  6.228188101332273D-01,  2.276716021991524D-02, &
    9.071948418179018D-01,  2.805718262681513D-01,  2.888726414871897D-02, &
    9.109240111661969D-01, -9.646023425605603D-02,  2.952643485962895D-02, &
    9.103965861122791D-01, -4.750063547383416D-01,  2.428497272680478D-02, &
    9.135589107435960D-01, -7.731270000889884D-01,  1.598024520842712D-02, &
    9.235219832875176D-01, -9.536909415826325D-01,  7.313384482073473D-03, &
    8.422727743872929D-01,  9.983748940501636D-01,  1.177144882525381D-03, &
    8.021369409522103D-01,  9.526336218686154D-01,  1.233677299331454D-02, &
    8.162908906345308D-01,  7.599008885973428D-01,  2.655091644582969D-02, &
    8.127751861060339D-01,  4.597366883296284D-01,  3.763596042165646D-02, &
    8.129630861903968D-01,  9.176425527693403D-02,  4.284745602911020D-02, &
    8.233720523878740D-01, -2.917598066537037D-01,  3.906509971261103D-02, &
    8.273253984611962D-01, -6.351315017888974D-01,  2.985137841867004D-02, &
    8.410861657858746D-01, -8.770078144051303D-01,  1.678011176333675D-02, &
    8.462927808942150D-01, -9.911001774446370D-01,  4.109086265895744D-03, &
    6.692649802375389D-01,  9.897101791893593D-01,  6.302703194199112D-03, &
    6.959480214373159D-01,  8.669178979407627D-01,  2.525587670248390D-02, &
    6.896592055450543D-01,  6.236755137912841D-01,  4.183562464805562D-02, &
    6.865013864931789D-01,  2.840539118035566D-01,  5.208001068769284D-02, &
    6.962750629039214D-01, -1.115191087063258D-01,  5.256283376203195D-02, &
    7.074126907672926D-01, -4.752442590431704D-01,  4.556426477896882D-02, &
    7.191258343646272D-01, -7.720946761786819D-01,  3.133433453762152D-02, &
    7.381207241833775D-01, -9.459798668063141D-01,  1.409639241355121D-02, &
    6.771073750372986D-01, -9.922518457423063D-01,  2.777359845401900D-03, &
    5.475677331233061D-01,  9.422181957297456D-01,  1.897982231084832D-02, &
    5.400263477570776D-01,  7.619170134687657D-01,  3.998120414157146D-02, &
    5.343007222250298D-01,  4.660852613438181D-01,  5.641016682972110D-02, &
    5.464626157458451D-01,  8.180074857237349D-02,  6.215654744912379D-02, &
    5.520150032550133D-01, -3.052541200774422D-01,  5.923432236764290D-02, &
    5.668728132802315D-01, -6.388668498497777D-01,  4.710391803124826D-02, &
    5.810992753051508D-01, -8.752071635592164D-01,  2.787797798973161D-02, &
    5.671475579878305D-01, -9.796604593842159D-01,  7.793314748885580D-03, &
    3.968756859090636D-01,  9.879827506647261D-01,  8.923994125095943D-03, &
    3.707910234961497D-01,  8.695515088341891D-01,  3.239278927868577D-02, &
    3.620431155247392D-01,  6.294210332481971D-01,  5.436999365883735D-02, &
    3.756691454599630D-01,  2.722208281305576D-01,  6.689872061273545D-02, &
    3.801363136282314D-01, -1.153023476012179D-01,  6.916197504314157D-02, &
    3.870789258805237D-01, -4.852712266367580D-01,  6.069376521414673D-02, &
    4.013748435296351D-01, -7.721926519007076D-01,  4.296137864461146D-02, &
    4.029880643773450D-01, -9.405596605751765D-01,  1.992102855514764D-02, &
    4.035133457630937D-01, -9.984853538421118D-01,  2.668528192375319D-03, &
    1.160216426928697D-01,  9.922413519284493D-01,  5.350102953202783D-03, &
    2.055793223051185D-01,  9.459133372942112D-01,  2.072186274583783D-02, &
    1.776855819898789D-01,  7.668715275107250D-01,  4.612076109466228D-02, &
    1.919764609816849D-01,  4.526549306348999D-01,  6.552641398222167D-02, &
    1.926293216704643D-01,  7.875626396945502D-02,  7.415699880326786D-02, &
    1.985057734993036D-01, -3.060328376638529D-01,  7.072349740661799D-02, &
    2.038466930455823D-01, -6.417616215413990D-01,  5.626372459884906D-02, &
    2.088349228463496D-01, -8.693904617391873D-01,  3.383513644639114D-02, &
    2.112825401519657D-01, -9.795723716889928D-01,  1.129835512516279D-02, &
   -5.348117081594564D-02,  9.601197110277508D-01,  1.102425532666331D-02, &
   -1.440209295656826D-03,  8.728107413837934D-01,  3.293357956668601D-02, &
    3.475808263467210D-03,  6.154311844205719D-01,  5.809864825359298D-02, &
   -1.120628220586241D-03,  2.708231330142061D-01,  7.325167415256556D-02, &
    1.044970007167108D-03, -1.158225951592231D-01,  7.568882188561220D-02, &
    6.384994250920603D-03, -4.809476808243928D-01,  6.617874013219743D-02, &
    4.295452536640910D-03, -7.676008066148449D-01,  4.657600571756004D-02, &
    4.651117956286204D-03, -9.365900032572481D-01,  2.283252555981913D-02, &
    8.237620269373420D-03, -9.962744074089572D-01,  3.786352125662351D-03, &
   -1.274891040086490D-01,  9.929001195823554D-01,  4.958467693467626D-03, &
   -2.413142327752992D-01,  9.029321598234583D-01,  1.853018716489174D-02, &
   -1.832813730805473D-01,  7.525928605307329D-01,  4.713333096331936D-02, &
   -1.920382892873746D-01,  4.539454858901587D-01,  6.603945261049947D-02, &
   -1.956436793406595D-01,  7.941255257340975D-02,  7.508025050715028D-02, &
   -1.923970603608269D-01, -3.024155270841158D-01,  7.084970982103253D-02, &
   -1.911944603737556D-01, -6.318610134350573D-01,  5.601846880048385D-02, &
   -1.997986481004511D-01, -8.643880734116528D-01,  3.434757868627490D-02, &
   -2.040634037532908D-01, -9.778548144980190D-01,  1.259279635934074D-02, &
   -2.997076844021980D-01,  9.628107191472532D-01,  1.314095498758601D-02, &
   -4.148554476460968D-01,  8.338942142941969D-01,  3.293242786053679D-02, &
   -3.779198201034129D-01,  6.158737694305179D-01,  5.508527968607409D-02, &
   -3.805490179487411D-01,  2.750443753116855D-01,  6.796131506618697D-02, &
   -3.841282487515310D-01, -1.132877025420610D-01,  7.045152003060294D-02, &
   -3.804454671026422D-01, -4.720772509930954D-01,  6.002911781360866D-02, &
   -3.841911412860247D-01, -7.558248311258943D-01,  4.283433317172849D-02, &
   -4.014494726845325D-01, -9.319408172971044D-01,  2.234448515507551D-02, &
   -4.134249428005414D-01, -9.971881189618174D-01,  3.879387979882435D-03, &
   -4.482484235975709D-01,  9.933540226000461D-01,  5.885518307205129D-03, &
   -5.401264617535639D-01,  9.300111343789312D-01,  2.045252873739783D-02, &
   -5.846028440856790D-01,  7.267512221362666D-01,  4.025157999677987D-02, &
   -5.551715224920534D-01,  4.543430257556506D-01,  5.681533956880705D-02, &
   -5.546040128597290D-01,  8.607588431664005D-02,  6.345041073160007D-02, &
   -5.590463446310300D-01, -2.987570130168568D-01,  5.984062693812596D-02, &
   -5.535005324411616D-01, -6.169692132455251D-01,  4.534179475738604D-02, &
   -5.666697445547572D-01, -8.481255174324074D-01,  2.955237828322555D-02, &
   -5.928240900022717D-01, -9.728321444146757D-01,  1.207258865550634D-02, &
   -6.756466780817323D-01,  9.797748409271184D-01,  9.430834821192467D-03, &
   -7.057090125640939D-01,  8.569411643178257D-01,  2.578172152269087D-02, &
   -7.324178297883669D-01,  5.881115844344131D-01,  4.112604151501918D-02, &
   -7.089833134544923D-01,  2.743227288305772D-01,  5.206048407106920D-02, &
   -7.070216898176970D-01, -1.052133696540627D-01,  5.313592538270182D-02, &
   -7.140246356433033D-01, -4.665219411497065D-01,  4.523777395980864D-02, &
   -7.018378364178222D-01, -7.239136739360896D-01,  2.865845173440685D-02, &
   -7.265012674973680D-01, -9.106140002539487D-01,  1.785266500303629D-02, &
   -7.502326422653172D-01, -9.941725573151815D-01,  3.753285495396784D-03, &
   -8.274846897101481D-01,  9.978010553534403D-01,  2.202140457066555D-03, &
   -8.192923347877169D-01,  9.390289816897084D-01,  1.292326356223006D-02, &
   -8.313147253414798D-01,  7.529833038926661D-01,  2.592641401983919D-02, &
   -8.508397854338550D-01,  4.234950052660812D-01,  3.562268594306770D-02, &
   -8.335604271423080D-01,  8.263716754706234D-02,  4.169722943892294D-02, &
   -8.333299598244532D-01, -2.871192325820531D-01,  3.873060921878728D-02, &
   -8.458562646869368D-01, -5.969821698805272D-01,  2.877988053080015D-02, &
   -8.078655554136182D-01, -7.904438964071007D-01,  1.755929774595502D-02, &
   -8.447527353299386D-01, -9.573586572433928D-01,  9.057958019613784D-03, &
   -9.281623277448025D-01,  9.778973529249545D-01,  4.706571839130655D-03, &
   -9.134629368007466D-01,  8.725226493533312D-01,  1.272093703683140D-02, &
   -9.189059119013587D-01,  6.228132355945927D-01,  2.081162885166939D-02, &
   -9.352972042034906D-01,  2.394035979501314D-01,  2.507345449526446D-02, &
   -9.260008242840237D-01, -1.093506648825247D-01,  2.730772032753251D-02, &
   -9.322554404281427D-01, -4.325018867770137D-01,  2.166809223221262D-02, &
   -9.265407983180678D-01, -6.804488306011519D-01,  1.129035475105887D-02, &
   -8.963660879434896D-01, -8.578428981954751D-01,  1.427796928443569D-02, &
   -9.228669313126245D-01, -9.903049524081384D-01,  2.936908429948614D-03, &
   -9.795076814902403D-01,  9.391999047436536D-01,  3.611764745309799D-03, &
   -9.682018722477242D-01,  7.789774445276537D-01,  9.386909970380832D-03, &
   -9.723852471142062D-01,  4.752904607817341D-01,  1.284048267253543D-02, &
   -9.845164156039091D-01,  4.496231910970377D-02,  1.155742732057478D-02, &
   -9.919138468383984D-01, -5.892431915668860D-01,  5.712369221551983D-03, &
   -9.653607048671382D-01, -7.514078044040550D-01,  9.247990075208610D-03, &
   -9.634968122279486D-01, -9.300634913926976D-01,  6.455717208889276D-03, &
   -9.899993900205354D-01,  9.944294353233614D-01,  6.923818612511791D-04, &
   -9.957478348818433D-01,  8.751512353190156D-01,  1.727894454945418D-03, &
   -9.950143212717456D-01,  6.584454755209226D-01,  3.945702259118487D-03, &
   -9.960292127295011D-01,  3.102415165889851D-01,  4.235815708736188D-03, &
   -9.868438218892031D-01, -2.632466666320823D-01,  1.048005824445523D-02, &
   -9.759292701915939D-01, -4.866196210874411D-01,  4.122542369510386D-03, &
   -9.956803593698287D-01, -8.464174810055828D-01,  2.909040478947865D-03, &
   -9.918608822862665D-01, -9.833582162145671D-01,  1.201280370154266D-03 /)

  return
end
subroutine smr29 ( xyw )

!*****************************************************************************80
!
!! SMR29 returns the SMR rule of degree 29.
!
!  Discussion:
!
!    DEGREE: 29
!    SYMMETRY: (X,  Y),  (-X, -Y)
!    POINTS CARDINALITY: 153
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*153), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*153)

  xyw = (/ &
   -9.949933127427926D-01,  9.846653902287268D-01,  9.395690393964076D-04, &
   -9.947553807807867D-01, -6.565416135023074D-01,  4.902572703976801D-03, &
   -9.945746533289254D-01,  8.095347588811120D-01,  3.444322300954131D-03, &
   -9.936165836110393D-01,  5.449460871204653D-01,  5.048778280493792D-03, &
   -9.916021206491545D-01, -3.020588266272870D-01,  7.856326443021280D-03, &
   -9.885493346511697D-01,  3.754426235872674D-02,  9.243463352453171D-03, &
   -9.853949921317231D-01, -9.716885948870212D-01,  2.611624046143479D-03, &
   -9.850307952194871D-01, -8.619821821525152D-01,  5.756950705760731D-03, &
   -9.832827588628299D-01,  3.064831307139635D-01,  1.011037458386165D-02, &
   -9.721136174490276D-01,  9.199575449706859D-01,  6.336945711231334D-03, &
   -9.629324251458530D-01,  6.898499209334040D-01,  1.253275279199627D-02, &
   -9.611009120701418D-01, -5.003853392931935D-01,  1.712154659313199D-02, &
   -9.462498240094916D-01, -1.332608625807670D-01,  2.240075719199047D-02, &
   -9.411359576419225D-01, -7.505472392355358D-01,  1.603065396164867D-02, &
   -9.382448848401312D-01,  4.599118226520993D-01,  1.718439080989034D-02, &
   -9.314612798308124D-01, -9.967694998936406D-01,  1.745679805743830D-03, &
   -9.295735875484051D-01,  9.848152682310835D-01,  4.103888501222671D-03, &
   -9.232310041137312D-01,  1.804372056187648D-01,  2.477443727803194D-02, &
   -9.183317763520688D-01, -9.261208167798600D-01,  1.096195080681892D-02, &
   -9.116574969716016D-01,  8.271123341203230D-01,  1.601077862848477D-02, &
   -8.888912692909274D-01, -3.479987971871291D-01,  2.796225817458692D-02, &
   -8.779301509485118D-01,  5.948583749922939D-01,  2.015897400394908D-02, &
   -8.637451657209914D-01, -6.139023089531026D-01,  2.808904163947544D-02, &
   -8.501310025536610D-01,  9.347168973702518D-01,  1.258009305624949D-02, &
   -8.432406244370808D-01,  2.340798283350513D-02,  3.394457013361375D-02, &
   -8.333294144744180D-01, -1.839129116833924D-01,  9.917901422164995D-03, &
   -8.296887505977431D-01, -8.345532619659806D-01,  2.285324032183532D-02, &
   -8.290744150263981D-01,  3.658292544818590D-01,  3.507289015514854D-02, &
   -8.187205704950732D-01, -9.788557134648613D-01,  7.722403962482972D-03, &
   -8.088673371817973D-01,  7.219103637161282D-01,  2.472789041607375D-02, &
   -7.802699772004215D-01,  9.914861448776406D-01,  4.713473975833743D-03, &
   -7.752301559048632D-01, -2.171128429124935D-01,  2.378259924133609D-02, &
   -7.470829498608977D-01, -4.586599493926842D-01,  4.002928037597185D-02, &
   -7.361511371834013D-01,  8.583154508083678D-01,  2.261583569713491D-02, &
   -7.287146431973126D-01, -6.873006158071762D-01,  2.251882920671917D-02, &
   -7.180886055039243D-01,  2.076767520253592D-01,  4.499352749218116D-02, &
   -7.146537939190210D-01, -9.289340401690634D-01,  1.645329992585584D-02, &
   -7.067199537433859D-01,  5.424756607903567D-01,  4.335690137047433D-02, &
   -6.903679490586278D-01, -7.147862946890238D-02,  3.408763052303377D-02, &
   -6.764025157771765D-01, -7.573659452363536D-01,  1.935531604707887D-02, &
   -6.506894539762457D-01,  9.564690231494537D-01,  1.464896209687315D-02, &
   -6.208513475663459D-01, -9.916051471397467D-01,  6.432187025682493D-03, &
   -6.116292887899047D-01,  7.357056852576344D-01,  3.377020044412275D-02, &
   -5.979003962373047D-01, -2.796891406409555D-01,  4.888297756206456D-02, &
   -5.778077209855854D-01, -8.675249675625395D-01,  2.457244823370517D-02, &
   -5.728456567073842D-01, -5.296576709425311D-01,  3.639826598763665D-02, &
   -5.602688054023620D-01,  3.829382266085970D-01,  5.473125938490646D-02, &
   -5.600226162335806D-01,  7.201761109528224D-02,  4.732804187723799D-02, &
   -5.315715479129545D-01, -6.485017442148879D-01,  2.380537349256804D-02, &
   -5.213722221542452D-01,  8.717053530032300D-01,  2.354037231951190D-02, &
   -5.205683240806913D-01,  9.943357320308036D-01,  5.022863813128614D-03, &
   -4.747713831994940D-01,  6.303175260200578D-01,  3.769491458931831D-02, &
   -4.518891563243193D-01, -9.565726413410444D-01,  1.899592320434612D-02, &
   -4.253276863946355D-01, -1.030467857496181D-01,  5.661499125196553D-02, &
   -4.243714642725596D-01, -7.749351121311114D-01,  3.571480883454545D-02, &
   -4.208552091936032D-01,  9.360365856546493D-01,  1.371343151498627D-02, &
   -3.971426434725366D-01, -3.784299583698726D-01,  5.358828824792165D-02, &
   -3.840824803302514D-01,  2.278813318596969D-01,  5.817728003299089D-02, &
   -3.537037178838521D-01,  5.212016641539493D-01,  4.215943343810559D-02, &
   -3.344249565042606D-01,  7.938301760272564D-01,  3.983164515649597D-02, &
   -3.183689681012091D-01, -5.911289985164023D-01,  4.507083618856889D-02, &
   -3.099978370992671D-01,  9.775914827530479D-01,  1.070368922033845D-02, &
   -2.742873135694627D-01, -9.934217560165197D-01,  7.024959810244680D-03, &
   -2.684789526442052D-01, -8.841305328486172D-01,  3.234575636115414D-02, &
   -2.236413499576709D-01,  6.847889170584819D-02,  5.715210426473966D-02, &
   -2.076813935038102D-01, -1.933246405625380D-01,  5.711938069880197D-02, &
   -1.985992354046592D-01,  4.002875818222759D-01,  5.390325679350508D-02, &
   -1.731862586703496D-01,  9.086517858862069D-01,  2.785469982257396D-02, &
   -1.650094536595912D-01,  6.768962485151462D-01,  4.809572953564538D-02, &
   -1.634028445678156D-01, -7.199249170570964D-01,  4.287990357079033D-02, &
   -1.548556328765567D-01, -4.247385329928982D-01,  4.815909770521859D-02, &
   -8.887107041790254D-02,  9.911658972290777D-01,  7.431729974979581D-03, &
   -8.682050121233974D-02, -9.548310793397383D-01,  2.094359269434157D-02, &
   -3.424326390343065D-02,  2.534546862921038D-01,  5.738432661390758D-02, &
   -3.764571754171391D-03, -5.533592189095456D-01,  4.897606541273797D-02, &
   -1.890047137705217D-03,  8.246644534267950D-01,  3.721909074703320D-02, &
    0.000000000000000D+00,  0.000000000000000D+00,  5.611678279970572D-02, &
    1.890047137705217D-03, -8.246644534267950D-01,  3.721909074703320D-02, &
    3.764571754171391D-03,  5.533592189095456D-01,  4.897606541273797D-02, &
    3.424326390343065D-02, -2.534546862921038D-01,  5.738432661390758D-02, &
    8.682050121233974D-02,  9.548310793397383D-01,  2.094359269434157D-02, &
    8.887107041790254D-02, -9.911658972290777D-01,  7.431729974979581D-03, &
    1.548556328765567D-01,  4.247385329928982D-01,  4.815909770521859D-02, &
    1.634028445678156D-01,  7.199249170570964D-01,  4.287990357079033D-02, &
    1.650094536595912D-01, -6.768962485151462D-01,  4.809572953564538D-02, &
    1.731862586703496D-01, -9.086517858862069D-01,  2.785469982257396D-02, &
    1.985992354046592D-01, -4.002875818222759D-01,  5.390325679350508D-02, &
    2.076813935038102D-01,  1.933246405625380D-01,  5.711938069880197D-02, &
    2.236413499576709D-01, -6.847889170584819D-02,  5.715210426473966D-02, &
    2.684789526442052D-01,  8.841305328486172D-01,  3.234575636115414D-02, &
    2.742873135694627D-01,  9.934217560165197D-01,  7.024959810244680D-03, &
    3.099978370992671D-01, -9.775914827530479D-01,  1.070368922033845D-02, &
    3.183689681012091D-01,  5.911289985164023D-01,  4.507083618856889D-02, &
    3.344249565042606D-01, -7.938301760272564D-01,  3.983164515649597D-02, &
    3.537037178838521D-01, -5.212016641539493D-01,  4.215943343810559D-02, &
    3.840824803302514D-01, -2.278813318596969D-01,  5.817728003299089D-02, &
    3.971426434725366D-01,  3.784299583698726D-01,  5.358828824792165D-02, &
    4.208552091936032D-01, -9.360365856546493D-01,  1.371343151498627D-02, &
    4.243714642725596D-01,  7.749351121311114D-01,  3.571480883454545D-02, &
    4.253276863946355D-01,  1.030467857496181D-01,  5.661499125196553D-02, &
    4.518891563243193D-01,  9.565726413410444D-01,  1.899592320434612D-02, &
    4.747713831994940D-01, -6.303175260200578D-01,  3.769491458931831D-02, &
    5.205683240806913D-01, -9.943357320308036D-01,  5.022863813128614D-03, &
    5.213722221542452D-01, -8.717053530032300D-01,  2.354037231951190D-02, &
    5.315715479129545D-01,  6.485017442148879D-01,  2.380537349256804D-02, &
    5.600226162335806D-01, -7.201761109528224D-02,  4.732804187723799D-02, &
    5.602688054023620D-01, -3.829382266085970D-01,  5.473125938490646D-02, &
    5.728456567073842D-01,  5.296576709425311D-01,  3.639826598763665D-02, &
    5.778077209855854D-01,  8.675249675625395D-01,  2.457244823370517D-02, &
    5.979003962373047D-01,  2.796891406409555D-01,  4.888297756206456D-02, &
    6.116292887899047D-01, -7.357056852576344D-01,  3.377020044412275D-02, &
    6.208513475663459D-01,  9.916051471397467D-01,  6.432187025682493D-03, &
    6.506894539762457D-01, -9.564690231494537D-01,  1.464896209687315D-02, &
    6.764025157771765D-01,  7.573659452363536D-01,  1.935531604707887D-02, &
    6.903679490586278D-01,  7.147862946890238D-02,  3.408763052303377D-02, &
    7.067199537433859D-01, -5.424756607903567D-01,  4.335690137047433D-02, &
    7.146537939190210D-01,  9.289340401690634D-01,  1.645329992585584D-02, &
    7.180886055039243D-01, -2.076767520253592D-01,  4.499352749218116D-02, &
    7.287146431973126D-01,  6.873006158071762D-01,  2.251882920671917D-02, &
    7.361511371834013D-01, -8.583154508083678D-01,  2.261583569713491D-02, &
    7.470829498608977D-01,  4.586599493926842D-01,  4.002928037597185D-02, &
    7.752301559048632D-01,  2.171128429124935D-01,  2.378259924133609D-02, &
    7.802699772004215D-01, -9.914861448776406D-01,  4.713473975833743D-03, &
    8.088673371817973D-01, -7.219103637161282D-01,  2.472789041607375D-02, &
    8.187205704950732D-01,  9.788557134648613D-01,  7.722403962482972D-03, &
    8.290744150263981D-01, -3.658292544818590D-01,  3.507289015514854D-02, &
    8.296887505977431D-01,  8.345532619659806D-01,  2.285324032183532D-02, &
    8.333294144744180D-01,  1.839129116833924D-01,  9.917901422164995D-03, &
    8.432406244370808D-01, -2.340798283350513D-02,  3.394457013361375D-02, &
    8.501310025536610D-01, -9.347168973702518D-01,  1.258009305624949D-02, &
    8.637451657209914D-01,  6.139023089531026D-01,  2.808904163947544D-02, &
    8.779301509485118D-01, -5.948583749922939D-01,  2.015897400394908D-02, &
    8.888912692909274D-01,  3.479987971871291D-01,  2.796225817458692D-02, &
    9.116574969716016D-01, -8.271123341203230D-01,  1.601077862848477D-02, &
    9.183317763520688D-01,  9.261208167798600D-01,  1.096195080681892D-02, &
    9.232310041137312D-01, -1.804372056187648D-01,  2.477443727803194D-02, &
    9.295735875484051D-01, -9.848152682310835D-01,  4.103888501222671D-03, &
    9.314612798308124D-01,  9.967694998936406D-01,  1.745679805743830D-03, &
    9.382448848401312D-01, -4.599118226520993D-01,  1.718439080989034D-02, &
    9.411359576419225D-01,  7.505472392355358D-01,  1.603065396164867D-02, &
    9.462498240094916D-01,  1.332608625807670D-01,  2.240075719199047D-02, &
    9.611009120701418D-01,  5.003853392931935D-01,  1.712154659313199D-02, &
    9.629324251458530D-01, -6.898499209334040D-01,  1.253275279199627D-02, &
    9.721136174490276D-01, -9.199575449706859D-01,  6.336945711231334D-03, &
    9.832827588628299D-01, -3.064831307139635D-01,  1.011037458386165D-02, &
    9.850307952194871D-01,  8.619821821525152D-01,  5.756950705760731D-03, &
    9.853949921317231D-01,  9.716885948870212D-01,  2.611624046143479D-03, &
    9.885493346511697D-01, -3.754426235872674D-02,  9.243463352453171D-03, &
    9.916021206491545D-01,  3.020588266272870D-01,  7.856326443021280D-03, &
    9.936165836110393D-01, -5.449460871204653D-01,  5.048778280493792D-03, &
    9.945746533289254D-01, -8.095347588811120D-01,  3.444322300954131D-03, &
    9.947553807807867D-01,  6.565416135023074D-01,  4.902572703976801D-03, &
    9.949933127427926D-01, -9.846653902287268D-01,  9.395690393964076D-04 /)

  return
end
subroutine smr29s ( xyw )

!*****************************************************************************80
!
!! SMR29S returns the rotatonally invariant SMR rule of degree 29.
!
!  Discussion:
!
!    DEGREE: 29
!    ROTATIONALLY INVARIANT: (X,  Y),  (-Y,  X),  (-X, -Y),  (Y, -X).
!    POINTS CARDINALITY: 153
!    NORM INF MOMS. RESIDUAL: 2.70617e-16
!    SUM NEGATIVE WEIGHTS: 1.46517D-02, &
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*153), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*153)

  xyw = (/ &
    1.995554510347695D-01,  1.887353707822548D-01,  7.344881047788419D-02, &
    2.130905764129401D-01,  5.455267403580432D-01,  6.209984035978915D-02, &
    2.388895084628246D-01,  8.131809651972651D-01,  4.184384427163037D-02, &
    2.038938767743064D-01,  9.863343822191492D-01,  5.131075694716339D-04, &
    2.698246240215212D-01,  9.643706705539593D-01,  1.712164807226155D-02, &
    3.928345180603147D-01,  3.686184349052021D-01,  6.489527207591311D-02, &
    4.144000559327279D-01,  6.845975817877503D-01,  4.944840913356350D-02, &
    4.402759350876731D-01,  9.010432195863607D-01,  2.757405514679618D-02, &
    4.527181508614157D-01,  9.952152161758490D-01,  4.925532618002394D-03, &
    5.579522261495289D-01,  1.761582819832321D-01,  6.188238970001386D-02, &
    5.753347655779147D-01,  5.292288412881652D-01,  5.168460836650747D-02, &
    5.934515082334419D-01,  8.046750403390426D-01,  3.415204165486681D-02, &
    6.055261390114883D-01,  9.669899640916929D-01,  1.323441713883155D-02, &
    7.154909664472028D-01,  3.523839334728593D-01,  4.846803145137081D-02, &
    7.268010683419225D-01,  6.783203685825908D-01,  3.602990566434557D-02, &
    7.296280734021068D-01,  9.091222948855520D-01,  1.863026896557024D-02, &
    7.685318705419301D-01,  9.932162015282956D-01,  4.367730318652883D-03, &
    8.289969889442530D-01,  1.584524092289804D-01,  4.058748981808668D-02, &
    8.365897953958084D-01,  5.258522155386184D-01,  3.319785897530852D-02, &
    8.316719666113968D-01,  8.204370730256448D-01,  2.075970864095848D-02, &
    8.871860429369979D-01,  9.163805447338561D-01,  3.893022115627323D-03, &
    8.690236026560919D-01,  9.647484296790166D-01,  7.335685071586549D-03, &
    9.187533470826308D-01,  3.499840453590620D-01,  2.626466692941504D-02, &
    9.134702524025524D-01,  7.013486396820177D-01,  1.955810454123038D-02, &
    9.541746623132917D-01,  8.410023019359270D-01,  6.965850473298985D-03, &
    9.475721149242626D-01,  9.269025845479085D-01,  5.802838252293684D-03, &
    9.568636719971328D-01,  9.889975414443256D-01,  3.098510717291335D-03, &
    9.700539003410525D-01,  1.462690094803091D-01,  1.684436628110278D-02, &
    9.961052572257075D-01,  3.632658507871842D-01,  5.146979760206008D-03, &
    9.696607933775031D-01,  5.511605113182357D-01,  1.411592369017692D-02, &
    9.930889935835162D-01,  7.238541535398172D-01,  4.366281743177327D-03, &
    9.861368659264031D-01,  8.483603521407402D-01,  2.558788266617852D-03, &
    9.703225207695876D-01,  9.617299191521864D-01, -3.662923776765502D-03, &
    9.877929897983208D-01,  9.572988789445298D-01,  3.811762688023674D-03, &
    1.110886537223573D-02,  3.805232776392568D-01,  7.048655460716827D-02, &
    2.656770164537742D-02,  7.008980905724834D-01,  5.369718262729808D-02, &
    5.439701833656795D-02,  9.100556589521321D-01,  2.989488274476401D-02, &
    7.142859722990462D-02,  9.946044556670760D-01,  5.849868982269740D-03, &
   -1.887353707822548D-01,  1.995554510347695D-01,  7.344881047788419D-02, &
   -5.455267403580432D-01,  2.130905764129401D-01,  6.209984035978915D-02, &
   -8.131809651972651D-01,  2.388895084628246D-01,  4.184384427163037D-02, &
   -9.863343822191492D-01,  2.038938767743064D-01,  5.131075694716339D-04, &
   -9.643706705539593D-01,  2.698246240215212D-01,  1.712164807226155D-02, &
   -3.686184349052021D-01,  3.928345180603147D-01,  6.489527207591311D-02, &
   -6.845975817877503D-01,  4.144000559327279D-01,  4.944840913356350D-02, &
   -9.010432195863607D-01,  4.402759350876731D-01,  2.757405514679618D-02, &
   -9.952152161758490D-01,  4.527181508614157D-01,  4.925532618002394D-03, &
   -1.761582819832321D-01,  5.579522261495289D-01,  6.188238970001386D-02, &
   -5.292288412881652D-01,  5.753347655779147D-01,  5.168460836650747D-02, &
   -8.046750403390426D-01,  5.934515082334419D-01,  3.415204165486681D-02, &
   -9.669899640916929D-01,  6.055261390114883D-01,  1.323441713883155D-02, &
   -3.523839334728593D-01,  7.154909664472028D-01,  4.846803145137081D-02, &
   -6.783203685825908D-01,  7.268010683419225D-01,  3.602990566434557D-02, &
   -9.091222948855520D-01,  7.296280734021068D-01,  1.863026896557024D-02, &
   -9.932162015282956D-01,  7.685318705419301D-01,  4.367730318652883D-03, &
   -1.584524092289804D-01,  8.289969889442530D-01,  4.058748981808668D-02, &
   -5.258522155386184D-01,  8.365897953958084D-01,  3.319785897530852D-02, &
   -8.204370730256448D-01,  8.316719666113968D-01,  2.075970864095848D-02, &
   -9.163805447338561D-01,  8.871860429369979D-01,  3.893022115627323D-03, &
   -9.647484296790166D-01,  8.690236026560919D-01,  7.335685071586549D-03, &
   -3.499840453590620D-01,  9.187533470826308D-01,  2.626466692941504D-02, &
   -7.013486396820177D-01,  9.134702524025524D-01,  1.955810454123038D-02, &
   -8.410023019359270D-01,  9.541746623132917D-01,  6.965850473298985D-03, &
   -9.269025845479085D-01,  9.475721149242626D-01,  5.802838252293684D-03, &
   -9.889975414443256D-01,  9.568636719971328D-01,  3.098510717291335D-03, &
   -1.462690094803091D-01,  9.700539003410525D-01,  1.684436628110278D-02, &
   -3.632658507871842D-01,  9.961052572257075D-01,  5.146979760206008D-03, &
   -5.511605113182357D-01,  9.696607933775031D-01,  1.411592369017692D-02, &
   -7.238541535398172D-01,  9.930889935835162D-01,  4.366281743177327D-03, &
   -8.483603521407402D-01,  9.861368659264031D-01,  2.558788266617852D-03, &
   -9.617299191521864D-01,  9.703225207695876D-01, -3.662923776765502D-03, &
   -9.572988789445298D-01,  9.877929897983208D-01,  3.811762688023674D-03, &
   -3.805232776392568D-01,  1.110886537223573D-02,  7.048655460716827D-02, &
   -7.008980905724834D-01,  2.656770164537742D-02,  5.369718262729808D-02, &
   -9.100556589521321D-01,  5.439701833656795D-02,  2.989488274476401D-02, &
   -9.946044556670760D-01,  7.142859722990462D-02,  5.849868982269740D-03, &
   -1.995554510347695D-01, -1.887353707822548D-01,  7.344881047788419D-02, &
   -2.130905764129401D-01, -5.455267403580432D-01,  6.209984035978915D-02, &
   -2.388895084628246D-01, -8.131809651972651D-01,  4.184384427163037D-02, &
   -2.038938767743064D-01, -9.863343822191492D-01,  5.131075694716339D-04, &
   -2.698246240215212D-01, -9.643706705539593D-01,  1.712164807226155D-02, &
   -3.928345180603147D-01, -3.686184349052021D-01,  6.489527207591311D-02, &
   -4.144000559327279D-01, -6.845975817877503D-01,  4.944840913356350D-02, &
   -4.402759350876731D-01, -9.010432195863607D-01,  2.757405514679618D-02, &
   -4.527181508614157D-01, -9.952152161758490D-01,  4.925532618002394D-03, &
   -5.579522261495289D-01, -1.761582819832321D-01,  6.188238970001386D-02, &
   -5.753347655779147D-01, -5.292288412881652D-01,  5.168460836650747D-02, &
   -5.934515082334419D-01, -8.046750403390426D-01,  3.415204165486681D-02, &
   -6.055261390114883D-01, -9.669899640916929D-01,  1.323441713883155D-02, &
   -7.154909664472028D-01, -3.523839334728593D-01,  4.846803145137081D-02, &
   -7.268010683419225D-01, -6.783203685825908D-01,  3.602990566434557D-02, &
   -7.296280734021068D-01, -9.091222948855520D-01,  1.863026896557024D-02, &
   -7.685318705419301D-01, -9.932162015282956D-01,  4.367730318652883D-03, &
   -8.289969889442530D-01, -1.584524092289804D-01,  4.058748981808668D-02, &
   -8.365897953958084D-01, -5.258522155386184D-01,  3.319785897530852D-02, &
   -8.316719666113968D-01, -8.204370730256448D-01,  2.075970864095848D-02, &
   -8.871860429369979D-01, -9.163805447338561D-01,  3.893022115627323D-03, &
   -8.690236026560919D-01, -9.647484296790166D-01,  7.335685071586549D-03, &
   -9.187533470826308D-01, -3.499840453590620D-01,  2.626466692941504D-02, &
   -9.134702524025524D-01, -7.013486396820177D-01,  1.955810454123038D-02, &
   -9.541746623132917D-01, -8.410023019359270D-01,  6.965850473298985D-03, &
   -9.475721149242626D-01, -9.269025845479085D-01,  5.802838252293684D-03, &
   -9.568636719971328D-01, -9.889975414443256D-01,  3.098510717291335D-03, &
   -9.700539003410525D-01, -1.462690094803091D-01,  1.684436628110278D-02, &
   -9.961052572257075D-01, -3.632658507871842D-01,  5.146979760206008D-03, &
   -9.696607933775031D-01, -5.511605113182357D-01,  1.411592369017692D-02, &
   -9.930889935835162D-01, -7.238541535398172D-01,  4.366281743177327D-03, &
   -9.861368659264031D-01, -8.483603521407402D-01,  2.558788266617852D-03, &
   -9.703225207695876D-01, -9.617299191521864D-01, -3.662923776765502D-03, &
   -9.877929897983208D-01, -9.572988789445298D-01,  3.811762688023674D-03, &
   -1.110886537223573D-02, -3.805232776392568D-01,  7.048655460716827D-02, &
   -2.656770164537742D-02, -7.008980905724834D-01,  5.369718262729808D-02, &
   -5.439701833656795D-02, -9.100556589521321D-01,  2.989488274476401D-02, &
   -7.142859722990462D-02, -9.946044556670760D-01,  5.849868982269740D-03, &
    1.887353707822548D-01, -1.995554510347695D-01,  7.344881047788419D-02, &
    5.455267403580432D-01, -2.130905764129401D-01,  6.209984035978915D-02, &
    8.131809651972651D-01, -2.388895084628246D-01,  4.184384427163037D-02, &
    9.863343822191492D-01, -2.038938767743064D-01,  5.131075694716339D-04, &
    9.643706705539593D-01, -2.698246240215212D-01,  1.712164807226155D-02, &
    3.686184349052021D-01, -3.928345180603147D-01,  6.489527207591311D-02, &
    6.845975817877503D-01, -4.144000559327279D-01,  4.944840913356350D-02, &
    9.010432195863607D-01, -4.402759350876731D-01,  2.757405514679618D-02, &
    9.952152161758490D-01, -4.527181508614157D-01,  4.925532618002394D-03, &
    1.761582819832321D-01, -5.579522261495289D-01,  6.188238970001386D-02, &
    5.292288412881652D-01, -5.753347655779147D-01,  5.168460836650747D-02, &
    8.046750403390426D-01, -5.934515082334419D-01,  3.415204165486681D-02, &
    9.669899640916929D-01, -6.055261390114883D-01,  1.323441713883155D-02, &
    3.523839334728593D-01, -7.154909664472028D-01,  4.846803145137081D-02, &
    6.783203685825908D-01, -7.268010683419225D-01,  3.602990566434557D-02, &
    9.091222948855520D-01, -7.296280734021068D-01,  1.863026896557024D-02, &
    9.932162015282956D-01, -7.685318705419301D-01,  4.367730318652883D-03, &
    1.584524092289804D-01, -8.289969889442530D-01,  4.058748981808668D-02, &
    5.258522155386184D-01, -8.365897953958084D-01,  3.319785897530852D-02, &
    8.204370730256448D-01, -8.316719666113968D-01,  2.075970864095848D-02, &
    9.163805447338561D-01, -8.871860429369979D-01,  3.893022115627323D-03, &
    9.647484296790166D-01, -8.690236026560919D-01,  7.335685071586549D-03, &
    3.499840453590620D-01, -9.187533470826308D-01,  2.626466692941504D-02, &
    7.013486396820177D-01, -9.134702524025524D-01,  1.955810454123038D-02, &
    8.410023019359270D-01, -9.541746623132917D-01,  6.965850473298985D-03, &
    9.269025845479085D-01, -9.475721149242626D-01,  5.802838252293684D-03, &
    9.889975414443256D-01, -9.568636719971328D-01,  3.098510717291335D-03, &
    1.462690094803091D-01, -9.700539003410525D-01,  1.684436628110278D-02, &
    3.632658507871842D-01, -9.961052572257075D-01,  5.146979760206008D-03, &
    5.511605113182357D-01, -9.696607933775031D-01,  1.411592369017692D-02, &
    7.238541535398172D-01, -9.930889935835162D-01,  4.366281743177327D-03, &
    8.483603521407402D-01, -9.861368659264031D-01,  2.558788266617852D-03, &
    9.617299191521864D-01, -9.703225207695876D-01, -3.662923776765502D-03, &
    9.572988789445298D-01, -9.877929897983208D-01,  3.811762688023674D-03, &
    3.805232776392568D-01, -1.110886537223573D-02,  7.048655460716827D-02, &
    7.008980905724834D-01, -2.656770164537742D-02,  5.369718262729808D-02, &
    9.100556589521321D-01, -5.439701833656795D-02,  2.989488274476401D-02, &
    9.946044556670760D-01, -7.142859722990462D-02,  5.849868982269740D-03, &
    0.000000000000000D+00,  0.000000000000000D+00,  7.642673546157117D-02 /)

  return
end
subroutine smr30 ( xyw )

!*****************************************************************************80
!
!! SMR30 returns the SMR rule of degree 30.
!
!  Discussion:
!
!    DEGREE: 30
!    XIAO-GIMBUTAS ESTIMATE: 166 MOELLER-RASPUTIN LOWER BOUND: 128
!    POINTS CARDINALITY: 167
!    NORM INF MOMS. RESIDUAL: 4.44089e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*167), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*167)

  xyw = (/ &
     -9.962695953022117D-01, -4.432378837780777D-01,  3.892630177515625D-03, &
     -9.954114173626548D-01,  2.643526556843364D-01,  4.534201620636273D-03, &
     -9.949269819594637D-01,  5.811458193160586D-01,  3.690610442210943D-03, &
     -9.947791036081476D-01, -8.855392187642179D-02,  4.945989612847814D-03, &
     -9.940513238712086D-01, -9.629012381127487D-01,  1.529980279640927D-03, &
     -9.937009284888235D-01, -7.963627749974038D-01,  3.806704824353705D-03, &
     -9.914129974533056D-01,  9.014542533695618D-01,  3.250642010093910D-03, &
     -9.912570981356938D-01,  9.920951313914597D-01,  7.737085001637529D-04, &
     -9.823632199537923D-01,  7.480690374805677D-01,  7.178107249226476D-03, &
     -9.774418651328238D-01, -6.195633189134538D-01,  1.012484081798108D-02, &
     -9.706544108267556D-01, -2.729784055929617D-01,  1.355763804090731D-02, &
     -9.703903424063889D-01, -9.055390715558742D-01,  3.812394374457089D-03, &
     -9.694574072185448D-01,  4.341328372213230D-01,  1.266804574330651D-02, &
     -9.690407115962437D-01,  9.341819736700314D-02,  1.394979228044907D-02, &
     -9.628802671374306D-01, -9.944496567185225D-01,  1.467879560257003D-03, &
     -9.527399448624597D-01,  9.624994157286473D-01,  5.260700927456429D-03, &
     -9.514132521336506D-01, -8.829098392211954D-01,  4.907118941168890D-03, &
     -9.345046955574380D-01,  8.387639945783492D-01,  1.172001054121250D-02, &
     -9.297146520577916D-01,  6.183698468095432D-01,  1.825632348450637D-02, &
     -9.293314444347445D-01, -7.435030197515320D-01,  1.482615873422928D-02, &
     -9.260149110397602D-01, -4.576849499932223D-01,  2.118348083720268D-02, &
     -9.191878620227047D-01, -8.576798396420104D-02,  2.272620841149477D-02, &
     -9.158350185631037D-01,  2.692275128511369D-01,  2.304963366190331D-02, &
     -9.100695669977138D-01, -9.705559713759557D-01,  3.389088115670371D-03, &
     -8.849735191782050D-01, -9.517932989228655D-01,  5.364563594773305D-03, &
     -8.808666812238437D-01,  9.943730059848226D-01,  2.875519471334203D-03, &
     -8.595716686462112D-01,  9.162278791175735D-01,  1.277710664857529D-02, &
     -8.534233518158184D-01, -8.449957910924649D-01,  1.658096280776431D-02, &
     -8.532333609215695D-01, -2.640000860004303D-01,  2.911278919189067D-02, &
     -8.500329899131518D-01,  4.606540637675913D-01,  2.965001937514069D-02, &
     -8.500143920229317D-01, -6.082069619792305D-01,  2.645748804192720D-02, &
     -8.454025250745086D-01,  7.354238754987793D-01,  2.316800651593019D-02, &
     -8.367229347951246D-01,  8.990264524394226D-02,  3.373621057431971D-02, &
     -8.001347673092866D-01, -9.933648582561806D-01,  3.850587028399502D-03, &
     -7.695116274930011D-01, -4.118889027088976D-01,  3.034893498538439D-02, &
     -7.555576680657612D-01,  9.700425147325877D-01,  1.014999644279535D-02, &
     -7.538647716837412D-01, -9.239685866946878D-01,  1.517356711708827D-02, &
     -7.462990724884444D-01, -7.378827886824465D-01,  2.842931310687195D-02, &
     -7.435929466472898D-01,  2.881630895110476D-01,  4.096030346800239D-02, &
     -7.367231344637399D-01,  8.391743049717729D-01,  2.371595352428025D-02, &
     -7.360783333119556D-01,  5.954890113834164D-01,  3.505479981673820D-02, &
     -7.358357631903044D-01, -9.719765309238697D-02,  4.351226764743989D-02, &
     -6.784458770150876D-01, -5.334164281651258D-01,  2.989403195373217D-02, &
     -6.323142754086236D-01, -9.756719768853687D-01,  1.050599811708168D-02, &
     -6.187413218331049D-01,  9.957562917639060D-01,  3.877141507331312D-03, &
     -6.185869146576074D-01, -8.450016714647949D-01,  2.679921705344681D-02, &
     -6.169842175479411D-01,  1.078804071378743D-01,  5.004167045667424D-02, &
     -6.111438437236484D-01, -2.769425577256663D-01,  4.921646796209538D-02, &
     -6.028539652311193D-01,  7.224797085796002D-01,  3.569438969843478D-02, &
     -6.024568031179428D-01,  9.184105677646670D-01,  2.045602682082065D-02, &
     -6.005929876780286D-01,  4.366655576377152D-01,  4.708714185331756D-02, &
     -5.721476752159514D-01, -6.455779128450227D-01,  3.324435055130232D-02, &
     -4.821587643276321D-01, -6.552912695280060D-02,  5.000579378842215D-02, &
     -4.693508512146036D-01, -9.251514364207605D-01,  2.156482363680663D-02, &
     -4.664112078735353D-01, -4.442366390500550D-01,  5.080565593127764D-02, &
     -4.618665119648193D-01, -9.967579491010828D-01,  3.816748009617544D-03, &
     -4.494143273856875D-01,  8.276470129494764D-01,  3.214308262649934D-02, &
     -4.479160038776199D-01,  9.719485124728899D-01,  1.285989649810473D-02, &
     -4.448715957603111D-01,  5.834707035806619D-01,  4.762439584447587D-02, &
     -4.443814635842437D-01,  2.635713157455042D-01,  5.794249352621746D-02, &
     -4.396198113354752D-01, -7.548969208964118D-01,  3.428224841661166D-02, &
     -3.657940226461420D-01, -2.006533706330268D-01,  3.755546975167398D-02, &
     -3.068381707303870D-01, -5.934274157892239D-01,  4.806217780828576D-02, &
     -2.967415958337351D-01,  9.138477267737024D-01,  2.179374136407983D-02, &
     -2.843623923239886D-01, -9.723235086081026D-01,  1.370404412777051D-02, &
     -2.841773158810993D-01, -8.502214939557524D-01,  3.069486488068529D-02, &
     -2.774502955157072D-01,  7.783800443548269D-02,  6.485367831170855D-02, &
     -2.754822583044234D-01,  7.120414326285063D-01,  4.331711859331076D-02, &
     -2.687871739273696D-01,  4.269851621611526D-01,  5.836353670839110D-02, &
     -2.567436168928061D-01,  9.945360458235195D-01,  5.240836616582418D-03, &
     -2.513499007569119D-01, -3.210828524214602D-01,  4.844638715484986D-02, &
     -1.598590614299937D-01,  8.482252908489760D-01,  1.682030776305622D-02, &
     -1.427799257579916D-01, -7.170460184955041D-01,  3.915904236744100D-02, &
     -1.091853236351570D-01,  9.580261183543186D-01,  1.474658041347025D-02, &
     -1.022992873259765D-01, -1.104785543258961D-01,  6.661932528640521D-02, &
     -1.015416677161510D-01, -9.200676756186152D-01,  2.329668513832093D-02, &
     -9.412889158601399D-02, -4.688846642550997D-01,  5.469210938337690D-02, &
     -8.907000954456333D-02,  2.513213963693643D-01,  6.571594126284511D-02, &
     -8.744029029762249D-02,  5.785381919572421D-01,  5.300724353175888D-02, &
     -7.712410713884485D-02, -9.943194119246959D-01,  5.499112875651152D-03, &
     -6.523473573640569D-02,  7.983102424409952D-01,  2.517854943448727D-02, &
     -1.095721736720509D-02, -7.962228644585386D-01,  2.085587531389086D-02, &
     2.518303411594268D-02,  9.860853647300887D-01,  6.488533578084030D-03, &
     6.649367018609328D-02,  8.934359950937619D-01,  2.271313073139822D-02, &
     7.864093675987820D-02, -2.918181793455348D-01,  6.374671736339137D-02, &
     8.230594852824862D-02, -6.128716323876445D-01,  5.036688164272618D-02, &
     8.994595584407042D-02,  6.378488548700582D-02,  6.747055946750249D-02, &
     9.331414467274024D-02,  4.264112897435890D-01,  5.762076485371190D-02, &
     1.036274934285688D-01, -9.654170079830869D-01,  1.528097665571535D-02, &
     1.062379679357248D-01,  7.045294352966426D-01,  4.336208027576573D-02, &
     1.070563588959354D-01, -8.518818738785342D-01,  2.527278435887043D-02, &
     1.702241024982263D-01,  9.972150656853269D-01,  2.645999354440326D-03, &
     1.941498146775931D-01,  9.416958566669819D-01,  1.299271762491835D-02, &
     2.382851494989787D-01,  2.794121411070278D-01,  3.900619436018987D-02, &
     2.597216208260207D-01, -4.600772470944473D-01,  5.666664739064187D-02, &
     2.633608715116675D-01, -7.382703813686664D-01,  4.094242606634930D-02, &
     2.680422728449567D-01, -1.237008749685800D-01,  6.430917939062639D-02, &
     2.709535102430495D-01, -9.946277851787007D-01,  4.995330134500549D-03, &
     2.717768185055764D-01,  8.206386870412736D-01,  3.322490081159339D-02, &
     2.860865029604455D-01,  5.750046796390000D-01,  5.163715243954464D-02, &
     2.919629207724195D-01, -9.126523283762582D-01,  2.290547444002006D-02, &
     3.221994725736586D-01,  9.739873036170995D-01,  9.709787500403095D-03, &
     3.238916864531801D-01,  1.871152636079638D-01,  3.786953410800285D-02, &
     4.326883824490022D-01,  9.054252916722543D-01,  2.179426150033381D-02, &
     4.334112862933560D-01, -6.113886295669552D-01,  4.619739021387417D-02, &
     4.393894435610020D-01, -3.042985645127746D-01,  5.679993404477694D-02, &
     4.457707596424073D-01,  4.135856200591693D-01,  5.369039030443149D-02, &
     4.480222422807119D-01, -9.699096000438506D-01,  1.284524266997323D-02, &
     4.481245405662154D-01,  7.226095819651619D-01,  3.875267371369672D-02, &
     4.548106144879556D-01, -8.323081975450645D-01,  3.014220006377240D-02, &
     4.581780858586828D-01,  3.469977407352812D-02,  5.500861406890217D-02, &
     4.703860920439117D-01,  9.947418373536940D-01,  3.780014001903630D-03, &
     5.804007745393400D-01,  9.618079992566787D-01,  1.161053553740031D-02, &
     5.833354854251170D-01,  5.930231848340044D-01,  3.799033003205411D-02, &
     5.930856097062387D-01,  2.373877943575770D-01,  5.084589261923814D-02, &
     5.965641353176369D-01, -4.730726160978409D-01,  4.627028009154758D-02, &
     6.019409638213139D-01,  8.388951235924025D-01,  2.676118014960469D-02, &
     6.025337137784932D-01, -1.408542441091471D-01,  4.904466589737274D-02, &
     6.035685372806677D-01, -9.184860893047954D-01,  1.930940686592521D-02, &
     6.054544565337695D-01, -9.957236600655665D-01,  3.768877425809975D-03, &
     6.057207734020840D-01, -7.322512010108688D-01,  3.339567747677206D-02, &
     6.875670307888612D-01,  4.627278058070344D-01,  2.947065495054275D-02, &
     7.023177466590736D-01,  9.928205536558483D-01,  3.885728390925337D-03, &
     7.195170980700635D-01,  7.305873329417671D-01,  2.847807814619499D-02, &
     7.238446910374424D-01,  5.561690048457465D-02,  4.419832996135477D-02, &
     7.240210652949475D-01, -3.007014261972007D-01,  3.439575422315153D-02, &
     7.371020667711963D-01,  9.252595362582127D-01,  1.536785201342859D-02, &
     7.384195707426535D-01, -8.438380733571678D-01,  2.235510768691872D-02, &
     7.405499034588905D-01, -6.188990137603514D-01,  3.246295613758222D-02, &
     7.440604692168796D-01, -9.713408547253161D-01,  9.607479120263517D-03, &
     7.685900922442980D-01,  3.465057508910690D-01,  2.776338673026480D-02, &
     7.954329735534109D-01, -4.109341533557886D-01,  1.857369110661608D-02, &
     8.140461518894649D-01,  5.964637576338830D-01,  2.604275460103966D-02, &
     8.298209513184971D-01,  8.417188363600208D-01,  1.770911353888088D-02, &
     8.337255108415906D-01, -1.237521420338796D-01,  3.477363818844623D-02, &
     8.450338467672839D-01,  9.803989034344278D-01,  6.318914249788773D-03, &
     8.499053424569023D-01, -7.513598048680518D-01,  2.131459811435620D-02, &
     8.505494208495452D-01,  2.034903566768354D-01,  2.898559224509574D-02, &
     8.534375448038033D-01, -9.226288272371441D-01,  1.212457346099878D-02, &
     8.655964520277111D-01, -9.954157466834472D-01,  2.574302443652325D-03, &
     8.685850946711341D-01, -5.228140183251604D-01,  2.217355893689261D-02, &
     8.943292225583946D-01,  4.595261118728072D-01,  2.187541877465294D-02, &
     9.006171857996548D-01,  7.180830553785196D-01,  1.636671200905273D-02, &
     9.075612511758971D-01,  9.205481097893897D-01,  7.889096906380533D-03, &
     9.108243128554621D-01, -3.093255095271237D-01,  2.247790975299426D-02, &
     9.242976221883992D-01,  4.079387457619278D-02,  2.269368117980306D-02, &
     9.336780332840566D-01, -8.547607055279791D-01,  1.092484696375260D-02, &
     9.387265328139205D-01, -6.592057435752858D-01,  1.490210373726517D-02, &
     9.446037800832677D-01, -9.693489449953010D-01,  4.898536170872587D-03, &
     9.479408185885666D-01,  9.575588886071763D-01,  2.997578905083853D-03, &
     9.495353577945340D-01,  3.186288923971684D-01,  1.513823435852647D-02, &
     9.520042531581182D-01,  9.980612732198122D-01,  1.202725556369299D-03, &
     9.525533437955715D-01,  8.141508738554407D-01,  8.188829215294804D-03, &
     9.641212854564828D-01,  5.940993549166920D-01,  1.301642639806175D-02, &
     9.664957432070073D-01, -1.581005636616589D-01,  1.326365917546207D-02, &
     9.683352852913805D-01, -4.679098763469015D-01,  1.225127303731581D-02, &
     9.842518603414726D-01,  1.836896830126595D-01,  8.499315253887113D-03, &
     9.846619943535420D-01, -7.799717728866817D-01,  5.965044619806711D-03, &
     9.852422761112879D-01,  8.861974810453618D-01,  3.934308818294981D-03, &
     9.891880847194036D-01, -9.191530362600531D-01,  3.253203726665571D-03, &
     9.897009343507575D-01, -9.931297876049714D-01,  7.600893882678305D-04, &
     9.922603853169076D-01,  9.719335327349238D-01,  1.435167883917694D-03, &
     9.936305551862550D-01, -1.510608205895069D-02,  4.418790732679170D-03, &
     9.941000705774204D-01,  4.425041797515226D-01,  5.144918479154803D-03, &
     9.941101780466588D-01,  7.280757215015392D-01,  3.867855257271212D-03, &
     9.950172763856067D-01, -6.114888124308911D-01,  3.581501248642710D-03, &
     9.951171305214461D-01, -3.168085664517462D-01,  4.336888090484613D-03 /)

  return
end
subroutine smr31 ( xyw )

!*****************************************************************************80
!
!! SMR31 returns the SMR rule of degree 31.
!
!  Discussion:
!
!   DEGREE: 31
!    POINTS CARDINALITY: 172
!    NORM INF MOMS. RESIDUAL: 2.07733e-16
!    SUM NEGATIVE WEIGHTS: 0
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*172), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*172)

  xyw = (/ &
-9.955496296346447D-01, -2.757893737712724D-02,  3.952828126515200D-03, &
 -9.952093636515903D-01,  3.078672596656606D-01,  4.465674926565594D-03, &
 -9.949219293696708D-01, -4.293313749761587D-01,  4.734653786951149D-03, &
 -9.947777289433332D-01,  6.082007753656643D-01,  3.687083706716762D-03, &
 -9.947711657807963D-01, -7.291135575065112D-01,  3.567753282746309D-03, &
 -9.898665478412323D-01,  9.927280498683013D-01,  7.900353557535870D-04, &
 -9.896201133119824D-01,  9.148303804608103D-01,  3.248339703605548D-03, &
 -9.894221797194233D-01, -8.963309110540300D-01,  2.680927365865937D-03, &
 -9.891613515312806D-01, -9.745514901909140D-01,  1.655992514072826D-03, &
 -9.847115459075805D-01,  7.760597415217361D-01,  5.791133619187665D-03, &
 -9.822216835749852D-01, -1.858981354343795D-01,  6.958199118327337D-03, &
 -9.688290280461213D-01,  1.346435658626332D-01,  1.394269523344841D-02, &
 -9.681141160941403D-01,  4.618217642366224D-01,  1.249777398451523D-02, &
 -9.680653032337156D-01, -5.892528308394193D-01,  1.229021380297149D-02, &
 -9.621105113004819D-01, -8.293868331873653D-01,  7.471001060877273D-03, &
 -9.565888110363844D-01, -2.955138587991344D-01,  1.254260666301101D-02, &
 -9.469790068617381D-01, -9.968106327216375D-01,  1.362946951896202D-03, &
 -9.464971595212447D-01,  9.668261260754121D-01,  5.057521838548747D-03, &
 -9.404074979033311D-01,  6.594952112812067D-01,  1.377422226180171D-02, &
 -9.386071275818250D-01, -9.447266737672761D-01,  4.408092682116897D-03, &
 -9.340283957363398D-01,  8.488905145274273D-01,  1.096662540259541D-02, &
 -9.198052061978775D-01, -5.136717870605163D-02,  2.325563069027812D-02, &
 -9.125069846160752D-01,  2.965175005985400D-01,  2.317349030282014D-02, &
 -9.123983052278903D-01, -7.247489113905282D-01,  1.632786836774140D-02, &
 -9.068677187647651D-01, -4.445873104662686D-01,  2.188675357029590D-02, &
 -9.055659136341394D-01, -9.175374320754922D-01,  5.491385731273308D-03, &
 -8.774069425333418D-01,  5.321738640857572D-01,  1.982544206254361D-02, &
 -8.706320657782287D-01,  9.948789461128177D-01,  2.722659841902658D-03, &
 -8.559872594373867D-01,  9.178926105523973D-01,  1.239374987476905D-02, &
 -8.487413771127457D-01,  7.442213847925441D-01,  2.151797328509033D-02, &
 -8.475645530398180D-01, -2.209115672323100D-01,  2.832498125828596D-02, &
 -8.449119525088070D-01, -9.790174363372415D-01,  6.490465735794747D-03, &
 -8.388493423999792D-01, -8.442105015209006D-01,  1.741719558530361D-02, &
 -8.320878189683433D-01,  1.145771146767555D-01,  3.439308836971967D-02, &
 -8.290267482829156D-01, -5.972601809233826D-01,  2.702368742037717D-02, &
 -8.034575695173080D-01,  4.094748377144478D-01,  2.509623581221141D-02, &
 -7.760357257316899D-01, -3.548922765484357D-01,  2.268460217050950D-02, &
 -7.509248997072229D-01,  9.692871949519603D-01,  9.979338077119586D-03, &
 -7.387062791288017D-01,  8.375261790603876D-01,  2.279562252991799D-02, &
 -7.382550697652832D-01,  6.100825289389331D-01,  3.294515892662506D-02, &
 -7.363260972595160D-01, -9.253776418251520D-01,  1.584321780127163D-02, &
 -7.298334096260589D-01, -7.360653624762051D-01,  2.903866461556321D-02, &
 -7.251547137883499D-01, -6.996863675606819D-02,  4.370775795972342D-02, &
 -7.113581145093257D-01,  2.702313355967329D-01,  3.714680586412551D-02, &
 -7.071807441641457D-01, -9.944876613499617D-01,  3.480514785349274D-03, &
 -7.039820156247814D-01, -4.654525806221809D-01,  3.069975493264972D-02, &
 -6.184086297782805D-01,  9.955258965189302D-01,  3.881568620917195D-03, &
 -6.077218310997582D-01,  9.148419450019303D-01,  1.991703166278273D-02, &
 -6.034954341682667D-01,  7.237932367497814D-01,  3.389141507458358D-02, &
 -6.013041765209197D-01, -8.425771299300596D-01,  2.713141610820029D-02, &
 -5.995171839175090D-01,  4.575307437971686D-01,  4.553732637405976D-02, &
 -5.987747492273197D-01, -2.555243484270794D-01,  5.002646306167845D-02, &
 -5.927778548664734D-01, -6.036103424582507D-01,  3.911054484449386D-02, &
 -5.901440107668018D-01,  1.060198712260184D-01,  4.821287790488322D-02, &
 -5.784913015945842D-01, -9.666586674693635D-01,  1.173664788888666D-02, &
 -4.588198301439419D-01,  9.693486333009571D-01,  1.313666284266309D-02, &
 -4.567271123348693D-01,  8.253817273249296D-01,  3.056135412459628D-02, &
 -4.537069399424983D-01, -4.303216184624180D-01,  5.246566824474671D-02, &
 -4.528331550744691D-01, -6.765968580901423D-02,  5.225928157201407D-02, &
 -4.472686223717481D-01, -7.308744706376724D-01,  3.864973973872291D-02, &
 -4.434291687664805D-01,  2.865506865407869D-01,  5.621007974099101D-02, &
 -4.406325252658753D-01, -9.951861574277165D-01,  3.942690951645789D-03, &
 -4.393137941615871D-01,  5.923410411408412D-01,  4.592935024129758D-02, &
 -4.286656345744738D-01, -9.110553186427821D-01,  2.189185972353471D-02, &
 -3.378031689425344D-01, -2.004187762207998D-01,  2.823318588167162D-02, &
 -3.044251614615452D-01,  9.086361595553306D-01,  2.309284749670321D-02, &
 -2.928456536563019D-01, -9.712927609897977D-01,  1.017404407973292D-02, &
 -2.912502627343641D-01, -5.842088648173278D-01,  4.974674817513107D-02, &
 -2.811322114845757D-01,  9.943304190452436D-01,  5.253366355617619D-03, &
 -2.766540265223294D-01,  7.185096774489679D-01,  4.096115975792532D-02, &
 -2.748922538693097D-01,  1.033654937792176D-01,  6.398840590311936D-02, &
 -2.658691893989600D-01, -8.278100124889359D-01,  3.306728584127568D-02, &
 -2.638448388909397D-01,  4.383380334499116D-01,  5.665306321736824D-02, &
 -2.509255177911933D-01, -2.932348684939356D-01,  4.608256320492199D-02, &
 -1.873924507634162D-01, -9.941405263712252D-01,  2.154767334708834D-03, &
 -1.623725117112911D-01, -9.393770105705175D-01,  1.234737326017698D-02, &
 -1.321095433217891D-01,  8.321796504932829D-01,  2.707477268062864D-02, &
 -1.248486574319150D-01,  9.596829430320998D-01,  1.572343508516491D-02, &
 -1.160794606213587D-01, -7.051458563086379D-01,  3.871928288060491D-02, &
 -9.862627315703923D-02, -8.426927609780714D-02,  6.684928152189812D-02, &
 -9.324738040737274D-02, -4.443546718135858D-01,  5.655998204740964D-02, &
 -9.000433791884935D-02,  5.901154946888999D-01,  5.092306051816564D-02, &
 -8.193230202578333D-02,  2.677472052197009D-01,  6.437330348690143D-02, &
 -4.921447280582370D-02, -8.948195724899560D-01,  2.115122029930462D-02, &
 -2.766233245972495D-02, -9.904468342292223D-01,  6.140727614369517D-03, &
 -1.010525418227002D-02,  7.724429823094344D-01,  1.672977767715024D-02, &
 1.010525418227002D-02, -7.724429823094344D-01,  1.672977767715024D-02, &
 2.766233245972495D-02,  9.904468342292223D-01,  6.140727614369517D-03, &
 4.921447280582370D-02,  8.948195724899560D-01,  2.115122029930462D-02, &
 8.193230202578333D-02, -2.677472052197009D-01,  6.437330348690143D-02, &
 9.000433791884935D-02, -5.901154946888999D-01,  5.092306051816564D-02, &
 9.324738040737274D-02,  4.443546718135858D-01,  5.655998204740964D-02, &
 9.862627315703923D-02,  8.426927609780714D-02,  6.684928152189812D-02, &
 1.160794606213587D-01,  7.051458563086379D-01,  3.871928288060491D-02, &
 1.248486574319150D-01, -9.596829430320998D-01,  1.572343508516491D-02, &
 1.321095433217891D-01, -8.321796504932829D-01,  2.707477268062864D-02, &
 1.623725117112911D-01,  9.393770105705175D-01,  1.234737326017698D-02, &
 1.873924507634162D-01,  9.941405263712252D-01,  2.154767334708834D-03, &
 2.509255177911933D-01,  2.932348684939356D-01,  4.608256320492199D-02, &
 2.638448388909397D-01, -4.383380334499116D-01,  5.665306321736824D-02, &
 2.658691893989600D-01,  8.278100124889359D-01,  3.306728584127568D-02, &
 2.748922538693097D-01, -1.033654937792176D-01,  6.398840590311936D-02, &
 2.766540265223294D-01, -7.185096774489679D-01,  4.096115975792532D-02, &
 2.811322114845757D-01, -9.943304190452436D-01,  5.253366355617619D-03, &
 2.912502627343641D-01,  5.842088648173278D-01,  4.974674817513107D-02, &
 2.928456536563019D-01,  9.712927609897977D-01,  1.017404407973292D-02, &
 3.044251614615452D-01, -9.086361595553306D-01,  2.309284749670321D-02, &
 3.378031689425344D-01,  2.004187762207998D-01,  2.823318588167162D-02, &
 4.286656345744738D-01,  9.110553186427821D-01,  2.189185972353471D-02, &
 4.393137941615871D-01, -5.923410411408412D-01,  4.592935024129758D-02, &
 4.406325252658753D-01,  9.951861574277165D-01,  3.942690951645789D-03, &
 4.434291687664805D-01, -2.865506865407869D-01,  5.621007974099101D-02, &
 4.472686223717481D-01,  7.308744706376724D-01,  3.864973973872291D-02, &
 4.528331550744691D-01,  6.765968580901423D-02,  5.225928157201407D-02, &
 4.537069399424983D-01,  4.303216184624180D-01,  5.246566824474671D-02, &
 4.567271123348693D-01, -8.253817273249296D-01,  3.056135412459628D-02, &
 4.588198301439419D-01, -9.693486333009571D-01,  1.313666284266309D-02, &
 5.784913015945842D-01,  9.666586674693635D-01,  1.173664788888666D-02, &
 5.901440107668018D-01, -1.060198712260184D-01,  4.821287790488322D-02, &
 5.927778548664734D-01,  6.036103424582507D-01,  3.911054484449386D-02, &
 5.987747492273197D-01,  2.555243484270794D-01,  5.002646306167845D-02, &
 5.995171839175090D-01, -4.575307437971686D-01,  4.553732637405976D-02, &
 6.013041765209197D-01,  8.425771299300596D-01,  2.713141610820029D-02, &
 6.034954341682667D-01, -7.237932367497814D-01,  3.389141507458358D-02, &
 6.077218310997582D-01, -9.148419450019303D-01,  1.991703166278273D-02, &
 6.184086297782805D-01, -9.955258965189302D-01,  3.881568620917195D-03, &
 7.039820156247814D-01,  4.654525806221809D-01,  3.069975493264972D-02, &
 7.071807441641457D-01,  9.944876613499617D-01,  3.480514785349274D-03, &
 7.113581145093257D-01, -2.702313355967329D-01,  3.714680586412551D-02, &
 7.251547137883499D-01,  6.996863675606819D-02,  4.370775795972342D-02, &
 7.298334096260589D-01,  7.360653624762051D-01,  2.903866461556321D-02, &
 7.363260972595160D-01,  9.253776418251520D-01,  1.584321780127163D-02, &
 7.382550697652832D-01, -6.100825289389331D-01,  3.294515892662506D-02, &
 7.387062791288017D-01, -8.375261790603876D-01,  2.279562252991799D-02, &
 7.509248997072229D-01, -9.692871949519603D-01,  9.979338077119586D-03, &
 7.760357257316899D-01,  3.548922765484357D-01,  2.268460217050950D-02, &
 8.034575695173080D-01, -4.094748377144478D-01,  2.509623581221141D-02, &
 8.290267482829156D-01,  5.972601809233826D-01,  2.702368742037717D-02, &
 8.320878189683433D-01, -1.145771146767555D-01,  3.439308836971967D-02, &
 8.388493423999792D-01,  8.442105015209006D-01,  1.741719558530361D-02, &
 8.449119525088070D-01,  9.790174363372415D-01,  6.490465735794747D-03, &
 8.475645530398180D-01,  2.209115672323100D-01,  2.832498125828596D-02, &
 8.487413771127457D-01, -7.442213847925441D-01,  2.151797328509033D-02, &
 8.559872594373867D-01, -9.178926105523973D-01,  1.239374987476905D-02, &
 8.706320657782287D-01, -9.948789461128177D-01,  2.722659841902658D-03, &
 8.774069425333418D-01, -5.321738640857572D-01,  1.982544206254361D-02, &
 9.055659136341394D-01,  9.175374320754922D-01,  5.491385731273308D-03, &
 9.068677187647651D-01,  4.445873104662686D-01,  2.188675357029590D-02, &
 9.123983052278903D-01,  7.247489113905282D-01,  1.632786836774140D-02, &
 9.125069846160752D-01, -2.965175005985400D-01,  2.317349030282014D-02, &
 9.198052061978775D-01,  5.136717870605163D-02,  2.325563069027812D-02, &
 9.340283957363398D-01, -8.488905145274273D-01,  1.096662540259541D-02, &
 9.386071275818250D-01,  9.447266737672761D-01,  4.408092682116897D-03, &
 9.404074979033311D-01, -6.594952112812067D-01,  1.377422226180171D-02, &
 9.464971595212447D-01, -9.668261260754121D-01,  5.057521838548747D-03, &
 9.469790068617381D-01,  9.968106327216375D-01,  1.362946951896202D-03, &
 9.565888110363844D-01,  2.955138587991344D-01,  1.254260666301101D-02, &
 9.621105113004819D-01,  8.293868331873653D-01,  7.471001060877273D-03, &
 9.680653032337156D-01,  5.892528308394193D-01,  1.229021380297149D-02, &
 9.681141160941403D-01, -4.618217642366224D-01,  1.249777398451523D-02, &
 9.688290280461213D-01, -1.346435658626332D-01,  1.394269523344841D-02, &
 9.822216835749852D-01,  1.858981354343795D-01,  6.958199118327337D-03, &
 9.847115459075805D-01, -7.760597415217361D-01,  5.791133619187665D-03, &
 9.891613515312806D-01,  9.745514901909140D-01,  1.655992514072826D-03, &
 9.894221797194233D-01,  8.963309110540300D-01,  2.680927365865937D-03, &
 9.896201133119824D-01, -9.148303804608103D-01,  3.248339703605548D-03, &
 9.898665478412323D-01, -9.927280498683013D-01,  7.900353557535870D-04, &
 9.947711657807963D-01,  7.291135575065112D-01,  3.567753282746309D-03, &
 9.947777289433332D-01, -6.082007753656643D-01,  3.687083706716762D-03, &
 9.949219293696708D-01,  4.293313749761587D-01,  4.734653786951149D-03, &
 9.952093636515903D-01, -3.078672596656606D-01,  4.465674926565594D-03, &
 9.955496296346447D-01,  2.757893737712724D-02,  3.952828126515200D-03 /)

  return
end
subroutine smr31s ( xyw )

!*****************************************************************************80
!
!! SMR31S returns the rotationally invariant SMR rule of degree 31.
!
!  Discussion:
!
!    DEGREE: 31
!    ROTATIONALLY INVARIANT: (X,  Y),  (-Y,  X),  (-X, -Y),  (Y, -X).
!    POINTS CARDINALITY: 172
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 2.84496D-03, &
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*172), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*172)

  xyw = (/ &
 -3.904806549599655D-02, -4.335393037614890D-02,  1.983961989686983D-02, &
 1.361882296394248D-01,  5.339885716159022D-01,  5.606290851087755D-02, &
 -6.237898572307624D-02,  6.650680443410015D-01,  4.954926631685492D-02, &
 1.043081290265589D-01,  7.978188386199707D-01,  3.954352049027991D-02, &
 8.175663994339752D-02,  9.536337842041479D-01,  1.819407316290299D-02, &
 1.326909285794375D-01,  9.985967754075993D-01,  2.198741271493517D-03, &
 3.573200269387108D-01,  3.083812309752531D-02,  6.275382718191864D-02, &
 1.711251846005631D-01,  2.023226798991783D-01,  6.312752392564865D-02, &
 3.301558760691319D-01,  3.890928730006515D-01,  5.784814622385932D-02, &
 2.990255438330413D-01,  6.899278622152941D-01,  4.599430975257399D-02, &
 2.743945607890017D-01,  8.969874117510032D-01,  2.722794626350406D-02, &
 2.930343597574347D-01,  9.866371893249537D-01,  7.297804329258834D-03, &
 4.811149130969350D-01,  5.627097593501477D-01,  4.813376158498228D-02, &
 4.577756563378687D-01,  8.164852603726748D-01,  3.369675352996792D-02, &
 4.576603028130140D-01,  9.581255271049165D-01,  1.483779460064700D-02, &
 5.011717697509331D-01,  9.967514621307949D-01,  1.375821755782986D-03, &
 5.066615476347207D-01,  2.279797220835331D-01,  5.617345067788202D-02, &
 6.414891770627443D-01,  4.165197368067110D-01,  4.637789988502160D-02, &
 6.218437939846863D-01,  7.124331860455828D-01,  3.611694132069662D-02, &
 6.189705671147399D-01,  9.055771549707593D-01,  2.142589064473523D-02, &
 6.257695254024579D-01,  9.920525612037021D-01,  4.604781337595676D-03, &
 7.773558757000041D-01,  2.587982643359955D-01,  3.995025536141079D-02, &
 7.602620921526432D-01,  5.866806545003377D-01,  3.454986715153591D-02, &
 8.080239490235996D-01,  7.466133969130114D-01, -7.112408612016088D-04, &
 7.578022960040215D-01,  8.250210799807152D-01,  2.415241529771807D-02, &
 7.572699136795021D-01,  9.658518182607879D-01,  1.066322723829567D-02, &
 8.838106230790593D-01,  9.517499798893064D-02,  3.021344380673574D-02, &
 8.690870146928319D-01,  4.428796688721532D-01,  2.841376547681653D-02, &
 8.664188675223524D-01,  7.215367573910633D-01,  2.259238404505909D-02, &
 8.662357931878873D-01,  9.115792712550360D-01,  1.298465964143997D-02, &
 8.668639312200342D-01,  9.955281129139882D-01,  2.678582771124035D-03, &
 9.464084279482877D-01,  2.901035303505874D-01,  1.924589937161483D-02, &
 9.432116671128417D-01,  5.914789709627410D-01,  1.601261396001407D-02, &
 9.621603453340629D-01,  7.421113162391834D-01,  2.850658278802631D-03, &
 9.424551010209468D-01,  8.371341836669535D-01,  1.039571899572164D-02, &
 9.455364284543073D-01,  9.674856486387888D-01,  5.118117255528941D-03, &
 9.860981807821748D-01,  1.062982665761813D-01,  8.507743310820945D-03, &
 9.968354200302058D-01,  2.730105297008364D-01,  1.865603977042027D-03, &
 9.874604632806666D-01,  4.594240145656220D-01,  7.587442385373269D-03, &
 9.914773043212965D-01,  6.790808250554563D-01,  3.856894243772012D-03, &
 9.892581143506071D-01,  7.901123155310413D-01,  2.579633577944600D-03, &
 9.893015185233809D-01,  9.146983422640488D-01,  3.312018439594244D-03, &
 9.898894503566366D-01,  9.925022404589151D-01,  7.995136114829527D-04, &
 4.335393037614890D-02, -3.904806549599655D-02,  1.983961989686983D-02, &
 -5.339885716159022D-01,  1.361882296394248D-01,  5.606290851087755D-02, &
 -6.650680443410015D-01, -6.237898572307624D-02,  4.954926631685492D-02, &
 -7.978188386199707D-01,  1.043081290265589D-01,  3.954352049027991D-02, &
 -9.536337842041479D-01,  8.175663994339752D-02,  1.819407316290299D-02, &
 -9.985967754075993D-01,  1.326909285794375D-01,  2.198741271493517D-03, &
 -3.083812309752531D-02,  3.573200269387108D-01,  6.275382718191864D-02, &
 -2.023226798991783D-01,  1.711251846005631D-01,  6.312752392564865D-02, &
 -3.890928730006515D-01,  3.301558760691319D-01,  5.784814622385932D-02, &
 -6.899278622152941D-01,  2.990255438330413D-01,  4.599430975257399D-02, &
 -8.969874117510032D-01,  2.743945607890017D-01,  2.722794626350406D-02, &
 -9.866371893249537D-01,  2.930343597574347D-01,  7.297804329258834D-03, &
 -5.627097593501477D-01,  4.811149130969350D-01,  4.813376158498228D-02, &
 -8.164852603726748D-01,  4.577756563378687D-01,  3.369675352996792D-02, &
 -9.581255271049165D-01,  4.576603028130140D-01,  1.483779460064700D-02, &
 -9.967514621307949D-01,  5.011717697509331D-01,  1.375821755782986D-03, &
 -2.279797220835331D-01,  5.066615476347207D-01,  5.617345067788202D-02, &
 -4.165197368067110D-01,  6.414891770627443D-01,  4.637789988502160D-02, &
 -7.124331860455828D-01,  6.218437939846863D-01,  3.611694132069662D-02, &
 -9.055771549707593D-01,  6.189705671147399D-01,  2.142589064473523D-02, &
 -9.920525612037021D-01,  6.257695254024579D-01,  4.604781337595676D-03, &
 -2.587982643359955D-01,  7.773558757000041D-01,  3.995025536141079D-02, &
 -5.866806545003377D-01,  7.602620921526432D-01,  3.454986715153591D-02, &
 -7.466133969130114D-01,  8.080239490235996D-01, -7.112408612016088D-04, &
 -8.250210799807152D-01,  7.578022960040215D-01,  2.415241529771807D-02, &
 -9.658518182607879D-01,  7.572699136795021D-01,  1.066322723829567D-02, &
 -9.517499798893064D-02,  8.838106230790593D-01,  3.021344380673574D-02, &
 -4.428796688721532D-01,  8.690870146928319D-01,  2.841376547681653D-02, &
 -7.215367573910633D-01,  8.664188675223524D-01,  2.259238404505909D-02, &
 -9.115792712550360D-01,  8.662357931878873D-01,  1.298465964143997D-02, &
 -9.955281129139882D-01,  8.668639312200342D-01,  2.678582771124035D-03, &
 -2.901035303505874D-01,  9.464084279482877D-01,  1.924589937161483D-02, &
 -5.914789709627410D-01,  9.432116671128417D-01,  1.601261396001407D-02, &
 -7.421113162391834D-01,  9.621603453340629D-01,  2.850658278802631D-03, &
 -8.371341836669535D-01,  9.424551010209468D-01,  1.039571899572164D-02, &
 -9.674856486387888D-01,  9.455364284543073D-01,  5.118117255528941D-03, &
 -1.062982665761813D-01,  9.860981807821748D-01,  8.507743310820945D-03, &
 -2.730105297008364D-01,  9.968354200302058D-01,  1.865603977042027D-03, &
 -4.594240145656220D-01,  9.874604632806666D-01,  7.587442385373269D-03, &
 -6.790808250554563D-01,  9.914773043212965D-01,  3.856894243772012D-03, &
 -7.901123155310413D-01,  9.892581143506071D-01,  2.579633577944600D-03, &
 -9.146983422640488D-01,  9.893015185233809D-01,  3.312018439594244D-03, &
 -9.925022404589151D-01,  9.898894503566366D-01,  7.995136114829527D-04, &
 3.904806549599655D-02,  4.335393037614890D-02,  1.983961989686983D-02, &
 -1.361882296394248D-01, -5.339885716159022D-01,  5.606290851087755D-02, &
 6.237898572307624D-02, -6.650680443410015D-01,  4.954926631685492D-02, &
 -1.043081290265589D-01, -7.978188386199707D-01,  3.954352049027991D-02, &
 -8.175663994339752D-02, -9.536337842041479D-01,  1.819407316290299D-02, &
 -1.326909285794375D-01, -9.985967754075993D-01,  2.198741271493517D-03, &
 -3.573200269387108D-01, -3.083812309752531D-02,  6.275382718191864D-02, &
 -1.711251846005631D-01, -2.023226798991783D-01,  6.312752392564865D-02, &
 -3.301558760691319D-01, -3.890928730006515D-01,  5.784814622385932D-02, &
 -2.990255438330413D-01, -6.899278622152941D-01,  4.599430975257399D-02, &
 -2.743945607890017D-01, -8.969874117510032D-01,  2.722794626350406D-02, &
 -2.930343597574347D-01, -9.866371893249537D-01,  7.297804329258834D-03, &
 -4.811149130969350D-01, -5.627097593501477D-01,  4.813376158498228D-02, &
 -4.577756563378687D-01, -8.164852603726748D-01,  3.369675352996792D-02, &
 -4.576603028130140D-01, -9.581255271049165D-01,  1.483779460064700D-02, &
 -5.011717697509331D-01, -9.967514621307949D-01,  1.375821755782986D-03, &
 -5.066615476347207D-01, -2.279797220835331D-01,  5.617345067788202D-02, &
 -6.414891770627443D-01, -4.165197368067110D-01,  4.637789988502160D-02, &
 -6.218437939846863D-01, -7.124331860455828D-01,  3.611694132069662D-02, &
 -6.189705671147399D-01, -9.055771549707593D-01,  2.142589064473523D-02, &
 -6.257695254024579D-01, -9.920525612037021D-01,  4.604781337595676D-03, &
 -7.773558757000041D-01, -2.587982643359955D-01,  3.995025536141079D-02, &
 -7.602620921526432D-01, -5.866806545003377D-01,  3.454986715153591D-02, &
 -8.080239490235996D-01, -7.466133969130114D-01, -7.112408612016088D-04, &
 -7.578022960040215D-01, -8.250210799807152D-01,  2.415241529771807D-02, &
 -7.572699136795021D-01, -9.658518182607879D-01,  1.066322723829567D-02, &
 -8.838106230790593D-01, -9.517499798893064D-02,  3.021344380673574D-02, &
 -8.690870146928319D-01, -4.428796688721532D-01,  2.841376547681653D-02, &
 -8.664188675223524D-01, -7.215367573910633D-01,  2.259238404505909D-02, &
 -8.662357931878873D-01, -9.115792712550360D-01,  1.298465964143997D-02, &
 -8.668639312200342D-01, -9.955281129139882D-01,  2.678582771124035D-03, &
 -9.464084279482877D-01, -2.901035303505874D-01,  1.924589937161483D-02, &
 -9.432116671128417D-01, -5.914789709627410D-01,  1.601261396001407D-02, &
 -9.621603453340629D-01, -7.421113162391834D-01,  2.850658278802631D-03, &
 -9.424551010209468D-01, -8.371341836669535D-01,  1.039571899572164D-02, &
 -9.455364284543073D-01, -9.674856486387888D-01,  5.118117255528941D-03, &
 -9.860981807821748D-01, -1.062982665761813D-01,  8.507743310820945D-03, &
 -9.968354200302058D-01, -2.730105297008364D-01,  1.865603977042027D-03, &
 -9.874604632806666D-01, -4.594240145656220D-01,  7.587442385373269D-03, &
 -9.914773043212965D-01, -6.790808250554563D-01,  3.856894243772012D-03, &
 -9.892581143506071D-01, -7.901123155310413D-01,  2.579633577944600D-03, &
 -9.893015185233809D-01, -9.146983422640488D-01,  3.312018439594244D-03, &
 -9.898894503566366D-01, -9.925022404589151D-01,  7.995136114829527D-04, &
 -4.335393037614890D-02,  3.904806549599655D-02,  1.983961989686983D-02, &
 5.339885716159022D-01, -1.361882296394248D-01,  5.606290851087755D-02, &
 6.650680443410015D-01,  6.237898572307624D-02,  4.954926631685492D-02, &
 7.978188386199707D-01, -1.043081290265589D-01,  3.954352049027991D-02, &
 9.536337842041479D-01, -8.175663994339752D-02,  1.819407316290299D-02, &
 9.985967754075993D-01, -1.326909285794375D-01,  2.198741271493517D-03, &
 3.083812309752531D-02, -3.573200269387108D-01,  6.275382718191864D-02, &
 2.023226798991783D-01, -1.711251846005631D-01,  6.312752392564865D-02, &
 3.890928730006515D-01, -3.301558760691319D-01,  5.784814622385932D-02, &
 6.899278622152941D-01, -2.990255438330413D-01,  4.599430975257399D-02, &
 8.969874117510032D-01, -2.743945607890017D-01,  2.722794626350406D-02, &
 9.866371893249537D-01, -2.930343597574347D-01,  7.297804329258834D-03, &
 5.627097593501477D-01, -4.811149130969350D-01,  4.813376158498228D-02, &
 8.164852603726748D-01, -4.577756563378687D-01,  3.369675352996792D-02, &
 9.581255271049165D-01, -4.576603028130140D-01,  1.483779460064700D-02, &
 9.967514621307949D-01, -5.011717697509331D-01,  1.375821755782986D-03, &
 2.279797220835331D-01, -5.066615476347207D-01,  5.617345067788202D-02, &
 4.165197368067110D-01, -6.414891770627443D-01,  4.637789988502160D-02, &
 7.124331860455828D-01, -6.218437939846863D-01,  3.611694132069662D-02, &
 9.055771549707593D-01, -6.189705671147399D-01,  2.142589064473523D-02, &
 9.920525612037021D-01, -6.257695254024579D-01,  4.604781337595676D-03, &
 2.587982643359955D-01, -7.773558757000041D-01,  3.995025536141079D-02, &
 5.866806545003377D-01, -7.602620921526432D-01,  3.454986715153591D-02, &
 7.466133969130114D-01, -8.080239490235996D-01, -7.112408612016088D-04, &
 8.250210799807152D-01, -7.578022960040215D-01,  2.415241529771807D-02, &
 9.658518182607879D-01, -7.572699136795021D-01,  1.066322723829567D-02, &
 9.517499798893064D-02, -8.838106230790593D-01,  3.021344380673574D-02, &
 4.428796688721532D-01, -8.690870146928319D-01,  2.841376547681653D-02, &
 7.215367573910633D-01, -8.664188675223524D-01,  2.259238404505909D-02, &
 9.115792712550360D-01, -8.662357931878873D-01,  1.298465964143997D-02, &
 9.955281129139882D-01, -8.668639312200342D-01,  2.678582771124035D-03, &
 2.901035303505874D-01, -9.464084279482877D-01,  1.924589937161483D-02, &
 5.914789709627410D-01, -9.432116671128417D-01,  1.601261396001407D-02, &
 7.421113162391834D-01, -9.621603453340629D-01,  2.850658278802631D-03, &
 8.371341836669535D-01, -9.424551010209468D-01,  1.039571899572164D-02, &
 9.674856486387888D-01, -9.455364284543073D-01,  5.118117255528941D-03, &
 1.062982665761813D-01, -9.860981807821748D-01,  8.507743310820945D-03, &
 2.730105297008364D-01, -9.968354200302058D-01,  1.865603977042027D-03, &
 4.594240145656220D-01, -9.874604632806666D-01,  7.587442385373269D-03, &
 6.790808250554563D-01, -9.914773043212965D-01,  3.856894243772012D-03, &
 7.901123155310413D-01, -9.892581143506071D-01,  2.579633577944600D-03, &
 9.146983422640488D-01, -9.893015185233809D-01,  3.312018439594244D-03, &
 9.925022404589151D-01, -9.898894503566366D-01,  7.995136114829527D-04 /)

  return
end
subroutine smr32 ( xyw )

!*****************************************************************************80
!
!! SMR32 returns the SMR rule of degree 32.
!
!  Discussion:
!
!    DEGREE: 32
!    POINTS CARDINALITY: 189
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*189), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*189)

  xyw = (/ &
 -9.961443158376487D-01, -6.887572767977012D-01,  3.176265881806332D-03, &
 -9.955150539895966D-01,  6.626971407249244D-01,  3.280265060152129D-03, &
 -9.953673174806560D-01, -3.490320479685254D-02,  4.675890937959332D-03, &
 -9.953301148958117D-01,  8.868398804037936D-01,  2.284058312905218D-03, &
 -9.949536289138113D-01, -3.776956946778952D-01,  4.510771123627496D-03, &
 -9.947581001027488D-01,  3.329076528027972D-01,  4.813891020740236D-03, &
 -9.941343268456251D-01,  9.936112061216035D-01,  5.375112498857630D-04, &
 -9.932824877107631D-01, -9.089949394457987D-01,  2.496612709475389D-03, &
 -9.901718606538452D-01, -9.916407321742867D-01,  7.701138529293439D-04, &
 -9.751008630866578D-01,  5.195777161215037D-01,  9.359036791703322D-03, &
 -9.723977826522521D-01,  1.379087148825411D-01,  1.181986792189326D-02, &
 -9.716123205144245D-01, -8.031016796856173D-01,  7.898808335562373D-03, &
 -9.711842977478065D-01, -5.430726346303393D-01,  1.151176330250413D-02, &
 -9.704055489123288D-01,  7.804584258849506D-01,  8.644818596664990D-03, &
 -9.694199058988444D-01,  9.557067749284750D-01,  4.223280833025587D-03, &
 -9.683411874625077D-01, -2.103323587190609D-01,  1.388419379439329D-02, &
 -9.567808007888505D-01, -9.626987460709516D-01,  4.415431329419894D-03, &
 -9.437425354265615D-01,  4.414088771841401D-01,  6.832573539725157D-03, &
 -9.402218788200302D-01,  2.637892865469118D-01,  1.016860955591373D-02, &
 -9.217551019965182D-01,  8.766772417195136D-01,  1.065665181655526D-02, &
 -9.201345036606068D-01, -6.784459223365346D-01,  1.669398948968993D-02, &
 -9.187137927257295D-01, -8.800989100992515D-01,  9.591064623401077D-03, &
 -9.181947091905479D-01, -3.841738613909663D-01,  2.059591744256289D-02, &
 -9.181637384564565D-01,  6.508430144443661D-01,  1.797283563699723D-02, &
 -9.180866951945609D-01, -3.534323022121689D-02,  2.220774903033375D-02, &
 -9.162233942094903D-01,  9.905273384808887D-01,  2.842827696268136D-03, &
 -8.942375422053964D-01, -9.940021310654177D-01,  2.526325882162393D-03, &
 -8.925004548103099D-01,  3.675577608041817D-01,  1.740206879654378D-02, &
 -8.567376342667298D-01,  1.327464071241374D-01,  2.320747945421362D-02, &
 -8.527049285163805D-01, -5.173331471639295D-01,  1.823135215166509D-02, &
 -8.500346292659974D-01,  9.424744256560323D-01,  9.628825949603207D-03, &
 -8.495936622225249D-01, -9.366589616617220D-01,  8.808214017805906D-03, &
 -8.420958026145372D-01,  7.746496697546652D-01,  2.038980506805041D-02, &
 -8.405229008591695D-01, -2.146465103993396D-01,  3.115686395982564D-02, &
 -8.400130747502382D-01, -7.833828505922565D-01,  1.867972088056950D-02, &
 -8.251520015911556D-01,  5.249712695416556D-01,  2.828908020393419D-02, &
 -7.960746843247288D-01, -5.942990648607921D-01,  1.818720327698928D-02, &
 -7.884200501943553D-01,  2.431068089032147D-01,  2.161873511289656D-02, &
 -7.832198580393690D-01,  9.882893671904269D-01,  4.201313239030647D-03, &
 -7.691956377515223D-01, -9.767479568418154D-01,  6.899965676153335D-03, &
 -7.509072411287868D-01, -2.719575746898528D-02,  3.742043760045523D-02, &
 -7.427461156257692D-01,  8.707027609907575D-01,  1.919642121969817D-02, &
 -7.393846173049607D-01, -8.675695987661742D-01,  1.783672443816834D-02, &
 -7.351194183949288D-01, -3.774494681673472D-01,  3.738148314393595D-02, &
 -7.213398259926092D-01,  6.655990116514867D-01,  3.145176228542881D-02, &
 -7.120543004828920D-01,  3.695232160325304D-01,  3.307881993920563D-02, &
 -7.013785314229773D-01, -6.985386189309318D-01,  2.798941131398564D-02, &
 -6.889047528617022D-01,  9.602183527522339D-01,  7.162747081491355D-03, &
 -6.522280372437145D-01, -9.963873207253509D-01,  2.915037219722206D-03, &
 -6.294141334037263D-01, -9.321941144432188D-01,  1.469357873203910D-02, &
 -6.289236482231599D-01,  1.335531135944628D-01,  4.333999853931410D-02, &
 -6.250143551668971D-01, -1.909837821647839D-01,  4.450992385162815D-02, &
 -6.162479185474388D-01,  9.957592249563421D-01,  2.859071377057288D-03, &
 -6.099556060400831D-01, -5.265301674660628D-01,  3.737333144755796D-02, &
 -6.035692437775674D-01,  5.068951570189404D-01,  3.542431096817152D-02, &
 -5.957398931434491D-01,  7.867544741614058D-01,  2.991054273162196D-02, &
 -5.880720673778793D-01,  9.278338224868491D-01,  1.311047438579956D-02, &
 -5.642943955874409D-01, -8.045488845290898D-01,  2.887379909514902D-02, &
 -5.341453289511777D-01, -6.580308812592266D-01,  8.231881868308998D-03, &
 -5.037785265285627D-01,  2.911261252936324D-01,  4.463898222861209D-02, &
 -5.035520020780221D-01,  6.164678558380017D-01,  2.375628980516375D-02, &
 -4.988776272469410D-01, -9.742698071302808D-01,  9.972534732384969D-03, &
 -4.880950860424961D-01, -3.570330104924047D-01,  4.487865776129120D-02, &
 -4.782873763449944D-01, -3.311071102284526D-02,  4.988651815705654D-02, &
 -4.611263669660518D-01,  9.776538472171752D-01,  9.547170864365405D-03, &
 -4.460940172737087D-01, -5.617163266009875D-01,  1.057733340125433D-02, &
 -4.344215560289689D-01,  8.756198694104429D-01,  2.433238295221333D-02, &
 -4.303464547840762D-01, -6.717475726140401D-01,  3.186301410699670D-02, &
 -4.140771909387703D-01, -8.929909921505204D-01,  2.416865558364916D-02, &
 -4.106621334605041D-01,  6.984143047391834D-01,  2.962064813188227D-02, &
 -3.860009662973919D-01,  4.525655697932027D-01,  3.233946990986691D-02, &
 -3.484793436284917D-01, -9.955996498738462D-01,  3.793172976457341D-03, &
 -3.391951567840935D-01,  1.226820429084983D-01,  4.753908343744886D-02, &
 -3.357809356696743D-01, -2.224706747610833D-01,  4.615497828125666D-02, &
 -3.250278129966869D-01,  3.756115481576739D-01,  1.811254509132181D-02, &
 -3.056089159859502D-01, -4.920724555612009D-01,  4.554710841070758D-02, &
 -2.961214860982124D-01,  9.974527284699805D-01,  3.060823576685151D-03, &
 -2.847932366229927D-01, -7.838348732823106D-01,  3.404104052520678D-02, &
 -2.713478176538165D-01,  9.439481248438524D-01,  1.788329467008652D-02, &
 -2.623891895744691D-01,  7.934963660422401D-01,  3.215348099890328D-02, &
 -2.474541407740861D-01, -9.552431364916144D-01,  1.619837106218808D-02, &
 -2.350008942691768D-01,  5.720771765501166D-01,  4.318782866021313D-02, &
 -2.029577973797018D-01, -8.943368639764357D-02,  4.553097782784060D-02, &
 -1.990670168540228D-01,  2.443876445322615D-01,  4.110363868615158D-02, &
 -1.549456091317803D-01, -6.415558836799513D-01,  4.267610300710221D-02, &
 -1.347331997024815D-01, -3.592068358004468D-01,  5.074071162472863D-02, &
 -1.193212615110174D-01, -8.772608465003254D-01,  2.680897358145306D-02, &
 -9.608366181884005D-02,  8.811478309456120D-01,  2.657134265114752D-02, &
 -8.724674317423464D-02,  9.829741829813902D-01,  9.730625947232925D-03, &
 -8.357262181047176D-02,  4.013140117181199D-01,  4.841144500118764D-02, &
 -7.663657189401872D-02, -9.904382181654797D-01,  6.943274642780526D-03, &
 -7.506542665125431D-02,  6.928415737526518D-01,  4.014342124479778D-02, &
 -6.814560175398696D-02,  4.856261470453426D-02,  4.844065720660989D-02, &
 1.062473558727759D-02, -7.650288124962303D-01,  3.558799833293477D-02, &
 1.660017546118934D-02, -2.180239260173989D-01,  4.831607231731554D-02, &
 2.272453179480726D-02, -5.268496064565723D-01,  4.537055458358597D-02, &
 4.931212356041427D-02, -9.458603059209817D-01,  1.758790356906201D-02, &
 7.613140727060182D-02,  5.418798866250614D-01,  4.818153253307554D-02, &
 7.853294280823510D-02,  2.224042128166391D-01,  5.465464269071678D-02, &
 8.372125557287705D-02,  9.435131549853616D-01,  1.786409990626899D-02, &
 9.337887407842871D-02,  8.001140509910943D-01,  3.410288806782028D-02, &
 1.089074910813305D-01, -3.010076469468967D-02,  2.723309734230703D-02, &
 1.411908890075358D-01,  9.960717448990448D-01,  3.569321191002430D-03, &
 1.751413474655890D-01, -3.997261685283053D-01,  4.541750739879684D-02, &
 1.756054472282782D-01, -8.658339890881421D-01,  2.662577185951133D-02, &
 1.864598899283486D-01, -6.697382946526751D-01,  3.827435555232931D-02, &
 2.015902009534723D-01, -9.883931352101503D-01,  7.887679303175682D-03, &
 2.044045426953899D-01, -1.421919981535460D-01,  3.558139723631710D-02, &
 2.378932317489774D-01,  3.802228852670115D-01,  5.139141457782884D-02, &
 2.453419557836962D-01,  6.743539422739147D-01,  4.230440026330508D-02, &
 2.673924056388006D-01,  8.857386065554180D-01,  2.512168130932855D-02, &
 2.794321878522678D-01,  8.071672703911634D-02,  5.195889525876823D-02, &
 2.852750321228393D-01,  9.766942081801527D-01,  8.542384805675192D-03, &
 3.366919097882969D-01, -5.582614071904248D-01,  3.957781174651530D-02, &
 3.382140442187983D-01, -9.401781089769999D-01,  1.829722847974778D-02, &
 3.432642241169637D-01, -7.908855951561965D-01,  2.972251194098460D-02, &
 3.455152732870559D-01, -2.966429396872311D-01,  4.443118022793111D-02, &
 3.916837958172765D-01,  5.230067770696570D-01,  4.184441753133104D-02, &
 4.120040722413747D-01,  7.890179305884122D-01,  3.275969268754896D-02, &
 4.238156081215504D-01,  9.950429590804639D-01,  2.471843473128421D-03, &
 4.287156692418698D-01,  2.431531997648373D-01,  5.098740815593964D-02, &
 4.406392416503330D-01, -9.421351055228980D-02,  4.952434585624959D-02, &
 4.435754669288457D-01,  9.470031795306957D-01,  1.407985409716778D-02, &
 4.558595671892888D-01, -9.896709958176498D-01,  6.495456224860164D-03, &
 4.873417746475680D-01, -6.968841503239952D-01,  3.193924196689053D-02, &
 4.970448498999819D-01, -4.587836752559167D-01,  4.009098722323794D-02, &
 5.026246934476013D-01, -8.799728934510729D-01,  2.251236322931963D-02, &
 5.142480616051717D-01,  6.332295493966821D-01,  2.628145641746948D-02, &
 5.635007809294439D-01,  8.830661523985979D-01,  2.138158866985076D-02, &
 5.760177960925376D-01,  4.034390879812669D-01,  4.461725888680534D-02, &
 5.786951907000567D-01,  7.200913403128530D-02,  4.714224835011449D-02, &
 5.850240866763193D-01,  9.892820474952123D-01,  5.400839750748531D-03, &
 5.851379143554923D-01, -2.686399203625244D-01,  4.255109067146633D-02, &
 6.039149631797995D-01, -9.595657522395640D-01,  1.243029383620673D-02, &
 6.085940759319246D-01,  7.188102110043890D-01,  2.414801307071736D-02, &
 6.367455861073830D-01, -6.091087379827170D-01,  3.181043163725066D-02, &
 6.389771216716220D-01, -8.001263004879462D-01,  2.306016831136437D-02, &
 6.923848443111713D-01,  9.536668248480320D-01,  1.203359878310568D-02, &
 7.027796911591175D-01, -9.965270954213804D-01,  3.064467191573918D-03, &
 7.057525331398022D-01, -1.091230879464752D-01,  3.965634211274827D-02, &
 7.065644544049037D-01,  5.577016427729737D-01,  3.480317597803997D-02, &
 7.069599688705653D-01,  2.377081331437708D-01,  4.015277537380656D-02, &
 7.089592747680905D-01, -4.373982847931744D-01,  3.119546438021227D-02, &
 7.146942471573201D-01,  8.178315170110126D-01,  2.161251683469453D-02, &
 7.307538954522923D-01, -9.007096403390665D-01,  1.565402681403319D-02, &
 7.704504545341444D-01, -7.396567334921220D-01,  2.067477223680419D-02, &
 7.897818448390646D-01, -3.232780509941606D-01,  1.880267861755378D-02, &
 7.934484404832058D-01,  9.926504167490636D-01,  3.776050573673320D-03, &
 8.026728771155266D-01, -9.655537841075670D-01,  7.156659310810854D-03, &
 8.087651311032129D-01, -5.934295716161285D-01,  2.201032582341064D-02, &
 8.095585492822206D-01,  5.131014033000776D-02,  3.161252035941158D-02, &
 8.113041827662109D-01,  4.018532940895451D-01,  2.993617375756685D-02, &
 8.140746090133947D-01,  6.999506065348030D-01,  2.452891312211182D-02, &
 8.175220739845873D-01,  9.045678533269281D-01,  1.408878624403073D-02, &
 8.442244744987026D-01, -2.330660680257271D-01,  2.137248847571907D-02, &
 8.577022609864510D-01, -8.347496637512480D-01,  1.302733239156259D-02, &
 8.740997306450817D-01, -9.016947723266606D-01,  5.700088397798577D-03, &
 8.760720409171439D-01,  1.798424501465092D-01,  1.242534941969138D-02, &
 8.776595540145247D-01, -9.871736549700062D-01,  3.023298480841919D-03, &
 8.876770756008736D-01, -4.737591614279884D-01,  2.114261952758863D-02, &
 8.893257290546359D-01,  5.497239097424972D-01,  1.883916296392102D-02, &
 8.966119498774410D-01,  9.684306041089270D-01,  6.514509999621678D-03, &
 9.005134923798872D-01,  8.160726922491325D-01,  1.492277961359557D-02, &
 9.028454350969399D-01,  2.628603055474125D-01,  1.525753840078711D-02, &
 9.099332057150961D-01, -9.463222058681031D-02,  2.114989721521207D-02, &
 9.116851421787586D-01, -6.958768581382581D-01,  1.656213645188111D-02, &
 9.380791852794695D-01, -9.390761885813872D-01,  6.505278755513709D-03, &
 9.395276649285043D-01,  6.496946928511224D-01,  9.668304772455727D-03, &
 9.473470605468867D-01, -3.346050342634356D-01,  1.585630013135186D-02, &
 9.491070785582369D-01, -9.969373733490615D-01,  9.281179028714037D-04, &
 9.509854262005244D-01,  3.980404983361944D-01,  1.284569365696251D-02, &
 9.538750327616107D-01,  4.953599709321822D-02,  1.055872402608265D-02, &
 9.578780270631901D-01,  9.103067048312464D-01,  6.968260865746103D-03, &
 9.592991308680465D-01,  9.968731654931796D-01,  1.210463692085719D-03, &
 9.601302552519683D-01, -8.180789200488630D-01,  8.683841565713000D-03, &
 9.694392229219877D-01, -5.715033820344755D-01,  1.159851379681130D-02, &
 9.703910299123225D-01,  1.632899951759109D-01,  7.363467408097404D-03, &
 9.719159673797005D-01,  7.411274370572497D-01,  7.318477013269155D-03, &
 9.829103770479058D-01,  5.055355492737967D-01,  6.282928001932651D-03, &
 9.833554207795926D-01, -1.837381133019218D-01,  8.880000815180237D-03, &
 9.874031706544697D-01, -9.781008326752658D-01,  1.660786069380725D-03, &
 9.915132744979969D-01, -8.960126036794243D-01,  2.711324914646742D-03, &
 9.917024709452258D-01,  9.678533470873883D-01,  1.688735729327407D-03, &
 9.937579585467250D-01, -7.180615094407097D-01,  3.871787826906220D-03, &
 9.940901871599539D-01,  8.430528621092570D-01,  2.741339818214634D-03, &
 9.941340765584503D-01,  2.870098965170506D-01,  4.589322892855804D-03, &
 9.949661609261387D-01,  6.084106757497423D-03,  3.583734039365401D-03, &
 9.960704002907521D-01, -4.220415957631232D-01,  4.045718926806529D-03, &
 9.968040423856127D-01,  6.246991365652024D-01,  2.405030444120247D-03 /)

  return
end
subroutine smr33 ( xyw )

!*****************************************************************************80
!
!! SMR33 returns the SMR rule of degree 33.
!
!  Discussion:
!
!    DEGREE: 33
!    ROTATIONALLY INVARIANT: (X,  Y),  (-Y,  X),  (-X, -Y),  (Y, -X).
!    POINTS CARDINALITY: 197
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*197), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*197)

  xyw = (/ &
 1.485098538731679D-01,  1.694663949097438D-01,  4.808148867803772D-02, &
 1.172505996395537D-01,  5.208793654128182D-01,  4.731056174816773D-02, &
 1.066031447166868D-01,  7.778079973351806D-01,  3.516295123254670D-02, &
 1.132061108674796D-01,  9.316643176349618D-01,  1.951472105421867D-02, &
 1.073615219898776D-01,  9.959676005278353D-01,  3.976501444162358D-03, &
 3.462608583072413D-01,  2.127438914067375D-01,  2.293908286621284D-02, &
 2.637306543835957D-01,  3.722947344432351D-01,  4.432068637015522D-02, &
 2.693795841838618D-01,  6.682002420169654D-01,  3.897921421448901D-02, &
 2.875348204916399D-01,  8.670452225998134D-01,  2.660382508243975D-02, &
 2.893753551193369D-01,  9.757288452382227D-01,  1.105346348813268D-02, &
 5.338546425019925D-01,  2.183801117113716D-01,  3.966360973156654D-02, &
 4.549680885072975D-01,  3.744677210475233D-01,  2.597222014353591D-02, &
 4.090144024608169D-01,  5.458954883248048D-01,  3.713648914135518D-02, &
 5.663026752204063D-01,  6.734659888883729D-01,  2.933590367319608D-02, &
 4.400187284568344D-01,  7.788448587064940D-01,  3.047735039849236D-02, &
 4.582598509566294D-01,  9.355376236278888D-01,  1.725142829363587D-02, &
 4.582752827247127D-01,  9.968603726644156D-01,  3.162797947778954D-03, &
 6.759309027563951D-01,  3.646480880237580D-01,  3.217426321537782D-02, &
 5.907301259704386D-01,  4.949340946812834D-01,  2.734110543912327D-02, &
 7.146893160300763D-01,  6.329648433025803D-01,  1.940442339199639D-02, &
 5.953318104316343D-01,  8.701483739421072D-01,  2.120649987549222D-02, &
 6.160860838046369D-01,  9.794286822210785D-01,  8.362497816308373D-03, &
 7.767420410261425D-01,  2.222325062449502D-01,  3.296613956707922D-02, &
 7.831882183207082D-01,  5.287992062720019D-01,  2.386573699307072D-02, &
 7.041851604707902D-01,  7.847889458751023D-01,  2.058221303838324D-02, &
 7.290534382081308D-01,  9.388309009733727D-01,  1.190900733146451D-02, &
 7.820133071823339D-01,  9.948308715565458D-01,  3.147989159421966D-03, &
 8.652684158240387D-01,  4.011976196638404D-01,  2.438236797329849D-02, &
 8.642300806994567D-01,  6.861574436903071D-01,  1.727637663346140D-02, &
 8.162582507393171D-01,  7.697617350233709D-01,  9.484139746590401D-03, &
 8.182773560074186D-01,  8.794302700865166D-01,  1.280268009696023D-02, &
 8.763977475275423D-01,  9.668867982051652D-01,  6.900853588227474D-03, &
 9.328617706321541D-01,  2.521078906774078D-01,  1.887531974376769D-02, &
 9.761739411206226D-01,  4.312566462575608D-01,  1.066375643199943D-02, &
 9.303430517898699D-01,  5.710543042726919D-01,  1.625052256486291D-02, &
 9.235378662628289D-01,  8.205750108473285D-01,  1.032788782555771D-02, &
 9.162909962693953D-01,  9.020219304490703D-01,  4.456178267147566D-03, &
 9.687563884966668D-01,  9.315860338184979D-01,  4.698545579229029D-03, &
 9.479068758778074D-01,  9.935126494654830D-01,  1.772982851226346D-03, &
 9.962467362996064D-01,  2.548705123657606D-01,  3.847516809883929D-03, &
 9.961740044729398D-01,  6.047358347062713D-01,  3.352228907155900D-03, &
 9.715483507430605D-01,  7.273867424892582D-01,  8.746651111990895D-03, &
 9.934251724726507D-01,  8.497187134082044D-01,  2.995115265626365D-03, &
 9.944169188618658D-01,  9.785612572781918D-01,  1.006759244687949D-03, &
 7.126217736993628D-03,  2.946754002433002D-01,  3.527142153616744D-02, &
 -6.246434173781462D-02,  4.078563905320223D-01,  3.051711732786730D-02, &
 -5.410706476354973D-02,  6.561935311635315D-01,  4.279129134457323D-02, &
 -6.740481034767548D-02,  8.680969463101411D-01,  2.696044145284995D-02, &
 -7.268739448152371D-02,  9.746198602047339D-01,  1.183714051929051D-02, &
 -1.694663949097438D-01,  1.485098538731679D-01,  4.808148867803772D-02, &
 -5.208793654128182D-01,  1.172505996395537D-01,  4.731056174816773D-02, &
 -7.778079973351806D-01,  1.066031447166868D-01,  3.516295123254670D-02, &
 -9.316643176349618D-01,  1.132061108674796D-01,  1.951472105421867D-02, &
 -9.959676005278353D-01,  1.073615219898776D-01,  3.976501444162358D-03, &
 -2.127438914067375D-01,  3.462608583072413D-01,  2.293908286621284D-02, &
 -3.722947344432351D-01,  2.637306543835957D-01,  4.432068637015522D-02, &
 -6.682002420169654D-01,  2.693795841838618D-01,  3.897921421448901D-02, &
 -8.670452225998134D-01,  2.875348204916399D-01,  2.660382508243975D-02, &
 -9.757288452382227D-01,  2.893753551193369D-01,  1.105346348813268D-02, &
 -2.183801117113716D-01,  5.338546425019925D-01,  3.966360973156654D-02, &
 -3.744677210475233D-01,  4.549680885072975D-01,  2.597222014353591D-02, &
 -5.458954883248048D-01,  4.090144024608169D-01,  3.713648914135518D-02, &
 -6.734659888883729D-01,  5.663026752204063D-01,  2.933590367319608D-02, &
 -7.788448587064940D-01,  4.400187284568344D-01,  3.047735039849236D-02, &
 -9.355376236278888D-01,  4.582598509566294D-01,  1.725142829363587D-02, &
 -9.968603726644156D-01,  4.582752827247127D-01,  3.162797947778954D-03, &
 -3.646480880237580D-01,  6.759309027563951D-01,  3.217426321537782D-02, &
 -4.949340946812834D-01,  5.907301259704386D-01,  2.734110543912327D-02, &
 -6.329648433025803D-01,  7.146893160300763D-01,  1.940442339199639D-02, &
 -8.701483739421072D-01,  5.953318104316343D-01,  2.120649987549222D-02, &
 -9.794286822210785D-01,  6.160860838046369D-01,  8.362497816308373D-03, &
 -2.222325062449502D-01,  7.767420410261425D-01,  3.296613956707922D-02, &
 -5.287992062720019D-01,  7.831882183207082D-01,  2.386573699307072D-02, &
 -7.847889458751023D-01,  7.041851604707902D-01,  2.058221303838324D-02, &
 -9.388309009733727D-01,  7.290534382081308D-01,  1.190900733146451D-02, &
 -9.948308715565458D-01,  7.820133071823339D-01,  3.147989159421966D-03, &
 -4.011976196638404D-01,  8.652684158240387D-01,  2.438236797329849D-02, &
 -6.861574436903071D-01,  8.642300806994567D-01,  1.727637663346140D-02, &
 -7.697617350233709D-01,  8.162582507393171D-01,  9.484139746590401D-03, &
 -8.794302700865166D-01,  8.182773560074186D-01,  1.280268009696023D-02, &
 -9.668867982051652D-01,  8.763977475275423D-01,  6.900853588227474D-03, &
 -2.521078906774078D-01,  9.328617706321541D-01,  1.887531974376769D-02, &
 -4.312566462575608D-01,  9.761739411206226D-01,  1.066375643199943D-02, &
 -5.710543042726919D-01,  9.303430517898699D-01,  1.625052256486291D-02, &
 -8.205750108473285D-01,  9.235378662628289D-01,  1.032788782555771D-02, &
 -9.020219304490703D-01,  9.162909962693953D-01,  4.456178267147566D-03, &
 -9.315860338184979D-01,  9.687563884966668D-01,  4.698545579229029D-03, &
 -9.935126494654830D-01,  9.479068758778074D-01,  1.772982851226346D-03, &
 -2.548705123657606D-01,  9.962467362996064D-01,  3.847516809883929D-03, &
 -6.047358347062713D-01,  9.961740044729398D-01,  3.352228907155900D-03, &
 -7.273867424892582D-01,  9.715483507430605D-01,  8.746651111990895D-03, &
 -8.497187134082044D-01,  9.934251724726507D-01,  2.995115265626365D-03, &
 -9.785612572781918D-01,  9.944169188618658D-01,  1.006759244687949D-03, &
 -2.946754002433002D-01,  7.126217736993628D-03,  3.527142153616744D-02, &
 -4.078563905320223D-01, -6.246434173781462D-02,  3.051711732786730D-02, &
 -6.561935311635315D-01, -5.410706476354973D-02,  4.279129134457323D-02, &
 -8.680969463101411D-01, -6.740481034767548D-02,  2.696044145284995D-02, &
 -9.746198602047339D-01, -7.268739448152371D-02,  1.183714051929051D-02, &
 -1.485098538731679D-01, -1.694663949097438D-01,  4.808148867803772D-02, &
 -1.172505996395537D-01, -5.208793654128182D-01,  4.731056174816773D-02, &
 -1.066031447166868D-01, -7.778079973351806D-01,  3.516295123254670D-02, &
 -1.132061108674796D-01, -9.316643176349618D-01,  1.951472105421867D-02, &
 -1.073615219898776D-01, -9.959676005278353D-01,  3.976501444162358D-03, &
 -3.462608583072413D-01, -2.127438914067375D-01,  2.293908286621284D-02, &
 -2.637306543835957D-01, -3.722947344432351D-01,  4.432068637015522D-02, &
 -2.693795841838618D-01, -6.682002420169654D-01,  3.897921421448901D-02, &
 -2.875348204916399D-01, -8.670452225998134D-01,  2.660382508243975D-02, &
 -2.893753551193369D-01, -9.757288452382227D-01,  1.105346348813268D-02, &
 -5.338546425019925D-01, -2.183801117113716D-01,  3.966360973156654D-02, &
 -4.549680885072975D-01, -3.744677210475233D-01,  2.597222014353591D-02, &
 -4.090144024608169D-01, -5.458954883248048D-01,  3.713648914135518D-02, &
 -5.663026752204063D-01, -6.734659888883729D-01,  2.933590367319608D-02, &
 -4.400187284568344D-01, -7.788448587064940D-01,  3.047735039849236D-02, &
 -4.582598509566294D-01, -9.355376236278888D-01,  1.725142829363587D-02, &
 -4.582752827247127D-01, -9.968603726644156D-01,  3.162797947778954D-03, &
 -6.759309027563951D-01, -3.646480880237580D-01,  3.217426321537782D-02, &
 -5.907301259704386D-01, -4.949340946812834D-01,  2.734110543912327D-02, &
 -7.146893160300763D-01, -6.329648433025803D-01,  1.940442339199639D-02, &
 -5.953318104316343D-01, -8.701483739421072D-01,  2.120649987549222D-02, &
 -6.160860838046369D-01, -9.794286822210785D-01,  8.362497816308373D-03, &
 -7.767420410261425D-01, -2.222325062449502D-01,  3.296613956707922D-02, &
 -7.831882183207082D-01, -5.287992062720019D-01,  2.386573699307072D-02, &
 -7.041851604707902D-01, -7.847889458751023D-01,  2.058221303838324D-02, &
 -7.290534382081308D-01, -9.388309009733727D-01,  1.190900733146451D-02, &
 -7.820133071823339D-01, -9.948308715565458D-01,  3.147989159421966D-03, &
 -8.652684158240387D-01, -4.011976196638404D-01,  2.438236797329849D-02, &
 -8.642300806994567D-01, -6.861574436903071D-01,  1.727637663346140D-02, &
 -8.162582507393171D-01, -7.697617350233709D-01,  9.484139746590401D-03, &
 -8.182773560074186D-01, -8.794302700865166D-01,  1.280268009696023D-02, &
 -8.763977475275423D-01, -9.668867982051652D-01,  6.900853588227474D-03, &
 -9.328617706321541D-01, -2.521078906774078D-01,  1.887531974376769D-02, &
 -9.761739411206226D-01, -4.312566462575608D-01,  1.066375643199943D-02, &
 -9.303430517898699D-01, -5.710543042726919D-01,  1.625052256486291D-02, &
 -9.235378662628289D-01, -8.205750108473285D-01,  1.032788782555771D-02, &
 -9.162909962693953D-01, -9.020219304490703D-01,  4.456178267147566D-03, &
 -9.687563884966668D-01, -9.315860338184979D-01,  4.698545579229029D-03, &
 -9.479068758778074D-01, -9.935126494654830D-01,  1.772982851226346D-03, &
 -9.962467362996064D-01, -2.548705123657606D-01,  3.847516809883929D-03, &
 -9.961740044729398D-01, -6.047358347062713D-01,  3.352228907155900D-03, &
 -9.715483507430605D-01, -7.273867424892582D-01,  8.746651111990895D-03, &
 -9.934251724726507D-01, -8.497187134082044D-01,  2.995115265626365D-03, &
 -9.944169188618658D-01, -9.785612572781918D-01,  1.006759244687949D-03, &
 -7.126217736993628D-03, -2.946754002433002D-01,  3.527142153616744D-02, &
 6.246434173781462D-02, -4.078563905320223D-01,  3.051711732786730D-02, &
 5.410706476354973D-02, -6.561935311635315D-01,  4.279129134457323D-02, &
 6.740481034767548D-02, -8.680969463101411D-01,  2.696044145284995D-02, &
 7.268739448152371D-02, -9.746198602047339D-01,  1.183714051929051D-02, &
 1.694663949097438D-01, -1.485098538731679D-01,  4.808148867803772D-02, &
 5.208793654128182D-01, -1.172505996395537D-01,  4.731056174816773D-02, &
 7.778079973351806D-01, -1.066031447166868D-01,  3.516295123254670D-02, &
 9.316643176349618D-01, -1.132061108674796D-01,  1.951472105421867D-02, &
 9.959676005278353D-01, -1.073615219898776D-01,  3.976501444162358D-03, &
 2.127438914067375D-01, -3.462608583072413D-01,  2.293908286621284D-02, &
 3.722947344432351D-01, -2.637306543835957D-01,  4.432068637015522D-02, &
 6.682002420169654D-01, -2.693795841838618D-01,  3.897921421448901D-02, &
 8.670452225998134D-01, -2.875348204916399D-01,  2.660382508243975D-02, &
 9.757288452382227D-01, -2.893753551193369D-01,  1.105346348813268D-02, &
 2.183801117113716D-01, -5.338546425019925D-01,  3.966360973156654D-02, &
 3.744677210475233D-01, -4.549680885072975D-01,  2.597222014353591D-02, &
 5.458954883248048D-01, -4.090144024608169D-01,  3.713648914135518D-02, &
 6.734659888883729D-01, -5.663026752204063D-01,  2.933590367319608D-02, &
 7.788448587064940D-01, -4.400187284568344D-01,  3.047735039849236D-02, &
 9.355376236278888D-01, -4.582598509566294D-01,  1.725142829363587D-02, &
 9.968603726644156D-01, -4.582752827247127D-01,  3.162797947778954D-03, &
 3.646480880237580D-01, -6.759309027563951D-01,  3.217426321537782D-02, &
 4.949340946812834D-01, -5.907301259704386D-01,  2.734110543912327D-02, &
 6.329648433025803D-01, -7.146893160300763D-01,  1.940442339199639D-02, &
 8.701483739421072D-01, -5.953318104316343D-01,  2.120649987549222D-02, &
 9.794286822210785D-01, -6.160860838046369D-01,  8.362497816308373D-03, &
 2.222325062449502D-01, -7.767420410261425D-01,  3.296613956707922D-02, &
 5.287992062720019D-01, -7.831882183207082D-01,  2.386573699307072D-02, &
 7.847889458751023D-01, -7.041851604707902D-01,  2.058221303838324D-02, &
 9.388309009733727D-01, -7.290534382081308D-01,  1.190900733146451D-02, &
 9.948308715565458D-01, -7.820133071823339D-01,  3.147989159421966D-03, &
 4.011976196638404D-01, -8.652684158240387D-01,  2.438236797329849D-02, &
 6.861574436903071D-01, -8.642300806994567D-01,  1.727637663346140D-02, &
 7.697617350233709D-01, -8.162582507393171D-01,  9.484139746590401D-03, &
 8.794302700865166D-01, -8.182773560074186D-01,  1.280268009696023D-02, &
 9.668867982051652D-01, -8.763977475275423D-01,  6.900853588227474D-03, &
 2.521078906774078D-01, -9.328617706321541D-01,  1.887531974376769D-02, &
 4.312566462575608D-01, -9.761739411206226D-01,  1.066375643199943D-02, &
 5.710543042726919D-01, -9.303430517898699D-01,  1.625052256486291D-02, &
 8.205750108473285D-01, -9.235378662628289D-01,  1.032788782555771D-02, &
 9.020219304490703D-01, -9.162909962693953D-01,  4.456178267147566D-03, &
 9.315860338184979D-01, -9.687563884966668D-01,  4.698545579229029D-03, &
 9.935126494654830D-01, -9.479068758778074D-01,  1.772982851226346D-03, &
 2.548705123657606D-01, -9.962467362996064D-01,  3.847516809883929D-03, &
 6.047358347062713D-01, -9.961740044729398D-01,  3.352228907155900D-03, &
 7.273867424892582D-01, -9.715483507430605D-01,  8.746651111990895D-03, &
 8.497187134082044D-01, -9.934251724726507D-01,  2.995115265626365D-03, &
 9.785612572781918D-01, -9.944169188618658D-01,  1.006759244687949D-03, &
 2.946754002433002D-01, -7.126217736993628D-03,  3.527142153616744D-02, &
 4.078563905320223D-01,  6.246434173781462D-02,  3.051711732786730D-02, &
 6.561935311635315D-01,  5.410706476354973D-02,  4.279129134457323D-02, &
 8.680969463101411D-01,  6.740481034767548D-02,  2.696044145284995D-02, &
 9.746198602047339D-01,  7.268739448152371D-02,  1.183714051929051D-02, &
 0.000000000000000D+00,  0.000000000000000D+00,  5.152213536694609D-02 /)

  return
end
subroutine smr34 ( xyw )

!*****************************************************************************80
!
!! SMR34 returns the SMR rule of degree 34.
!
!  Discussion:
!
!    DEGREE: 34
!    POINTS CARDINALITY: 211
!    NORM INF MOMS. RESIDUAL: 1.28603e-15
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*211), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*211)

  xyw = (/ &
 9.957894049234940D-01,  9.315910675787362D-01,  1.269921938742754D-03, &
 9.966819226158441D-01,  1.990628617847345D-01,  2.824785894655117D-03, &
 9.964232568659287D-01, -8.647711926777550D-02,  2.645466616758639D-03, &
 9.956972863904161D-01, -3.319481955508262D-01,  2.579394947779080D-03, &
 9.970019011095760D-01, -9.813822644968530D-01,  5.121822735027154D-04, &
 9.927566324556228D-01,  9.934870866426487D-01,  4.095595153407374D-04, &
 9.703323011961618D-01,  9.728958623239660D-01,  2.212600752526410D-03, &
 9.900242513895626D-01,  8.165046961752659D-01,  3.489632874382814D-03, &
 9.902525852068462D-01,  6.514930247782849D-01,  4.815598056643366D-03, &
 9.917712097306959D-01,  4.326945836209130D-01,  4.941854039948059D-03, &
 9.773024985383031D-01,  5.683940605635036D-02,  8.460270092591574D-03, &
 9.765396060948102D-01, -2.098648339912204D-01,  7.323452637054356D-03, &
 9.880323477406699D-01, -5.045486513331958D-01,  5.591335677415872D-03, &
 9.944122733775166D-01, -7.025141307156174D-01,  3.181105696378461D-03, &
 9.958204649863345D-01, -8.811936722293690D-01,  1.679399407542441D-03, &
 9.739851411479190D-01, -9.961982985684296D-01,  6.089390050721569D-04, &
 9.254838810436582D-01,  9.958919316136239D-01,  1.271037344372932D-03, &
 9.587557132884421D-01,  8.944112789567285D-01,  5.640872717691950D-03, &
 9.478849514864001D-01,  7.463373175773630D-01,  1.008027250286055D-02, &
 9.549410582182760D-01,  5.355951225176204D-01,  1.161336024599024D-02, &
 9.613314688856274D-01,  2.819596780094841D-01,  1.253554272417035D-02, &
 9.371448388483095D-01, -8.017182518756116D-02,  1.355567725840021D-02, &
 9.492637368076354D-01, -3.697133117565873D-01,  1.281170011512887D-02, &
 9.566739186062905D-01, -6.179209188638126D-01,  1.016499900104730D-02, &
 9.690740057689825D-01, -8.076324709283432D-01,  7.066159092569420D-03, &
 9.749406372948716D-01, -9.432315538275444D-01,  3.241771014445550D-03, &
 9.028278454473605D-01,  9.506719573551936D-01,  5.718690511681701D-03, &
 8.866581548182707D-01,  8.445040467901622D-01,  1.175179682399269D-02, &
 8.903706483869364D-01,  6.377461105727130D-01,  1.554746970297020D-02, &
 8.969144590540912D-01,  3.956118985338431D-01,  1.953552168957224D-02, &
 9.053329661179432D-01,  1.228611554470282D-01,  2.024486874693669D-02, &
 8.842030747448643D-01, -2.282562902715039D-01,  2.040134384913240D-02, &
 8.946404670250787D-01, -4.984799138722827D-01,  1.782084645269496D-02, &
 9.062802014741841D-01, -7.288543903373946D-01,  1.354418113376059D-02, &
 9.198811888280545D-01, -8.922009039806831D-01,  8.721191397819752D-03, &
 9.293075634720418D-01, -9.788256460307448D-01,  3.013136362612083D-03, &
 8.307416649103097D-01,  9.847272069450065D-01,  3.863549341320347D-03, &
 7.989018093580924D-01,  9.174533264327734D-01,  1.128961407311655D-02, &
 8.153857983509745D-01,  7.467362479932101D-01,  1.716850446840271D-02, &
 8.106585959801085D-01,  5.188318587780150D-01,  2.320252631505465D-02, &
 8.162893718776413D-01,  2.444840500980434D-01,  2.728966404029472D-02, &
 8.215905935547697D-01, -3.780686241256082D-02,  2.873816438714253D-02, &
 8.072057239710502D-01, -3.681756246884155D-01,  2.561572339256985D-02, &
 8.197749309285268D-01, -6.248305963346963D-01,  2.157459899366617D-02, &
 8.339165476219796D-01, -8.250462105756355D-01,  1.506332709846787D-02, &
 8.437899588814044D-01, -9.504266038421356D-01,  7.899470455295205D-03, &
 8.682228958168398D-01, -9.969291267643441D-01,  1.326374275614798D-03, &
 7.414965930896726D-01,  9.976180923017504D-01,  1.275494804255145D-03, &
 6.896123397952399D-01,  9.672239781292444D-01,  8.487518731202960D-03, &
 7.211153759242311D-01,  8.337039311560572D-01,  1.641194543039353D-02, &
 7.110494018863930D-01,  6.441550914790497D-01,  2.560376586419488D-02, &
 7.120710037407173D-01,  3.843983266067464D-01,  3.118328085454265D-02, &
 7.082337843919169D-01,  9.533642358177043D-02,  3.479648766166858D-02, &
 7.187206312556610D-01, -1.999543274853690D-01,  3.480535416060045D-02, &
 7.099505499909835D-01, -5.055377353405510D-01,  2.961142270210251D-02, &
 7.231776378051314D-01, -7.385609605003077D-01,  2.311015021964838D-02, &
 7.369495741211172D-01, -9.005396614377654D-01,  1.415501795415763D-02, &
 7.505952660477123D-01, -9.861825097580426D-01,  4.832952601963804D-03, &
 5.629653024363824D-01,  9.941135664776372D-01,  3.633655134392321D-03, &
 6.141214240396574D-01,  8.998790302041257D-01,  1.392167112523221D-02, &
 5.931921073513758D-01,  7.527920640845824D-01,  2.481829833350465D-02, &
 5.899871025319341D-01,  5.223942064090121D-01,  3.423115609409048D-02, &
 5.883574941173312D-01,  2.456253195175061D-01,  3.801938621563456D-02, &
 5.866522692423990D-01, -6.354514810462418D-02,  4.033761673976392D-02, &
 5.956977300877557D-01, -3.566931332257176D-01,  3.883131233055023D-02, &
 5.927782889432014D-01, -6.336224604245022D-01,  3.122552426886264D-02, &
 6.039926786166937D-01, -8.337208546028212D-01,  2.203539439992588D-02, &
 6.254100151918139D-01, -9.560918196311188D-01,  1.059755194349184D-02, &
 6.138060651734009D-01, -9.979430080887202D-01,  1.564596443077996D-03, &
 5.022165322679116D-01,  9.482480846379436D-01,  1.084348902106024D-02, &
 4.589509327363929D-01,  8.404994158661170D-01,  2.205645658430699D-02, &
 4.535417272429489D-01,  6.512962979642629D-01,  3.348745611830561D-02, &
 4.510904524624095D-01,  3.881579570291138D-01,  4.047512990695875D-02, &
 4.531813432716658D-01,  9.229245238599951D-02,  4.393288153714553D-02, &
 4.488470929336799D-01, -2.197179800757668D-01,  4.388737292644242D-02, &
 4.563145412677839D-01, -5.038653497135700D-01,  4.012853694760013D-02, &
 4.562655526794984D-01, -7.462651889579118D-01,  3.008472851353892D-02, &
 4.727430836168379D-01, -9.110093097588490D-01,  1.799703635920556D-02, &
 4.843396113021201D-01, -9.856160975683469D-01,  5.547598452760956D-03, &
 3.782074525681371D-01,  9.816291834100873D-01,  7.597211525403482D-03, &
 3.210021971883614D-01,  9.073748618669065D-01,  1.712946714791248D-02, &
 2.971150388089600D-01,  7.594439443864908D-01,  3.119492749262633D-02, &
 3.085827486636639D-01,  5.288161042011519D-01,  3.927023314753940D-02, &
 3.026283090386810D-01,  2.403811853574280D-01,  4.600362243085380D-02, &
 3.035481141969048D-01, -6.382973969918371D-02,  4.775119284718515D-02, &
 2.994451040546098D-01, -3.704131087942491D-01,  4.493238986528309D-02, &
 3.026913839582241D-01, -6.362750245744471D-01,  3.848554817804676D-02, &
 3.121563314492936D-01, -8.444884638792907D-01,  2.592723046024846D-02, &
 3.177377527975286D-01, -9.623829050564436D-01,  1.196800170196079D-02, &
 3.522562949226852D-01, -9.977574902186489D-01,  1.465730151083379D-03, &
 2.252906962715443D-01,  9.978350295394129D-01,  2.641867829058960D-03, &
 1.870003268404008D-01,  9.519167862352040D-01,  1.192465747101495D-02, &
 1.307262219235918D-01,  8.489253631104906D-01,  2.661740954067537D-02, &
 1.460202234422147D-01,  6.479061469473005D-01,  3.731070624469975D-02, &
 1.551732848359904D-01,  3.937810190186502D-01,  4.428770255029615D-02, &
 1.446818601451690D-01,  8.694181210571608D-02,  4.921582512367255D-02, &
 1.447233210916806D-01, -2.195027813449513D-01,  4.906351937807495D-02, &
 1.412640048285802D-01, -5.107425247720647D-01,  4.323240844139490D-02, &
 1.466417969010396D-01, -7.557347294477489D-01,  3.399928104285673D-02, &
 1.513983361920271D-01, -9.178835711763990D-01,  1.968326070317311D-02, &
 1.600169709826858D-01, -9.920169758816885D-01,  5.106715024206334D-03, &
 4.623093501161722D-02,  9.801351468257945D-01,  8.170216576549613D-03, &
 -4.319669651670000D-02,  9.166149692153970D-01,  2.022961085099902D-02, &
 -2.230730777996857D-02,  7.523423884761198D-01,  3.290525410921873D-02, &
 -1.392477655643914D-02,  5.228385485756610D-01,  4.239225481578053D-02, &
 -2.183676694863989D-03,  2.501384326494425D-01,  4.695791528007733D-02, &
 -1.771073397997970D-02, -6.845314069841779D-02,  4.998518364759874D-02, &
 -1.918022708935162D-02, -3.696927200439754D-01,  4.749247254760981D-02, &
 -1.474661089836961D-02, -6.423393807595678D-01,  3.916228450022604D-02, &
 -1.910959910763293D-02, -8.510668952524700D-01,  2.737517696135046D-02, &
 -1.100089784272918D-02, -9.691167342202294D-01,  1.213622924790588D-02, &
 -3.847492042854418D-02, -9.987599455147976D-01,  5.258835064828757D-04, &
 -1.160040389320081D-01,  9.958817619644164D-01,  3.406278974443858D-03, &
 -2.185121444211190D-01,  9.631241177105265D-01,  1.268502876701255D-02, &
 -1.937132212208339D-01,  8.383996125115697D-01,  2.675583510478743D-02, &
 -1.826019579662390D-01,  6.413756225205492D-01,  3.761719838478075D-02, &
 -1.735927428003249D-01,  3.847679978445431D-01,  4.506880832422441D-02, &
 -1.594820599810335D-01,  1.021893850082368D-01,  4.732469156429694D-02, &
 -1.797927762716425D-01, -2.215868153351966D-01,  4.805977741575223D-02, &
 -1.784086402180959D-01, -5.142300281088545D-01,  4.362591086259024D-02, &
 -1.745465205857428D-01, -7.537366611960344D-01,  3.293031384181930D-02, &
 -1.828492149475154D-01, -9.245139444740262D-01,  1.949340077252138D-02, &
 -1.789613218613975D-01, -9.949810109450419D-01,  4.016610904884734D-03, &
 -3.800099111129797D-01,  9.908974338803321D-01,  5.688273109814698D-03, &
 -3.586039156258787D-01,  9.068849508020077D-01,  1.913010526360378D-02, &
 -3.496397464654761D-01,  7.438459923959813D-01,  3.124476168334308D-02, &
 -3.364944138026182D-01,  5.149360180314989D-01,  3.983236757275106D-02, &
 -3.294605072590807D-01,  2.384445970652024D-01,  4.513790568866929D-02, &
 -3.122746998671402D-01, -4.678649257141996D-02,  4.548014560760486D-02, &
 -3.341423047428589D-01, -3.709042921640023D-01,  4.429219382577024D-02, &
 -3.354222464209633D-01, -6.423389313071104D-01,  3.714968452645009D-02, &
 -3.286029525442455D-01, -8.464666976755009D-01,  2.548880688148467D-02, &
 -3.423506685296714D-01, -9.732216431261292D-01,  1.101466595660109D-02, &
 -5.138042906159611D-01,  9.558781663655185D-01,  1.229885705467326D-02, &
 -5.033240255512550D-01,  8.325996634815285D-01,  2.342997859462644D-02, &
 -4.934184358754027D-01,  6.313367991374997D-01,  3.314341950516837D-02, &
 -4.810231379698435D-01,  3.779456066296256D-01,  3.930146102742181D-02, &
 -4.764387898456861D-01,  8.757235735790503D-02,  4.263018853028100D-02, &
 -4.572408337995446D-01, -1.943807931912226D-01,  4.242015879601867D-02, &
 -4.802078301948393D-01, -5.087552615537000D-01,  3.799154907843184D-02, &
 -4.816737135589465D-01, -7.533088525220843D-01,  2.921009462864135D-02, &
 -4.733119659070418D-01, -9.179909803583359D-01,  1.746139256900922D-02, &
 -4.990207194253169D-01, -9.955235014987277D-01,  3.570668877927755D-03, &
 -6.062998022698073D-01,  9.932404164712231D-01,  3.708370634578858D-03, &
 -6.491078687880649D-01,  8.991595936933783D-01,  1.661359748562513D-02, &
 -6.321366293284888D-01,  7.379522674184295D-01,  2.543791270192361D-02, &
 -6.224588096649009D-01,  5.058658625167738D-01,  3.217812029858986D-02, &
 -6.117601892971127D-01,  2.344646477708566D-01,  3.626413991737416D-02, &
 -6.122438295935009D-01, -6.118231673822243D-02,  3.846524273667296D-02, &
 -5.905469375569611D-01, -3.379271094668896D-01,  3.725605813241765D-02, &
 -6.122926561666857D-01, -6.332620144806621D-01,  3.045025547248366D-02, &
 -6.117420843079315D-01, -8.439605906500176D-01,  2.063725984389774D-02, &
 -6.116108912175794D-01, -9.645394242789779D-01,  1.003007390672613D-02, &
 -7.202064450714707D-01,  9.687351621558032D-01,  7.343535416630068D-03, &
 -7.640489552162673D-01,  8.186646209837353D-01,  1.863562117417300D-02, &
 -7.436443095834101D-01,  6.262385938114700D-01,  2.495426940021197D-02, &
 -7.331951159558409D-01,  3.722915352073840D-01,  2.875505251303774D-02, &
 -7.291744483592270D-01,  9.368940286691475D-02,  3.156945503308321D-02, &
 -7.288163979760982D-01, -2.086415233438004D-01,  3.215315002188151D-02, &
 -7.098973709325594D-01, -4.751240313065653D-01,  3.076312488254992D-02, &
 -7.268316303036324D-01, -7.421205012809852D-01,  2.255876744610365D-02, &
 -7.264152089003056D-01, -9.083680633160397D-01,  1.267855278207347D-02, &
 -7.233502526295543D-01, -9.921398900464297D-01,  3.600327870316919D-03, &
 -7.944789979709225D-01,  9.959607742122426D-01,  1.854529264151413D-03, &
 -8.147179926759360D-01,  9.259971742330974D-01,  9.286071545967561D-03, &
 -8.358777763260274D-01,  5.001749403101742D-01,  2.223492620715524D-02, &
 -8.280513515003269D-01,  2.411582059883278D-01,  2.368666725498836D-02, &
 -8.243355863622386D-01, -4.998572152583577D-02,  2.569483374962900D-02, &
 -8.253626145601571D-01, -3.493120592376261D-01,  2.490342922131878D-02, &
 -8.121903650291438D-01, -6.033292859790981D-01,  2.346341699504689D-02, &
 -8.243577863456620D-01, -8.312302356419400D-01,  1.465176915755172D-02, &
 -8.082617618985660D-01, -9.574178572790982D-01,  6.560728336041037D-03, &
 -8.769708382829380D-01,  9.770175617614344D-01,  3.974309788574307D-03, &
 -8.880540245245994D-01,  8.666033220470682D-01,  9.800468993344479D-03, &
 -8.568819581968040D-01,  7.165122557426438D-01,  1.790497672791658D-02, &
 -9.108965422368728D-01,  3.666364065180091D-01,  1.733578039890229D-02, &
 -8.999292387149525D-01,  1.038339307709946D-01,  1.840663934478885D-02, &
 -8.998152788908981D-01, -1.919839007449358D-01,  1.937803424050972D-02, &
 -9.011685721899708D-01, -4.791884508086222D-01,  1.781696597031558D-02, &
 -8.923912156383284D-01, -7.214601312758249D-01,  1.500532951025639D-02, &
 -8.907008410401606D-01, -9.129470624567904D-01,  7.655314254685561D-03, &
 -8.676939171104242D-01, -9.904314861849869D-01,  2.705031002848760D-03, &
 -9.188556339019280D-01,  9.977441709649485D-01,  6.651528764616177D-04, &
 -9.393146671802626D-01,  9.406875019616726D-01,  4.907287875623333D-03, &
 -9.427004725205717D-01,  7.884492668449667D-01,  8.999020685128650D-03, &
 -9.254983409374398D-01,  5.949923406312909D-01,  1.449266443485655D-02, &
 -9.623402050786286D-01,  2.203675962432235D-01,  1.154948473266472D-02, &
 -9.534726655584184D-01, -3.595939510894143D-02,  1.281508516722223D-02, &
 -9.562602062411448D-01, -3.265233934409525D-01,  1.289425537223051D-02, &
 -9.499571065866433D-01, -6.131217314929267D-01,  1.037125192483871D-02, &
 -9.414372674717216D-01, -8.421925517112083D-01,  7.635598833311997D-03, &
 -9.395229108692154D-01, -9.677418086529198D-01,  3.716167310778579D-03, &
 -9.663743388828732D-01,  9.850068209277927D-01,  1.420844648930481D-03, &
 -9.793571344458664D-01,  8.835824849533620D-01,  4.236370836658044D-03, &
 -9.784131895253078D-01,  6.860465632928617D-01,  6.466485198832629D-03, &
 -9.720790479760727D-01,  4.609381343239562D-01,  9.123045248824293D-03, &
 -9.922349973191166D-01,  7.408980516640630D-02,  5.036903551023158D-03, &
 -9.884518154282259D-01, -1.661796274498394D-01,  6.407263174244769D-03, &
 -9.837613800395109D-01, -4.904211187466530D-01,  6.284479940669028D-03, &
 -9.762934256514504D-01, -7.589006865381343D-01,  5.806817236490501D-03, &
 -9.802746096908096D-01, -9.188419450488240D-01,  3.548038742379143D-03, &
 -9.621555816212115D-01, -9.997532394165864D-01,  5.926783687992160D-04, &
 -9.896332869499853D-01,  9.951276758066656D-01,  3.200747405907301D-04, &
 -9.951132917806931D-01,  9.549806547758480D-01,  1.112585947085899D-03, &
 -9.971587223315985D-01,  7.967223653947199D-01,  1.766856809395384D-03, &
 -9.966946507532868D-01,  5.656259514453754D-01,  2.374570144278089D-03, &
 -9.948421084318764D-01,  3.184211137190651D-01,  3.508527197107025D-03, &
 -9.985195040394224D-01, -3.568719965932207D-01,  1.842016463896301D-03, &
 -9.952776313728143D-01, -6.518074202281385D-01,  2.603732985806352D-03, &
 -9.985034101792289D-01, -8.450489535939099D-01,  1.326109663812068D-03, &
 -9.930680364844743D-01, -9.794233688312636D-01,  9.749008815310916D-04 /)

  return
end
subroutine smr35 ( xyw )

!*****************************************************************************80
!
!! SMR35 returns the SMR rule of degree 35.
!
!  Discussion:
!
!    DEGREE: 35
!    SYMMETRY: (X,  Y),  (-X, -Y)
!    POINTS CARDINALITY: 220
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*220), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*220)

  xyw = (/ &
 -9.963054076831271D-01,  5.895227652492729D-01,  3.040448117975760D-03, &
 -9.959258876623405D-01,  8.226232166208993D-01,  1.978505799274471D-03, &
 -9.954067560360648D-01, -9.074145716693054D-01,  1.810898452206362D-03, &
 -9.952722138287154D-01,  2.785041956973013D-01,  4.045664611880734D-03, &
 -9.949775104476455D-01, -7.198973208744759D-01,  2.841977406946536D-03, &
 -9.943750550352027D-01, -3.487179202856331D-02,  4.548201806973092D-03, &
 -9.943677037885296D-01,  9.710410041880194D-01,  1.118097006661641D-03, &
 -9.937038655576630D-01, -9.931050540649843D-01,  4.830386117047890D-04, &
 -9.930202681222473D-01, -3.214092657950156D-01,  4.905950396961080D-03, &
 -9.861727841676639D-01, -5.400704381496431D-01,  6.797444141494801D-03, &
 -9.810071147719678D-01,  8.985653300431585D-01,  3.181435032108599D-03, &
 -9.740062631571137D-01,  7.162386303873299D-01,  7.887232214456035D-03, &
 -9.739587062789258D-01,  4.439901118287898D-01,  1.034505230549930D-02, &
 -9.726572697503230D-01, -8.181619946621148D-01,  6.464658905526641D-03, &
 -9.698067055262342D-01, -9.633285091443817D-01,  3.282158060938487D-03, &
 -9.694166462805192D-01,  1.256612526452283D-01,  1.203688131505905D-02, &
 -9.658674622089268D-01,  9.953452266059633D-01,  1.102717947131251D-03, &
 -9.638166221951805D-01, -1.751088896720577D-01,  1.281494987287384D-02, &
 -9.504683215166834D-01,  9.376314986069719D-01,  4.086139127613287D-03, &
 -9.449990557642718D-01, -6.629472122415720D-01,  1.284843891927071D-02, &
 -9.446169086076862D-01, -4.135452324650374D-01,  1.479906753649862D-02, &
 -9.317772095678226D-01,  8.201150672577782D-01,  9.940838732765474D-03, &
 -9.290486544464471D-01, -8.950190921642169D-01,  7.779964394420137D-03, &
 -9.283184737295814D-01,  5.879017021514434D-01,  1.561783824168382D-02, &
 -9.245462285990703D-01,  2.974342857591706D-01,  1.847140993304593D-02, &
 -9.211763298375819D-01, -9.934526556341349D-01,  2.003191789183488D-03, &
 -9.119151052554647D-01, -4.274927442267495D-02,  1.424779189715308D-02, &
 -9.057117846078058D-01,  4.659054057320846D-02,  9.353615677783169D-03, &
 -8.999935234232900D-01,  9.752903231391948D-01,  4.574852292020883D-03, &
 -8.829230087690153D-01, -7.770114466508429D-01,  1.555785382570586D-02, &
 -8.824467573040489D-01, -2.752146559569857D-01,  2.057326622412542D-02, &
 -8.735663725309100D-01, -5.411359973847757D-01,  2.141510206682392D-02, &
 -8.722180260064613D-01,  8.841005984426642D-01,  8.223856754800985D-03, &
 -8.688253850828861D-01, -9.504355153693655D-01,  7.016335896084859D-03, &
 -8.610711834248425D-01,  7.150978677167033D-01,  1.850564562244901D-02, &
 -8.562600324120904D-01,  4.495124318073283D-01,  2.357983853078307D-02, &
 -8.358095013326707D-01,  1.733093930153186D-01,  2.670539971994917D-02, &
 -8.228302442461702D-01, -1.697016693626475D-01,  1.342647121783435D-02, &
 -8.174385098192266D-01,  9.961711079884141D-01,  2.165794610184791D-03, &
 -8.166426016882831D-01,  9.271485107406205D-01,  7.934960713327414D-03, &
 -7.985152091160521D-01, -8.693626506598062D-01,  1.561754453690349D-02, &
 -7.981120997224805D-01, -9.863110488956950D-01,  4.428350131300970D-03, &
 -7.904587180395604D-01, -3.698232163504092D-02,  2.186616762504613D-02, &
 -7.887652330718642D-01, -6.709289186517926D-01,  2.371430123275542D-02, &
 -7.796834866912661D-01, -3.994715783200819D-01,  2.994104825767884D-02, &
 -7.704963456494349D-01,  5.900999992322654D-01,  2.533980569560729D-02, &
 -7.640326515570037D-01,  8.125887805195392D-01,  1.949174894848284D-02, &
 -7.450492234413376D-01,  3.427381908986717D-01,  2.313801537268639D-02, &
 -7.328136392431331D-01,  2.875348312510743D-01,  1.087089248290535D-02, &
 -7.295286264509984D-01,  9.665226078227548D-01,  8.147629083103793D-03, &
 -7.084311098316746D-01, -1.768747230410797D-01,  2.397513960514677D-02, &
 -7.005552670374735D-01, -9.406601330339404D-01,  1.246369990823231D-02, &
 -6.897531031934704D-01,  6.782883935108303D-01,  6.655878361359627D-03, &
 -6.848525475182752D-01, -7.813397580356689D-01,  2.347027715648843D-02, &
 -6.787362302215644D-01,  8.353105038445782D-02,  3.660462342407370D-02, &
 -6.758525517932752D-01, -5.427274842488018D-01,  3.178580319617729D-02, &
 -6.598249437273979D-01, -9.948642685624477D-01,  2.808772731098325D-03, &
 -6.499799074317244D-01,  8.924083156022753D-01,  1.749067931565174D-02, &
 -6.406772691253437D-01,  7.139228812806040D-01,  2.272673241453971D-02, &
 -6.404909510129633D-01,  4.864679391303438D-01,  2.960589457868493D-02, &
 -6.308221736554908D-01, -2.945267523482654D-01,  3.146868659787020D-02, &
 -6.143455982549889D-01,  9.920826636566066D-01,  4.351963504883606D-03, &
 -5.844710675512947D-01,  2.592109992058108D-01,  2.283706283744573D-02, &
 -5.748230680261558D-01, -8.760965122066653D-01,  1.943926421467558D-02, &
 -5.572474716940677D-01, -6.686420737982589D-01,  3.083669208006901D-02, &
 -5.482102814487624D-01,  4.226896138717067D-01,  1.428889064276768D-02, &
 -5.435737968160658D-01, -7.127399923480068D-02,  4.496806151459203D-02, &
 -5.391683921956473D-01, -9.726355827179098D-01,  9.266285418087179D-03, &
 -5.207225999437588D-01,  2.085864473946192D-01,  2.344644441982280D-02, &
 -5.185875206855339D-01,  8.093271136372929D-01,  2.465400557427630D-02, &
 -5.177821997159030D-01, -4.860941365404695D-01,  4.035705383914671D-03, &
 -5.159801356223465D-01,  9.489058642290333D-01,  1.356103767266921D-02, &
 -5.158924660295786D-01, -4.251904122231722D-01,  3.560324497451925D-02, &
 -4.994044935070279D-01,  6.099462217677528D-01,  3.154922279377764D-02, &
 -4.542210356062989D-01, -7.958468688022844D-01,  1.794582284359643D-02, &
 -4.056267255080869D-01,  5.341375520421459D-01,  1.152087899889739D-02, &
 -4.055948117557182D-01, -9.243438360258911D-01,  1.650133309775475D-02, &
 -4.040537647708318D-01, -9.964418579498329D-01,  3.051316164369587D-03, &
 -4.039882331666476D-01, -2.369652785329704D-01,  4.786645009346951D-02, &
 -4.035957925466688D-01, -7.396121234399951D-01,  1.283147906403060D-02, &
 -3.998139656878879D-01,  3.785894153380550D-01,  3.993632109430833D-02, &
 -3.963413695053817D-01,  9.888743963929636D-01,  6.292415031278153D-03, &
 -3.916192571372809D-01,  8.570203854231701D-02,  4.709957356606227D-02, &
 -3.781489380730715D-01, -5.664445529989698D-01,  3.920699629566945D-02, &
 -3.716587536775290D-01,  8.852446618690641D-01,  2.141062768778597D-02, &
 -3.634328788865228D-01,  7.287742400150319D-01,  2.448742112847983D-02, &
 -2.987755245919356D-01,  6.636636932174717D-01,  1.342406173089754D-02, &
 -2.968276435525883D-01, -8.304928792595524D-01,  1.658848141268110D-02, &
 -2.730446394137964D-01, -9.731854164765670D-01,  9.487914154560882D-03, &
 -2.527215209939402D-01, -3.953707636595537D-01,  4.787894718529206D-02, &
 -2.484030447599341D-01,  9.526421508958445D-01,  1.422151685597499D-02, &
 -2.449636454507225D-01, -7.846110838738764D-02,  5.146237215684395D-02, &
 -2.425768385346887D-01,  5.209707813340320D-01,  3.945757174858697D-02, &
 -2.350501139206987D-01,  2.470184275136251D-01,  4.984023350983210D-02, &
 -2.242013177906116D-01, -6.901076261298711D-01,  3.533647809963283D-02, &
 -2.185301091710398D-01, -8.814048828689003D-01,  1.288022793213647D-02, &
 -2.041253198436666D-01,  7.913052621344840D-01,  2.097344678642826D-02, &
 -1.711186961614260D-01,  8.484142146354349D-01,  1.191006595550569D-02, &
 -1.706560382250964D-01,  9.949901599692252D-01,  3.586815258663693D-03, &
 -1.215442732714673D-01, -9.952093452521580D-01,  3.571400312739183D-03, &
 -1.212739677278976D-01, -9.375172954719908D-01,  1.267403468943651D-02, &
 -9.463646218871977D-02, -5.420702319082150D-01,  4.444769202139284D-02, &
 -8.912243328958734D-02,  6.529263044412255D-01,  3.773327086808358D-02, &
 -8.859975837369544D-02, -2.416302562834947D-01,  5.169192291225042D-02, &
 -8.213238766551616D-02, -8.377296354933957D-01,  1.300368186580167D-02, &
 -7.960209828358143D-02,  8.301571435730447D-02,  5.326449572668888D-02, &
 -6.910083831974916D-02,  3.985144846429817D-01,  4.829901192754266D-02, &
 -6.703676747477079D-02,  9.036691320042987D-01,  1.766559618844168D-02, &
 -3.859244773141641D-02, -7.670969426559235D-01,  2.567105291338053D-02, &
 -2.835677761623644D-02,  9.748999327824780D-01,  8.816515305029195D-03, &
 2.835677761623644D-02, -9.748999327824780D-01,  8.816515305029195D-03, &
 3.859244773141641D-02,  7.670969426559235D-01,  2.567105291338053D-02, &
 6.703676747477079D-02, -9.036691320042987D-01,  1.766559618844168D-02, &
 6.910083831974916D-02, -3.985144846429817D-01,  4.829901192754266D-02, &
 7.960209828358143D-02, -8.301571435730447D-02,  5.326449572668888D-02, &
 8.213238766551616D-02,  8.377296354933957D-01,  1.300368186580167D-02, &
 8.859975837369544D-02,  2.416302562834947D-01,  5.169192291225042D-02, &
 8.912243328958734D-02, -6.529263044412255D-01,  3.773327086808358D-02, &
 9.463646218871977D-02,  5.420702319082150D-01,  4.444769202139284D-02, &
 1.212739677278976D-01,  9.375172954719908D-01,  1.267403468943651D-02, &
 1.215442732714673D-01,  9.952093452521580D-01,  3.571400312739183D-03, &
 1.706560382250964D-01, -9.949901599692252D-01,  3.586815258663693D-03, &
 1.711186961614260D-01, -8.484142146354349D-01,  1.191006595550569D-02, &
 2.041253198436666D-01, -7.913052621344840D-01,  2.097344678642826D-02, &
 2.185301091710398D-01,  8.814048828689003D-01,  1.288022793213647D-02, &
 2.242013177906116D-01,  6.901076261298711D-01,  3.533647809963283D-02, &
 2.350501139206987D-01, -2.470184275136251D-01,  4.984023350983210D-02, &
 2.425768385346887D-01, -5.209707813340320D-01,  3.945757174858697D-02, &
 2.449636454507225D-01,  7.846110838738764D-02,  5.146237215684395D-02, &
 2.484030447599341D-01, -9.526421508958445D-01,  1.422151685597499D-02, &
 2.527215209939402D-01,  3.953707636595537D-01,  4.787894718529206D-02, &
 2.730446394137964D-01,  9.731854164765670D-01,  9.487914154560882D-03, &
 2.968276435525883D-01,  8.304928792595524D-01,  1.658848141268110D-02, &
 2.987755245919356D-01, -6.636636932174717D-01,  1.342406173089754D-02, &
 3.634328788865228D-01, -7.287742400150319D-01,  2.448742112847983D-02, &
 3.716587536775290D-01, -8.852446618690641D-01,  2.141062768778597D-02, &
 3.781489380730715D-01,  5.664445529989698D-01,  3.920699629566945D-02, &
 3.916192571372809D-01, -8.570203854231701D-02,  4.709957356606227D-02, &
 3.963413695053817D-01, -9.888743963929636D-01,  6.292415031278153D-03, &
 3.998139656878879D-01, -3.785894153380550D-01,  3.993632109430833D-02, &
 4.035957925466688D-01,  7.396121234399951D-01,  1.283147906403060D-02, &
 4.039882331666476D-01,  2.369652785329704D-01,  4.786645009346951D-02, &
 4.040537647708318D-01,  9.964418579498329D-01,  3.051316164369587D-03, &
 4.055948117557182D-01,  9.243438360258911D-01,  1.650133309775475D-02, &
 4.056267255080869D-01, -5.341375520421459D-01,  1.152087899889739D-02, &
 4.542210356062989D-01,  7.958468688022844D-01,  1.794582284359643D-02, &
 4.994044935070279D-01, -6.099462217677528D-01,  3.154922279377764D-02, &
 5.158924660295786D-01,  4.251904122231722D-01,  3.560324497451925D-02, &
 5.159801356223465D-01, -9.489058642290333D-01,  1.356103767266921D-02, &
 5.177821997159030D-01,  4.860941365404695D-01,  4.035705383914671D-03, &
 5.185875206855339D-01, -8.093271136372929D-01,  2.465400557427630D-02, &
 5.207225999437588D-01, -2.085864473946192D-01,  2.344644441982280D-02, &
 5.391683921956473D-01,  9.726355827179098D-01,  9.266285418087179D-03, &
 5.435737968160658D-01,  7.127399923480068D-02,  4.496806151459203D-02, &
 5.482102814487624D-01, -4.226896138717067D-01,  1.428889064276768D-02, &
 5.572474716940677D-01,  6.686420737982589D-01,  3.083669208006901D-02, &
 5.748230680261558D-01,  8.760965122066653D-01,  1.943926421467558D-02, &
 5.844710675512947D-01, -2.592109992058108D-01,  2.283706283744573D-02, &
 6.143455982549889D-01, -9.920826636566066D-01,  4.351963504883606D-03, &
 6.308221736554908D-01,  2.945267523482654D-01,  3.146868659787020D-02, &
 6.404909510129633D-01, -4.864679391303438D-01,  2.960589457868493D-02, &
 6.406772691253437D-01, -7.139228812806040D-01,  2.272673241453971D-02, &
 6.499799074317244D-01, -8.924083156022753D-01,  1.749067931565174D-02, &
 6.598249437273979D-01,  9.948642685624477D-01,  2.808772731098325D-03, &
 6.758525517932752D-01,  5.427274842488018D-01,  3.178580319617729D-02, &
 6.787362302215644D-01, -8.353105038445782D-02,  3.660462342407370D-02, &
 6.848525475182752D-01,  7.813397580356689D-01,  2.347027715648843D-02, &
 6.897531031934704D-01, -6.782883935108303D-01,  6.655878361359627D-03, &
 7.005552670374735D-01,  9.406601330339404D-01,  1.246369990823231D-02, &
 7.084311098316746D-01,  1.768747230410797D-01,  2.397513960514677D-02, &
 7.295286264509984D-01, -9.665226078227548D-01,  8.147629083103793D-03, &
 7.328136392431331D-01, -2.875348312510743D-01,  1.087089248290535D-02, &
 7.450492234413376D-01, -3.427381908986717D-01,  2.313801537268639D-02, &
 7.640326515570037D-01, -8.125887805195392D-01,  1.949174894848284D-02, &
 7.704963456494349D-01, -5.900999992322654D-01,  2.533980569560729D-02, &
 7.796834866912661D-01,  3.994715783200819D-01,  2.994104825767884D-02, &
 7.887652330718642D-01,  6.709289186517926D-01,  2.371430123275542D-02, &
 7.904587180395604D-01,  3.698232163504092D-02,  2.186616762504613D-02, &
 7.981120997224805D-01,  9.863110488956950D-01,  4.428350131300970D-03, &
 7.985152091160521D-01,  8.693626506598062D-01,  1.561754453690349D-02, &
 8.166426016882831D-01, -9.271485107406205D-01,  7.934960713327414D-03, &
 8.174385098192266D-01, -9.961711079884141D-01,  2.165794610184791D-03, &
 8.228302442461702D-01,  1.697016693626475D-01,  1.342647121783435D-02, &
 8.358095013326707D-01, -1.733093930153186D-01,  2.670539971994917D-02, &
 8.562600324120904D-01, -4.495124318073283D-01,  2.357983853078307D-02, &
 8.610711834248425D-01, -7.150978677167033D-01,  1.850564562244901D-02, &
 8.688253850828861D-01,  9.504355153693655D-01,  7.016335896084859D-03, &
 8.722180260064613D-01, -8.841005984426642D-01,  8.223856754800985D-03, &
 8.735663725309100D-01,  5.411359973847757D-01,  2.141510206682392D-02, &
 8.824467573040489D-01,  2.752146559569857D-01,  2.057326622412542D-02, &
 8.829230087690153D-01,  7.770114466508429D-01,  1.555785382570586D-02, &
 8.999935234232900D-01, -9.752903231391948D-01,  4.574852292020883D-03, &
 9.057117846078058D-01, -4.659054057320846D-02,  9.353615677783169D-03, &
 9.119151052554647D-01,  4.274927442267495D-02,  1.424779189715308D-02, &
 9.211763298375819D-01,  9.934526556341349D-01,  2.003191789183488D-03, &
 9.245462285990703D-01, -2.974342857591706D-01,  1.847140993304593D-02, &
 9.283184737295814D-01, -5.879017021514434D-01,  1.561783824168382D-02, &
 9.290486544464471D-01,  8.950190921642169D-01,  7.779964394420137D-03, &
 9.317772095678226D-01, -8.201150672577782D-01,  9.940838732765474D-03, &
 9.446169086076862D-01,  4.135452324650374D-01,  1.479906753649862D-02, &
 9.449990557642718D-01,  6.629472122415720D-01,  1.284843891927071D-02, &
 9.504683215166834D-01, -9.376314986069719D-01,  4.086139127613287D-03, &
 9.638166221951805D-01,  1.751088896720577D-01,  1.281494987287384D-02, &
 9.658674622089268D-01, -9.953452266059633D-01,  1.102717947131251D-03, &
 9.694166462805192D-01, -1.256612526452283D-01,  1.203688131505905D-02, &
 9.698067055262342D-01,  9.633285091443817D-01,  3.282158060938487D-03, &
 9.726572697503230D-01,  8.181619946621148D-01,  6.464658905526641D-03, &
 9.739587062789258D-01, -4.439901118287898D-01,  1.034505230549930D-02, &
 9.740062631571137D-01, -7.162386303873299D-01,  7.887232214456035D-03, &
 9.810071147719678D-01, -8.985653300431585D-01,  3.181435032108599D-03, &
 9.861727841676639D-01,  5.400704381496431D-01,  6.797444141494801D-03, &
 9.930202681222473D-01,  3.214092657950156D-01,  4.905950396961080D-03, &
 9.937038655576630D-01,  9.931050540649843D-01,  4.830386117047890D-04, &
 9.943677037885296D-01, -9.710410041880194D-01,  1.118097006661641D-03, &
 9.943750550352027D-01,  3.487179202856331D-02,  4.548201806973092D-03, &
 9.949775104476455D-01,  7.198973208744759D-01,  2.841977406946536D-03, &
 9.952722138287154D-01, -2.785041956973013D-01,  4.045664611880734D-03, &
 9.954067560360648D-01,  9.074145716693054D-01,  1.810898452206362D-03, &
 9.959258876623405D-01, -8.226232166208993D-01,  1.978505799274471D-03, &
 9.963054076831271D-01, -5.895227652492729D-01,  3.040448117975760D-03 /)

  return
end
subroutine smr35s ( xyw )

!*****************************************************************************80
!
!! SMR35S returns the rotationally invariant SMR rule of degree 35.
!
!  Discussion:
!
!    DEGREE: 35
!    ROTATIONALLY INVARIANT: (X,  Y),  (-Y,  X),  (-X, -Y),  (Y, -X).
!    POINTS CARDINALITY: 220
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 6.54962D-03, &
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*220), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*220)

  xyw = (/ &
 4.889904361809121D-03,  1.619503174532069D-01,  5.226179892467336D-02, &
 1.430680275835659D-02,  4.693240762340044D-01,  4.679625079080703D-02, &
 1.814469250768224D-01,  6.009339848917693D-01,  4.158929555209646D-02, &
 3.513535787046233D-02,  9.092730028762068D-01,  2.186232237110550D-02, &
 7.640565697368758D-02,  9.941574902382558D-01,  4.878857836280798D-03, &
 1.713276929018882D-01,  3.150081208611397D-01,  4.954187274939539D-02, &
 1.878090789211163D-01,  8.240874417949644D-01,  2.885775015170009D-02, &
 3.641585032828187D-01,  8.926397561302795D-01,  1.380108158872173D-02, &
 3.369795025432279D-01,  8.976793330525874D-01,  7.578776426504399D-03, &
 2.085987555621641D-01,  9.589188503432696D-01,  1.412626006558690D-02, &
 3.243221451814440D-01,  1.522018736597065D-01,  4.954596092265034D-02, &
 3.340889484224165D-01,  4.585908563274512D-01,  4.430990763422363D-02, &
 3.416707320282502D-01,  7.180689168234468D-01,  3.441280383837739D-02, &
 5.024923591323561D-01,  8.083923344052878D-01,  2.637941189985826D-02, &
 4.874255868918486D-01,  9.513870810486795D-01,  1.250237621770788D-02, &
 3.540377809173803D-01,  9.907757451385623D-01,  5.795738840614077D-03, &
 6.111391703621065D-01,  1.419989823593704D-01,  4.138723814719325D-02, &
 4.786194165434669D-01,  3.040699140137090D-01,  4.424656646443821D-02, &
 4.861267145306208D-01,  5.913669578961687D-01,  3.721264812187189D-02, &
 6.345277961643816D-01,  6.987872435915059D-01,  2.910424842344178D-02, &
 6.280256760699003D-01,  8.900123914565822D-01,  1.728479546144200D-02, &
 5.638455934275640D-01,  9.906924665049914D-01,  3.999894615639466D-03, &
 7.357593544096634D-01,  2.940516185138239D-01,  3.430970133414903D-02, &
 6.187418092262584D-01,  4.486490710363784D-01,  3.718438978370203D-02, &
 7.505794530276153D-01,  5.696684149936826D-01,  2.884692065902148D-02, &
 7.475454182228141D-01,  8.033938822693132D-01,  2.018681888060652D-02, &
 6.695740390881190D-01,  9.620089635211753D-01,  5.992235715031513D-03, &
 7.137131446338533D-01,  9.946730046954464D-01,  2.252933356555567D-03, &
 7.266647735941557D-01, -2.452226684020481D-02,  3.613466911375480D-02, &
 8.470677884177439D-01,  4.244997249111068D-01,  2.562278510791793D-02, &
 8.461060260934473D-01,  6.944065541165793D-01,  2.014809941680893D-02, &
 7.673369976264737D-01,  9.139571921846420D-01,  5.720892850954219D-03, &
 7.837945110129694D-01,  9.598803080155067D-01,  5.594606457330472D-03, &
 8.527052966458518D-01,  9.899482390180141D-01,  3.064017911530195D-03, &
 8.330453451104365D-01,  1.306648127961336D-01,  2.910519731720890D-02, &
 9.208363926514060D-01,  5.648082314710416D-01,  1.681694481057345D-02, &
 8.555714597948697D-01,  8.421130303734168D-01,  3.389803494740707D-03, &
 8.569746510423235D-01,  8.904703192599482D-01,  8.892049582448583D-03, &
 9.163957789950904D-01,  9.512153808029943D-01,  5.736088538001383D-03, &
 9.468183474113080D-01,  9.935269656304787D-01,  1.198934044159158D-03, &
 9.709743906771017D-01,  1.015883859290755D-01,  1.259776829311839D-02, &
 9.211304080943010D-01,  2.672344770872243D-01,  2.012412691259350D-02, &
 9.720064559847991D-01,  4.216836904760396D-01,  1.141976686833465D-02, &
 9.932227888701425D-01,  6.482010598302427D-01, -1.475608411232590D-03, &
 9.826552234357039D-01,  6.932083351123020D-01,  4.286571189420782D-03, &
 9.238348699268808D-01,  7.973265219048701D-01,  1.108551064645477D-02, &
 9.785171113227352D-01,  9.731930158842385D-01,  1.481797407435137D-03, &
 9.963425748043122D-01,  2.646515091977871D-01,  3.893391747905868D-03, &
 9.988925112672711D-01,  4.106568212342961D-01, -1.617960722779276D-04, &
 9.959215572099368D-01,  5.751170429423320D-01,  3.902216245624410D-03, &
 9.640572980293431D-01,  6.867546611123180D-01,  5.691309854696837D-03, &
 9.945462995891214D-01,  8.085573402233180D-01,  2.563895647702530D-03, &
 9.670114428073955D-01,  8.888800101355042D-01,  5.609754500116319D-03, &
 9.958210056699377D-01,  9.383693663697456D-01,  1.047624717542818D-03, &
 9.943379392579890D-01,  9.949415630191232D-01,  2.607250337397194D-04, &
 -1.619503174532069D-01,  4.889904361809121D-03,  5.226179892467336D-02, &
 -4.693240762340044D-01,  1.430680275835659D-02,  4.679625079080703D-02, &
 -6.009339848917693D-01,  1.814469250768224D-01,  4.158929555209646D-02, &
 -9.092730028762068D-01,  3.513535787046233D-02,  2.186232237110550D-02, &
 -9.941574902382558D-01,  7.640565697368758D-02,  4.878857836280798D-03, &
 -3.150081208611397D-01,  1.713276929018882D-01,  4.954187274939539D-02, &
 -8.240874417949644D-01,  1.878090789211163D-01,  2.885775015170009D-02, &
 -8.926397561302795D-01,  3.641585032828187D-01,  1.380108158872173D-02, &
 -8.976793330525874D-01,  3.369795025432279D-01,  7.578776426504399D-03, &
 -9.589188503432696D-01,  2.085987555621641D-01,  1.412626006558690D-02, &
 -1.522018736597065D-01,  3.243221451814440D-01,  4.954596092265034D-02, &
 -4.585908563274512D-01,  3.340889484224165D-01,  4.430990763422363D-02, &
 -7.180689168234468D-01,  3.416707320282502D-01,  3.441280383837739D-02, &
 -8.083923344052878D-01,  5.024923591323561D-01,  2.637941189985826D-02, &
 -9.513870810486795D-01,  4.874255868918486D-01,  1.250237621770788D-02, &
 -9.907757451385623D-01,  3.540377809173803D-01,  5.795738840614077D-03, &
 -1.419989823593704D-01,  6.111391703621065D-01,  4.138723814719325D-02, &
 -3.040699140137090D-01,  4.786194165434669D-01,  4.424656646443821D-02, &
 -5.913669578961687D-01,  4.861267145306208D-01,  3.721264812187189D-02, &
 -6.987872435915059D-01,  6.345277961643816D-01,  2.910424842344178D-02, &
 -8.900123914565822D-01,  6.280256760699003D-01,  1.728479546144200D-02, &
 -9.906924665049914D-01,  5.638455934275640D-01,  3.999894615639466D-03, &
 -2.940516185138239D-01,  7.357593544096634D-01,  3.430970133414903D-02, &
 -4.486490710363784D-01,  6.187418092262584D-01,  3.718438978370203D-02, &
 -5.696684149936826D-01,  7.505794530276153D-01,  2.884692065902148D-02, &
 -8.033938822693132D-01,  7.475454182228141D-01,  2.018681888060652D-02, &
 -9.620089635211753D-01,  6.695740390881190D-01,  5.992235715031513D-03, &
 -9.946730046954464D-01,  7.137131446338533D-01,  2.252933356555567D-03, &
 2.452226684020481D-02,  7.266647735941557D-01,  3.613466911375480D-02, &
 -4.244997249111068D-01,  8.470677884177439D-01,  2.562278510791793D-02, &
 -6.944065541165793D-01,  8.461060260934473D-01,  2.014809941680893D-02, &
 -9.139571921846420D-01,  7.673369976264737D-01,  5.720892850954219D-03, &
 -9.598803080155067D-01,  7.837945110129694D-01,  5.594606457330472D-03, &
 -9.899482390180141D-01,  8.527052966458518D-01,  3.064017911530195D-03, &
 -1.306648127961336D-01,  8.330453451104365D-01,  2.910519731720890D-02, &
 -5.648082314710416D-01,  9.208363926514060D-01,  1.681694481057345D-02, &
 -8.421130303734168D-01,  8.555714597948697D-01,  3.389803494740707D-03, &
 -8.904703192599482D-01,  8.569746510423235D-01,  8.892049582448583D-03, &
 -9.512153808029943D-01,  9.163957789950904D-01,  5.736088538001383D-03, &
 -9.935269656304787D-01,  9.468183474113080D-01,  1.198934044159158D-03, &
 -1.015883859290755D-01,  9.709743906771017D-01,  1.259776829311839D-02, &
 -2.672344770872243D-01,  9.211304080943010D-01,  2.012412691259350D-02, &
 -4.216836904760396D-01,  9.720064559847991D-01,  1.141976686833465D-02, &
 -6.482010598302427D-01,  9.932227888701425D-01, -1.475608411232590D-03, &
 -6.932083351123020D-01,  9.826552234357039D-01,  4.286571189420782D-03, &
 -7.973265219048701D-01,  9.238348699268808D-01,  1.108551064645477D-02, &
 -9.731930158842385D-01,  9.785171113227352D-01,  1.481797407435137D-03, &
 -2.646515091977871D-01,  9.963425748043122D-01,  3.893391747905868D-03, &
 -4.106568212342961D-01,  9.988925112672711D-01, -1.617960722779276D-04, &
 -5.751170429423320D-01,  9.959215572099368D-01,  3.902216245624410D-03, &
 -6.867546611123180D-01,  9.640572980293431D-01,  5.691309854696837D-03, &
 -8.085573402233180D-01,  9.945462995891214D-01,  2.563895647702530D-03, &
 -8.888800101355042D-01,  9.670114428073955D-01,  5.609754500116319D-03, &
 -9.383693663697456D-01,  9.958210056699377D-01,  1.047624717542818D-03, &
 -9.949415630191232D-01,  9.943379392579890D-01,  2.607250337397194D-04, &
 -4.889904361809121D-03, -1.619503174532069D-01,  5.226179892467336D-02, &
 -1.430680275835659D-02, -4.693240762340044D-01,  4.679625079080703D-02, &
 -1.814469250768224D-01, -6.009339848917693D-01,  4.158929555209646D-02, &
 -3.513535787046233D-02, -9.092730028762068D-01,  2.186232237110550D-02, &
 -7.640565697368758D-02, -9.941574902382558D-01,  4.878857836280798D-03, &
 -1.713276929018882D-01, -3.150081208611397D-01,  4.954187274939539D-02, &
 -1.878090789211163D-01, -8.240874417949644D-01,  2.885775015170009D-02, &
 -3.641585032828187D-01, -8.926397561302795D-01,  1.380108158872173D-02, &
 -3.369795025432279D-01, -8.976793330525874D-01,  7.578776426504399D-03, &
 -2.085987555621641D-01, -9.589188503432696D-01,  1.412626006558690D-02, &
 -3.243221451814440D-01, -1.522018736597065D-01,  4.954596092265034D-02, &
 -3.340889484224165D-01, -4.585908563274512D-01,  4.430990763422363D-02, &
 -3.416707320282502D-01, -7.180689168234468D-01,  3.441280383837739D-02, &
 -5.024923591323561D-01, -8.083923344052878D-01,  2.637941189985826D-02, &
 -4.874255868918486D-01, -9.513870810486795D-01,  1.250237621770788D-02, &
 -3.540377809173803D-01, -9.907757451385623D-01,  5.795738840614077D-03, &
 -6.111391703621065D-01, -1.419989823593704D-01,  4.138723814719325D-02, &
 -4.786194165434669D-01, -3.040699140137090D-01,  4.424656646443821D-02, &
 -4.861267145306208D-01, -5.913669578961687D-01,  3.721264812187189D-02, &
 -6.345277961643816D-01, -6.987872435915059D-01,  2.910424842344178D-02, &
 -6.280256760699003D-01, -8.900123914565822D-01,  1.728479546144200D-02, &
 -5.638455934275640D-01, -9.906924665049914D-01,  3.999894615639466D-03, &
 -7.357593544096634D-01, -2.940516185138239D-01,  3.430970133414903D-02, &
 -6.187418092262584D-01, -4.486490710363784D-01,  3.718438978370203D-02, &
 -7.505794530276153D-01, -5.696684149936826D-01,  2.884692065902148D-02, &
 -7.475454182228141D-01, -8.033938822693132D-01,  2.018681888060652D-02, &
 -6.695740390881190D-01, -9.620089635211753D-01,  5.992235715031513D-03, &
 -7.137131446338533D-01, -9.946730046954464D-01,  2.252933356555567D-03, &
 -7.266647735941557D-01,  2.452226684020481D-02,  3.613466911375480D-02, &
 -8.470677884177439D-01, -4.244997249111068D-01,  2.562278510791793D-02, &
 -8.461060260934473D-01, -6.944065541165793D-01,  2.014809941680893D-02, &
 -7.673369976264737D-01, -9.139571921846420D-01,  5.720892850954219D-03, &
 -7.837945110129694D-01, -9.598803080155067D-01,  5.594606457330472D-03, &
 -8.527052966458518D-01, -9.899482390180141D-01,  3.064017911530195D-03, &
 -8.330453451104365D-01, -1.306648127961336D-01,  2.910519731720890D-02, &
 -9.208363926514060D-01, -5.648082314710416D-01,  1.681694481057345D-02, &
 -8.555714597948697D-01, -8.421130303734168D-01,  3.389803494740707D-03, &
 -8.569746510423235D-01, -8.904703192599482D-01,  8.892049582448583D-03, &
 -9.163957789950904D-01, -9.512153808029943D-01,  5.736088538001383D-03, &
 -9.468183474113080D-01, -9.935269656304787D-01,  1.198934044159158D-03, &
 -9.709743906771017D-01, -1.015883859290755D-01,  1.259776829311839D-02, &
 -9.211304080943010D-01, -2.672344770872243D-01,  2.012412691259350D-02, &
 -9.720064559847991D-01, -4.216836904760396D-01,  1.141976686833465D-02, &
 -9.932227888701425D-01, -6.482010598302427D-01, -1.475608411232590D-03, &
 -9.826552234357039D-01, -6.932083351123020D-01,  4.286571189420782D-03, &
 -9.238348699268808D-01, -7.973265219048701D-01,  1.108551064645477D-02, &
 -9.785171113227352D-01, -9.731930158842385D-01,  1.481797407435137D-03, &
 -9.963425748043122D-01, -2.646515091977871D-01,  3.893391747905868D-03, &
 -9.988925112672711D-01, -4.106568212342961D-01, -1.617960722779276D-04, &
 -9.959215572099368D-01, -5.751170429423320D-01,  3.902216245624410D-03, &
 -9.640572980293431D-01, -6.867546611123180D-01,  5.691309854696837D-03, &
 -9.945462995891214D-01, -8.085573402233180D-01,  2.563895647702530D-03, &
 -9.670114428073955D-01, -8.888800101355042D-01,  5.609754500116319D-03, &
 -9.958210056699377D-01, -9.383693663697456D-01,  1.047624717542818D-03, &
 -9.943379392579890D-01, -9.949415630191232D-01,  2.607250337397194D-04, &
 1.619503174532069D-01, -4.889904361809121D-03,  5.226179892467336D-02, &
 4.693240762340044D-01, -1.430680275835659D-02,  4.679625079080703D-02, &
 6.009339848917693D-01, -1.814469250768224D-01,  4.158929555209646D-02, &
 9.092730028762068D-01, -3.513535787046233D-02,  2.186232237110550D-02, &
 9.941574902382558D-01, -7.640565697368758D-02,  4.878857836280798D-03, &
 3.150081208611397D-01, -1.713276929018882D-01,  4.954187274939539D-02, &
 8.240874417949644D-01, -1.878090789211163D-01,  2.885775015170009D-02, &
 8.926397561302795D-01, -3.641585032828187D-01,  1.380108158872173D-02, &
 8.976793330525874D-01, -3.369795025432279D-01,  7.578776426504399D-03, &
 9.589188503432696D-01, -2.085987555621641D-01,  1.412626006558690D-02, &
 1.522018736597065D-01, -3.243221451814440D-01,  4.954596092265034D-02, &
 4.585908563274512D-01, -3.340889484224165D-01,  4.430990763422363D-02, &
 7.180689168234468D-01, -3.416707320282502D-01,  3.441280383837739D-02, &
 8.083923344052878D-01, -5.024923591323561D-01,  2.637941189985826D-02, &
 9.513870810486795D-01, -4.874255868918486D-01,  1.250237621770788D-02, &
 9.907757451385623D-01, -3.540377809173803D-01,  5.795738840614077D-03, &
 1.419989823593704D-01, -6.111391703621065D-01,  4.138723814719325D-02, &
 3.040699140137090D-01, -4.786194165434669D-01,  4.424656646443821D-02, &
 5.913669578961687D-01, -4.861267145306208D-01,  3.721264812187189D-02, &
 6.987872435915059D-01, -6.345277961643816D-01,  2.910424842344178D-02, &
 8.900123914565822D-01, -6.280256760699003D-01,  1.728479546144200D-02, &
 9.906924665049914D-01, -5.638455934275640D-01,  3.999894615639466D-03, &
 2.940516185138239D-01, -7.357593544096634D-01,  3.430970133414903D-02, &
 4.486490710363784D-01, -6.187418092262584D-01,  3.718438978370203D-02, &
 5.696684149936826D-01, -7.505794530276153D-01,  2.884692065902148D-02, &
 8.033938822693132D-01, -7.475454182228141D-01,  2.018681888060652D-02, &
 9.620089635211753D-01, -6.695740390881190D-01,  5.992235715031513D-03, &
 9.946730046954464D-01, -7.137131446338533D-01,  2.252933356555567D-03, &
 -2.452226684020481D-02, -7.266647735941557D-01,  3.613466911375480D-02, &
 4.244997249111068D-01, -8.470677884177439D-01,  2.562278510791793D-02, &
 6.944065541165793D-01, -8.461060260934473D-01,  2.014809941680893D-02, &
 9.139571921846420D-01, -7.673369976264737D-01,  5.720892850954219D-03, &
 9.598803080155067D-01, -7.837945110129694D-01,  5.594606457330472D-03, &
 9.899482390180141D-01, -8.527052966458518D-01,  3.064017911530195D-03, &
 1.306648127961336D-01, -8.330453451104365D-01,  2.910519731720890D-02, &
 5.648082314710416D-01, -9.208363926514060D-01,  1.681694481057345D-02, &
 8.421130303734168D-01, -8.555714597948697D-01,  3.389803494740707D-03, &
 8.904703192599482D-01, -8.569746510423235D-01,  8.892049582448583D-03, &
 9.512153808029943D-01, -9.163957789950904D-01,  5.736088538001383D-03, &
 9.935269656304787D-01, -9.468183474113080D-01,  1.198934044159158D-03, &
 1.015883859290755D-01, -9.709743906771017D-01,  1.259776829311839D-02, &
 2.672344770872243D-01, -9.211304080943010D-01,  2.012412691259350D-02, &
 4.216836904760396D-01, -9.720064559847991D-01,  1.141976686833465D-02, &
 6.482010598302427D-01, -9.932227888701425D-01, -1.475608411232590D-03, &
 6.932083351123020D-01, -9.826552234357039D-01,  4.286571189420782D-03, &
 7.973265219048701D-01, -9.238348699268808D-01,  1.108551064645477D-02, &
 9.731930158842385D-01, -9.785171113227352D-01,  1.481797407435137D-03, &
 2.646515091977871D-01, -9.963425748043122D-01,  3.893391747905868D-03, &
 4.106568212342961D-01, -9.988925112672711D-01, -1.617960722779276D-04, &
 5.751170429423320D-01, -9.959215572099368D-01,  3.902216245624410D-03, &
 6.867546611123180D-01, -9.640572980293431D-01,  5.691309854696837D-03, &
 8.085573402233180D-01, -9.945462995891214D-01,  2.563895647702530D-03, &
 8.888800101355042D-01, -9.670114428073955D-01,  5.609754500116319D-03, &
 9.383693663697456D-01, -9.958210056699377D-01,  1.047624717542818D-03, &
 9.949415630191232D-01, -9.943379392579890D-01,  2.607250337397194D-04 /)

  return
end
subroutine smr36 ( xyw )

!*****************************************************************************80
!
!! SMR36 returns the SMR rule of degree 36.
!
!  Discussion:
!
!    DEGREE: 36
!    POINTS CARDINALITY: 238
!    NORM INF MOMS. RESIDUAL: 4.27609e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*238), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*238)

  xyw = (/ &
 -9.978817227614055D-01, -8.890076517204608D-04,  2.330741632674278D-03, &
 -9.973711646404451D-01, -9.532092615783677D-01,  9.627969193226537D-04, &
 -9.961692635944124D-01,  9.688495936611794D-01,  8.898973486835064D-04, &
 -9.959497922009879D-01, -3.098803144458146D-01,  2.832831652522147D-03, &
 -9.959465092993447D-01, -5.592627350774092D-01,  2.519247595249725D-03, &
 -9.954980310007229D-01,  6.046856101951658D-01,  2.958064214592169D-03, &
 -9.946662450102303D-01,  3.416260049342602D-01,  3.892327512506448D-03, &
 -9.934973736752050D-01, -7.316617433785163D-01,  2.288706827417947D-03, &
 -9.917053480435074D-01,  8.702611598150070D-01,  1.958941400105963D-03, &
 -9.916694420714898D-01,  7.809558409845563D-01,  2.395428553360631D-03, &
 -9.895910809889403D-01, -8.396046316830745D-01,  2.802701148321813D-03, &
 -9.831331889300642D-01,  1.393223594054985D-01,  6.694472389602429D-03, &
 -9.807631633241672D-01, -1.600365161997248D-01,  7.382399101251368D-03, &
 -9.798886059262791D-01, -9.915282494038506D-01,  1.128746425663043D-03, &
 -9.750680034434991D-01, -4.311357357378125D-01,  7.832140397353063D-03, &
 -9.728412562557132D-01,  9.944489940720668D-01,  1.002140135620488D-03, &
 -9.710537275206133D-01,  4.830250325748792D-01,  9.568264880729656D-03, &
 -9.689535066576080D-01, -9.071389361410935D-01,  4.309260818499709D-03, &
 -9.687604103109784D-01, -6.302344727365032D-01,  6.664551467651576D-03, &
 -9.687211535263930D-01,  9.237100995654350D-01,  4.080017523260788D-03, &
 -9.668485420668568D-01,  7.049532664378062D-01,  7.415218794906055D-03, &
 -9.535784368796688D-01,  2.490218550690452D-01,  1.037891180826214D-02, &
 -9.512663640224540D-01, -7.491171041425378D-01,  7.422605405628350D-03, &
 -9.493818109732231D-01, -2.852036250206639D-02,  1.195246886959401D-02, &
 -9.367870389253897D-01,  8.258762212688808D-01,  8.844488878029041D-03, &
 -9.363513457140649D-01, -2.859985380532227D-01,  1.380555928314730D-02, &
 -9.360696971408200D-01, -9.644084451245751D-01,  4.146894859108681D-03, &
 -9.239202364264265D-01,  9.695178305424945D-01,  4.259509443297511D-03, &
 -9.225706959239526D-01, -5.058509463174830D-01,  1.253905649616530D-02, &
 -9.179832388286352D-01,  6.014333969026019D-01,  1.426678903924167D-02, &
 -9.149034273351938D-01, -8.372226403884956D-01,  9.334389760441908D-03, &
 -9.138551873238143D-01,  3.754959341345724D-01,  1.452036035160031D-02, &
 -8.996791165793870D-01,  9.328644693068573D-02,  1.734677366105503D-02, &
 -8.885447268542435D-01, -6.386179822823047D-01,  1.367023050135804D-02, &
 -8.871714117838472D-01, -9.948601599114012D-01,  1.899222828399880D-03, &
 -8.816880330919030D-01, -1.586021131310660D-01,  1.669820902512087D-02, &
 -8.812403173103464D-01,  8.951164258907871D-01,  8.364155027998615D-03, &
 -8.656692388301289D-01,  7.350500859830660D-01,  1.548010198333609D-02, &
 -8.643529629348047D-01, -9.173100142874313D-01,  9.120730562086893D-03, &
 -8.641286582087778D-01,  9.950657916116978D-01,  1.918170304192286D-03, &
 -8.522612942302550D-01, -3.788264332914240D-01,  2.087884271099431D-02, &
 -8.422113258119911D-01,  2.446382041130486D-01,  2.002609499764870D-02, &
 -8.416694599504575D-01,  4.814984345703843D-01,  1.925007441204762D-02, &
 -8.360902062521303D-01, -7.477119396150796D-01,  1.554744797988430D-02, &
 -8.203145632717700D-01, -5.613317466249494D-02,  1.901567227303284D-02, &
 -8.199490742198897D-01,  9.428287492604916D-01,  7.056116422992586D-03, &
 -7.984923809331644D-01, -9.722593485667060D-01,  6.504144377884679D-03, &
 -7.937886622074718D-01, -5.311719776256463D-01,  2.203842796899376D-02, &
 -7.898800883541095D-01,  8.213759805863565D-01,  1.360908524722615D-02, &
 -7.857456450301465D-01,  6.109453946109499D-01,  1.776520678097427D-02, &
 -7.707528347691809D-01,  1.109546864852665D-01,  2.039092251468907D-02, &
 -7.702900422534331D-01, -8.487764338033230D-01,  1.532480873697326D-02, &
 -7.576331295741205D-01, -2.435713966271017D-01,  2.854257229107140D-02, &
 -7.569151133259240D-01,  9.814581630123478D-01,  4.921916895711927D-03, &
 -7.438369227242233D-01,  3.482222843377805D-01,  2.451979727480189D-02, &
 -7.241630175636773D-01, -6.592065655597069D-01,  2.199849707676197D-02, &
 -7.176692539981274D-01,  8.801116546686418D-01,  1.112305619521462D-02, &
 -7.124686946589255D-01,  6.945133493012733D-01,  1.771156252011625D-02, &
 -7.069737778502420D-01, -9.962628623410572D-01,  2.374966048245442D-03, &
 -6.963043004286823D-01, -8.135105429081526D-03,  2.318695224198078D-02, &
 -6.921249477814184D-01,  4.700703121100537D-01,  1.655699575608719D-02, &
 -6.892915677631921D-01, -9.267197507187467D-01,  1.257447358342760D-02, &
 -6.785922159896439D-01, -4.067666128583923D-01,  2.999698423607718D-02, &
 -6.552506919956539D-01,  9.423928975555224D-01,  9.667568404627368D-03, &
 -6.449800715385902D-01, -7.742900371415136D-01,  2.163194611984287D-02, &
 -6.384020750298662D-01,  2.053842735458858D-01,  3.298168414587938D-02, &
 -6.376845625430727D-01,  9.961884415103500D-01,  2.510551666922923D-03, &
 -6.198393609997173D-01,  7.788946966190957D-01,  2.119226728365691D-02, &
 -6.187213657289741D-01, -1.433838420063922D-01,  3.147480251378770D-02, &
 -6.160766221019519D-01,  5.525549239562721D-01,  2.501384151648360D-02, &
 -5.942484471471827D-01, -5.523398131727161D-01,  2.880932433502099D-02, &
 -5.886645820614776D-01, -9.742244390227165D-01,  7.791673063038694D-03, &
 -5.491885966414285D-01, -8.701566014002242D-01,  1.925267375227190D-02, &
 -5.454451806767899D-01,  8.873611141110606D-01,  1.421144648662051D-02, &
 -5.363668460871786D-01,  3.689903490268424D-01,  3.551950638985276D-02, &
 -5.288973102226180D-01, -3.000753546210893D-01,  3.577864794644277D-02, &
 -5.228971037176965D-01,  5.511893622125074D-02,  3.559238125168576D-02, &
 -5.149484349272324D-01,  9.736990573228385D-01,  8.663852126555528D-03, &
 -5.034028322638731D-01, -6.810046891007370D-01,  2.770229125683340D-02, &
 -5.018240598484098D-01,  6.610827773551222D-01,  2.955164458688282D-02, &
 -4.836723369928086D-01, -9.951317872137048D-01,  2.432216069339591D-03, &
 -4.472178273697551D-01,  8.261234039804835D-01,  1.723994440057944D-02, &
 -4.351671626526074D-01, -9.405635523740720D-01,  1.391944650569191D-02, &
 -4.325000537322283D-01, -4.571254404046099D-01,  3.550196939096451D-02, &
 -4.221899486344116D-01,  2.072870640590052D-01,  2.856147506087960D-02, &
 -4.184381906407810D-01, -9.486272782368495D-02,  3.647913743103923D-02, &
 -4.051084329362841D-01,  4.968069795284735D-01,  3.427981654195449D-02, &
 -3.996415711088327D-01, -7.922180602255362D-01,  2.534465150429595D-02, &
 -3.802275025133069D-01,  9.957850696595502D-01,  3.171371339804449D-03, &
 -3.746724165491376D-01,  9.322066554008961D-01,  1.474166848943957D-02, &
 -3.507030139156035D-01,  7.411784897062579D-01,  2.164321207016425D-02, &
 -3.396094592441956D-01,  2.851648864371023D-01,  2.378767233475549D-02, &
 -3.373067518851020D-01, -9.891744514862336D-01,  4.703010171973971D-03, &
 -3.310224303024400D-01, -2.403265390297470D-01,  3.423310351714857D-02, &
 -3.277966873918430D-01, -5.977752159941997D-01,  3.339651184485331D-02, &
 -2.908043265646401D-01,  5.910702778731858D-01,  2.096575868118241D-02, &
 -2.890360016090808D-01, -8.852915279552505D-01,  1.911208855887150D-02, &
 -2.761160035464659D-01,  7.095757720766041D-02,  4.278824944215505D-02, &
 -2.702812218851570D-01,  8.808141244965264D-01,  1.053036550496354D-02, &
 -2.649298324354653D-01,  7.864553422973282D-01,  8.647185905965778D-03, &
 -2.401609050863505D-01,  9.806596979744967D-01,  5.868860421996299D-03, &
 -2.377667595528341D-01, -3.801643379704139D-01,  3.628804159235034D-02, &
 -2.206216268941887D-01, -7.204121124667704D-01,  2.854623272707025D-02, &
 -2.201538989416436D-01,  3.913115801581338D-01,  3.894518817033470D-02, &
 -2.193792333441053D-01, -9.646669064229157D-01,  1.014429441651051D-02, &
 -1.934707182262981D-01,  6.432496392898787D-01,  2.233474208920316D-02, &
 -1.772628853095497D-01,  9.609427885428339D-01,  7.154337173291553D-03, &
 -1.729141076933932D-01,  8.539977338065532D-01,  1.673175151833196D-02, &
 -1.718150507993583D-01, -9.405721790034696D-02,  4.086787977428533D-02, &
 -1.328625066941062D-01, -8.318318453990768D-01,  1.982971921305763D-02, &
 -1.307387810744456D-01, -5.185641556580906D-01,  3.616547559993144D-02, &
 -1.100824617462925D-01,  2.107790367554701D-01,  4.576013746563733D-02, &
 -9.984259485045630D-02, -9.955064961031446D-01,  3.717433056480130D-03, &
 -9.328608102993199D-02,  7.332290790832092D-01,  2.071715580387419D-02, &
 -6.793914116753401D-02, -2.506459841110294D-01,  4.089224120208960D-02, &
 -6.741335673585816D-02, -9.267152274199159D-01,  1.602534157276938D-02, &
 -6.637788288034263D-02,  5.124518645869145D-01,  3.844362321627411D-02, &
 -5.192619879677355D-02,  9.952626224499167D-01,  3.973984013870450D-03, &
 -4.256393926237442D-02, -6.587648588333753D-01,  2.554184333603511D-02, &
 -3.928908743269727D-02,  9.249275328206857D-01,  1.717155965123946D-02, &
 -8.616254706753439D-03,  7.863971003772713D-01,  1.617333783082740D-02, &
 3.445686005032637D-03,  3.438556195988679D-02,  4.484896925422164D-02, &
 2.162783184909196D-02, -7.869560221084054D-01,  2.154792738605269D-02, &
 4.685825299635766D-02, -4.020978227292492D-01,  4.049427770416184D-02, &
 5.479814290878701D-02,  3.514969350769057D-01,  4.422512667927580D-02, &
 6.774629290604679D-02, -9.760182750123766D-01,  9.963602473671930D-03, &
 7.328667269147976D-02, -5.930557986747867D-01,  1.877217900127421D-02, &
 8.018258564306395D-02,  6.365101735574987D-01,  3.483121330550053D-02, &
 1.073043308069154D-01,  8.535066059079015D-01,  2.227117133691220D-02, &
 1.113229411695483D-01, -8.835075472889613D-01,  1.949085547150652D-02, &
 1.114570513525386D-01,  9.729484455626918D-01,  1.101932189177536D-02, &
 1.153437593007439D-01, -1.317768141870329D-01,  4.247315097231750D-02, &
 1.690835216382367D-01,  1.764988836591127D-01,  4.458603343706025D-02, &
 1.753955610939935D-01, -7.156031949485488D-01,  2.527623764375623D-02, &
 1.976972674748326D-01, -5.279953242568892D-01,  3.026255490382024D-02, &
 2.116967467449395D-01,  4.926985242614755D-01,  4.098066738615446D-02, &
 2.235223377254471D-01,  7.379223803362939D-01,  2.795309201248948D-02, &
 2.258353983807109D-01, -2.868829397355061D-01,  3.947306768337931D-02, &
 2.264823571880064D-01, -9.969471381094707D-01,  3.073985454466239D-03, &
 2.490851417470266D-01, -9.447796629842063D-01,  1.396431826192642D-02, &
 2.508519660769009D-01,  9.195561800757367D-01,  1.768832443081297D-02, &
 2.680482539332619D-01, -8.226935415045739D-01,  1.981797389395326D-02, &
 2.680721351751811D-01,  9.958511445825230D-01,  3.640429024869928D-03, &
 2.821534236058784D-01,  7.446925967702267D-03,  4.211100109823734D-02, &
 3.247146118763189D-01,  3.224964883167490D-01,  4.234100652772199D-02, &
 3.343254479054538D-01, -6.422924772737209D-01,  2.425454643455124D-02, &
 3.453396235355017D-01, -4.291253398815807D-01,  3.317163396355886D-02, &
 3.462605320455555D-01,  8.161845863833764D-01,  1.987362322109004D-02, &
 3.651493677371224D-01,  6.182965874272552D-01,  3.559824694190696D-02, &
 3.854996236485986D-01, -1.532257150482036D-01,  3.742508791404799D-02, &
 3.870016759773888D-01, -7.585686209099854D-01,  1.501299544256757D-02, &
 3.938946116638710D-01,  9.662848771953462D-01,  1.068691773232336D-02, &
 3.982573856142398D-01, -8.950554117718855D-01,  1.602448842253433D-02, &
 4.016801936992866D-01, -9.813691194805932D-01,  7.892152840793696D-03, &
 4.371070566774968D-01,  1.511026982040890D-01,  4.102768020962930D-02, &
 4.544035146465257D-01,  8.763928228014183D-01,  1.634600741893583D-02, &
 4.558293123288908D-01, -5.713496230258187D-01,  2.252028952268153D-02, &
 4.732557000280899D-01,  4.583389381205352D-01,  3.776384470597906D-02, &
 4.810692207812149D-01, -3.081467734409822D-01,  3.206248778671018D-02, &
 5.077103930139962D-01, -8.274029452105797D-01,  1.494395639519947D-02, &
 5.078271770180696D-01,  7.302517937446340D-01,  2.869995132952615D-02, &
 5.184597430790860D-01,  9.915516893623654D-01,  4.063313365916709D-03, &
 5.243768590626090D-01, -7.095143454551895D-01,  1.946548740642335D-02, &
 5.347672174839160D-01, -2.303639928245786D-02,  3.592243824739078D-02, &
 5.378718338501072D-01, -9.453203497305898D-01,  1.131041403550440D-02, &
 5.604528611741826D-01, -4.738251057279866D-01,  2.716710521567537D-02, &
 5.649480860981207D-01, -9.961787956204670D-01,  2.686662642257578D-03, &
 5.694785456537736D-01,  9.306241376040423D-01,  1.310983188725784D-02, &
 5.797726075345430D-01,  2.904464196731755D-01,  3.707917140022222D-02, &
 6.073441340190595D-01,  5.863537474015226D-01,  3.123083612446972D-02, &
 6.146619349973880D-01, -1.954577444891345D-01,  3.004097012228125D-02, &
 6.310711580799437D-01, -8.865377678376085D-01,  1.239250785539078D-02, &
 6.369188707330101D-01,  8.251358672704174D-01,  2.109369809774988D-02, &
 6.397822146063097D-01,  9.933516960588022D-01,  1.566823050510530D-03, &
 6.447025783419807D-01, -7.748327398433732D-01,  1.353919524034135D-02, &
 6.490923224989641D-01, -6.210654215758872D-01,  2.453036222700825D-02, &
 6.652852081461884D-01,  1.056429932263364D-01,  3.235059149781160D-02, &
 6.769243424161306D-01, -9.791782695964194D-01,  4.843329361124712D-03, &
 6.812487855144383D-01, -3.677376001017615D-01,  2.767580050018398D-02, &
 6.881611881783396D-01,  9.690785564088401D-01,  7.180152922776447D-03, &
 7.029917084563276D-01,  4.285118331295772D-01,  3.086990327791525D-02, &
 7.164764656784520D-01, -9.518583821949328D-01,  5.355105147941908D-03, &
 7.246902454799630D-01,  7.020207625777104D-01,  2.375449102290038D-02, &
 7.325693440295951D-01, -8.399374390925475D-01,  1.036024466955918D-02, &
 7.351112383538153D-01, -7.951756972515223D-02,  2.785001849780098D-02, &
 7.509928361696643D-01,  8.988638838541747D-01,  1.368741903606304D-02, &
 7.607007202364793D-01, -5.206337661298087D-01,  2.328103635760096D-02, &
 7.690593533802963D-01, -7.201514627550166D-01,  1.811779028755979D-02, &
 7.720233247908281D-01,  2.383646904389616D-01,  2.697895164503969D-02, &
 7.861129856968502D-01,  9.953733636825969D-01,  2.204660432176242D-03, &
 7.932635688940682D-01, -2.545931233040153D-01,  2.360509584832022D-02, &
 7.934795953540076D-01, -9.940911141191972D-01,  2.578022439771223D-03, &
 7.986501480724928D-01, -9.141670055638340D-01,  9.844477819414077D-03, &
 8.061029566945606D-01,  5.593366976508258D-01,  2.355691263970365D-02, &
 8.243070351881039D-01,  8.000279479141921D-01,  1.625476526376125D-02, &
 8.349061461503988D-01,  5.242989783303436D-02,  2.396763947561963D-02, &
 8.387086026393442D-01,  9.590800307491609D-01,  6.799333697297724D-03, &
 8.514060544957516D-01, -4.143618409619704D-01,  1.824968840166299D-02, &
 8.564000533604161D-01,  3.680409247826315D-01,  2.048685538595784D-02, &
 8.586490931530540D-01, -8.172679381074797D-01,  1.319146184667337D-02, &
 8.603733614050693D-01, -6.314782677843042D-01,  1.724870287833661D-02, &
 8.708025881828373D-01, -9.671023391671761D-01,  5.636725309105074D-03, &
 8.801258067547251D-01, -1.305377170691088D-01,  1.777128791266185D-02, &
 8.888526668725696D-01,  6.765021487498224D-01,  1.606206650402240D-02, &
 8.933099031235968D-01,  8.952281659692933D-01,  8.296408662073707D-03, &
 9.113602853210563D-01,  9.899169943701300D-01,  2.463722493435422D-03, &
 9.118722066757234D-01,  1.929776411231569D-01,  1.825776248523375D-02, &
 9.163929674501358D-01, -2.990041843102318D-01,  1.314634212775509D-02, &
 9.189017721547910D-01,  4.858317388925585D-01,  1.362028136343246D-02, &
 9.207066423332223D-01, -8.980672622897176D-01,  7.718082091266390D-03, &
 9.272785007117844D-01, -5.207581337916093D-01,  1.312690216075551D-02, &
 9.311020805101690D-01,  8.243210513505537D-01,  6.095543309002014D-03, &
 9.312327541844606D-01, -9.944089524999217D-01,  1.544072841043584D-03, &
 9.326765355471089D-01, -7.345782056816920D-01,  1.147121027748882D-02, &
 9.403087384697171D-01, -8.071436851387262D-03,  1.176918657324237D-02, &
 9.533497236250201D-01,  9.491647170059687D-01,  4.270793656586557D-03, &
 9.581432174025166D-01,  7.516220759263724D-01,  6.745942316173472D-03, &
 9.604046590298700D-01,  5.830153275767322D-01,  7.784720252720092D-03, &
 9.631077811144789D-01, -1.757985976531334D-01,  8.688657559223576D-03, &
 9.646721058936349D-01,  3.325578173839724D-01,  1.132962868101588D-02, &
 9.647811822781394D-01, -9.547975852433266D-01,  3.342959180531801D-03, &
 9.692409843048421D-01, -3.948453480534794D-01,  8.200365271055058D-03, &
 9.748844113653906D-01, -8.353669805015749D-01,  5.733917618965338D-03, &
 9.765605657096736D-01, -6.223778160859140D-01,  7.479750101379069D-03, &
 9.777781151583427D-01,  1.008331484661780D-01,  7.466802821144819D-03, &
 9.823248797734118D-01,  9.908257848386118D-01,  1.055477347697845D-03, &
 9.824013057546825D-01,  8.793077972340478D-01,  3.946153214787464D-03, &
 9.896592863949374D-01,  6.524183287421559D-01,  3.684068604731808D-03, &
 9.901852458780420D-01, -9.879591744269937D-01,  8.501750539953944D-04, &
 9.924040123666048D-01, -2.695088450767503D-01,  3.730991030920448D-03, &
 9.927679196128025D-01,  4.643954909265275D-01,  4.248272970481418D-03, &
 9.938098745051424D-01, -6.272470872855707D-02,  3.793703053258545D-03, &
 9.960268905980724D-01, -9.143875891227382D-01,  1.458149770534853D-03, &
 9.960772480893844D-01,  7.831338729008818D-01,  1.769564456969298D-03, &
 9.962805481813658D-01, -7.386272660484093D-01,  2.258142891171576D-03, &
 9.962980942352860D-01, -4.897161915618530D-01,  2.721379560273475D-03, &
 9.963851076303689D-01,  2.242470825907724D-01,  2.871929785587053D-03, &
 9.983360376701429D-01,  9.526320578956575D-01,  7.769150734629690D-04 /)

  return
end
subroutine smr37 ( xyw )

!*****************************************************************************80
!
!! SMR37 returns the SMR rule of degree 37.
!
!  Discussion:
!
!    DEGREE: 37
!    ROTATIONALLY INVARIANT: (X,  Y),  (-Y,  X),  (-X, -Y),  (Y, -X).
!    POINTS CARDINALITY: 245
!    NORM INF MOMS. RESIDUAL: 1.97628e-15
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*245), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*245)

  xyw = (/ &
 1.688689515698905D-01,  1.899855310442196D-01,  1.879076889689011D-02, &
 1.664922672701527D-01,  3.429140133623845D-01,  3.449917667815708D-02, &
 1.789345703476781D-01,  5.923725055750423D-01,  3.712580251685875D-02, &
 1.912828097143278D-01,  8.047865391631479D-01,  2.804589806906416D-02, &
 1.909000554810340D-01,  9.526563151843329D-01,  1.317147780067464D-02, &
 1.197461382570857D-01,  9.934656721499447D-01,  3.246786042836229D-03, &
 3.142942982925143D-01,  1.085212763112808D-01,  4.073944662145704D-02, &
 3.136430658350363D-01,  3.168853969514266D-01,  1.888769495196758D-02, &
 3.257592735310023D-01,  4.744364447040339D-01,  3.338316795412049D-02, &
 3.370767611845376D-01,  7.018261748212855D-01,  3.160597567460757D-02, &
 3.228638369287264D-01,  8.961218476259737D-01,  1.882298564453669D-02, &
 3.240794429041066D-01,  9.907076643667728D-01,  5.242591968441962D-03, &
 4.573043899331568D-01,  2.595246348757670D-01,  3.729781542768577D-02, &
 4.752591359356870D-01,  4.488205755197494D-01,  1.479677650128667D-02, &
 4.758333073820230D-01,  5.902241348085835D-01,  2.899670157191689D-02, &
 5.652930131354381D-01,  7.267134552411152D-01,  2.191839430308059D-02, &
 4.508159401323132D-01,  8.204509229358563D-01,  2.228800060943608D-02, &
 4.475176031554735D-01,  9.598714005292409D-01,  1.115771006747028D-02, &
 5.961940658067776D-01,  1.285519929807882D-01,  3.745963783702447D-02, &
 5.958894993059283D-01,  4.008434952939153D-01,  3.161819475642853D-02, &
 6.758517622961954D-01,  5.420453939309517D-01,  1.197569541821857D-02, &
 6.440973695595638D-01,  6.074025740384232D-01,  1.687104351509356D-02, &
 6.599539606557937D-01,  8.196857529727558D-01,  1.433025041492978D-02, &
 5.662112657592980D-01,  9.051653639016278D-01,  1.517136608765207D-02, &
 6.604704311527990D-01,  9.545232264955925D-01,  5.954681784138311D-03, &
 5.550021925411663D-01,  9.938020253544084D-01,  3.779613188841330D-03, &
 7.175598471168050D-01,  2.730403569607258D-01,  3.181466382684873D-02, &
 7.689529149485085D-01,  4.849501945095196D-01,  2.205707035359098D-02, &
 7.225244519379806D-01,  7.346670194240615D-01,  8.555695820639366D-03, &
 7.402191126180568D-01,  8.767789551273115D-01,  1.086516778783751D-02, &
 6.901879840655373D-01,  9.774065816278240D-01,  4.413949586651726D-03, &
 8.145402907615753D-01,  1.194770600468978D-01,  2.773238005998524D-02, &
 8.468674880069054D-01,  3.677292203050513D-01,  2.040170735025986D-02, &
 7.709894430969280D-01,  6.883167579089596D-01,  1.537385690938401D-02, &
 8.412324448391584D-01,  8.049116063955287D-01,  1.469009646857076D-02, &
 8.046126375110838D-01,  9.350177341085882D-01,  8.737871041426535D-03, &
 7.820614187450875D-01,  9.953174665105079D-01,  2.315496884250784D-03, &
 9.508079160816079D-01,  1.063127388777120D-01,  1.140349599008745D-02, &
 9.083772470189286D-01,  2.392578185017081D-01,  1.649605664974265D-02, &
 8.623376059969516D-01,  6.074887398627125D-01,  1.799944191342780D-02, &
 9.049650989085555D-01,  8.906584714348453D-01,  8.885404075061408D-03, &
 9.414987804698027D-01,  9.972662607622250D-01,  1.012999506114864D-03, &
 8.784002089990299D-01,  9.767224278002355D-01,  4.609542770434277D-03, &
 9.277718380370786D-01,  4.868377946168942D-01,  1.482235294209374D-02, &
 9.740284280473888D-01,  6.153952571724473D-01,  8.444452079041077D-03, &
 9.261384032176685D-01,  7.279402581589705D-01,  1.230535711494119D-02, &
 9.679546133670914D-01,  8.320886256235162D-01,  6.228411019066719D-03, &
 9.563820929391198D-01,  9.496839487816863D-01,  4.116804695327055D-03, &
 9.926061411961665D-01,  2.123910718029504D-01,  4.298821847813497D-03, &
 9.709143978580982D-01,  3.514215085134095D-01,  9.842825211091850D-03, &
 9.964469722990946D-01,  4.826995164323201D-01,  3.063734063870583D-03, &
 9.948590950034147D-01,  7.363116181982159D-01,  2.686189437945335D-03, &
 9.924033492665334D-01,  8.341694790656329D-01,  4.583425786943879D-04, &
 9.936078762597962D-01,  9.109429166275763D-01,  1.832840176946247D-03, &
 9.897652124914369D-01,  9.843626854080677D-01,  1.073091219432144D-03, &
 3.032916166693916D-02,  1.723425646848686D-01,  3.655713458299797D-02, &
 2.217294601980654D-02,  4.663686154054668D-01,  4.027271183981319D-02, &
 2.814942665710626D-02,  7.102048981913600D-01,  3.373438958414005D-02, &
 4.438627067827642D-02,  8.900063168860698D-01,  2.195827523559744D-02, &
 6.744822333126831D-03,  9.762502292316360D-01,  5.490273279461521D-03, &
 -4.982446329191517D-02,  9.956312481563887D-01,  1.436535699659639D-03, &
 -1.899855310442196D-01,  1.688689515698905D-01,  1.879076889689011D-02, &
 -3.429140133623845D-01,  1.664922672701527D-01,  3.449917667815708D-02, &
 -5.923725055750423D-01,  1.789345703476781D-01,  3.712580251685875D-02, &
 -8.047865391631479D-01,  1.912828097143278D-01,  2.804589806906416D-02, &
 -9.526563151843329D-01,  1.909000554810340D-01,  1.317147780067464D-02, &
 -9.934656721499447D-01,  1.197461382570857D-01,  3.246786042836229D-03, &
 -1.085212763112808D-01,  3.142942982925143D-01,  4.073944662145704D-02, &
 -3.168853969514266D-01,  3.136430658350363D-01,  1.888769495196758D-02, &
 -4.744364447040339D-01,  3.257592735310023D-01,  3.338316795412049D-02, &
 -7.018261748212855D-01,  3.370767611845376D-01,  3.160597567460757D-02, &
 -8.961218476259737D-01,  3.228638369287264D-01,  1.882298564453669D-02, &
 -9.907076643667728D-01,  3.240794429041066D-01,  5.242591968441962D-03, &
 -2.595246348757670D-01,  4.573043899331568D-01,  3.729781542768577D-02, &
 -4.488205755197494D-01,  4.752591359356870D-01,  1.479677650128667D-02, &
 -5.902241348085835D-01,  4.758333073820230D-01,  2.899670157191689D-02, &
 -7.267134552411152D-01,  5.652930131354381D-01,  2.191839430308059D-02, &
 -8.204509229358563D-01,  4.508159401323132D-01,  2.228800060943608D-02, &
 -9.598714005292409D-01,  4.475176031554735D-01,  1.115771006747028D-02, &
 -1.285519929807882D-01,  5.961940658067776D-01,  3.745963783702447D-02, &
 -4.008434952939153D-01,  5.958894993059283D-01,  3.161819475642853D-02, &
 -5.420453939309517D-01,  6.758517622961954D-01,  1.197569541821857D-02, &
 -6.074025740384232D-01,  6.440973695595638D-01,  1.687104351509356D-02, &
 -8.196857529727558D-01,  6.599539606557937D-01,  1.433025041492978D-02, &
 -9.051653639016278D-01,  5.662112657592980D-01,  1.517136608765207D-02, &
 -9.545232264955925D-01,  6.604704311527990D-01,  5.954681784138311D-03, &
 -9.938020253544084D-01,  5.550021925411663D-01,  3.779613188841330D-03, &
 -2.730403569607258D-01,  7.175598471168050D-01,  3.181466382684873D-02, &
 -4.849501945095196D-01,  7.689529149485085D-01,  2.205707035359098D-02, &
 -7.346670194240615D-01,  7.225244519379806D-01,  8.555695820639366D-03, &
 -8.767789551273115D-01,  7.402191126180568D-01,  1.086516778783751D-02, &
 -9.774065816278240D-01,  6.901879840655373D-01,  4.413949586651726D-03, &
 -1.194770600468978D-01,  8.145402907615753D-01,  2.773238005998524D-02, &
 -3.677292203050513D-01,  8.468674880069054D-01,  2.040170735025986D-02, &
 -6.883167579089596D-01,  7.709894430969280D-01,  1.537385690938401D-02, &
 -8.049116063955287D-01,  8.412324448391584D-01,  1.469009646857076D-02, &
 -9.350177341085882D-01,  8.046126375110838D-01,  8.737871041426535D-03, &
 -9.953174665105079D-01,  7.820614187450875D-01,  2.315496884250784D-03, &
 -1.063127388777120D-01,  9.508079160816079D-01,  1.140349599008745D-02, &
 -2.392578185017081D-01,  9.083772470189286D-01,  1.649605664974265D-02, &
 -6.074887398627125D-01,  8.623376059969516D-01,  1.799944191342780D-02, &
 -8.906584714348453D-01,  9.049650989085555D-01,  8.885404075061408D-03, &
 -9.972662607622250D-01,  9.414987804698027D-01,  1.012999506114864D-03, &
 -9.767224278002355D-01,  8.784002089990299D-01,  4.609542770434277D-03, &
 -4.868377946168942D-01,  9.277718380370786D-01,  1.482235294209374D-02, &
 -6.153952571724473D-01,  9.740284280473888D-01,  8.444452079041077D-03, &
 -7.279402581589705D-01,  9.261384032176685D-01,  1.230535711494119D-02, &
 -8.320886256235162D-01,  9.679546133670914D-01,  6.228411019066719D-03, &
 -9.496839487816863D-01,  9.563820929391198D-01,  4.116804695327055D-03, &
 -2.123910718029504D-01,  9.926061411961665D-01,  4.298821847813497D-03, &
 -3.514215085134095D-01,  9.709143978580982D-01,  9.842825211091850D-03, &
 -4.826995164323201D-01,  9.964469722990946D-01,  3.063734063870583D-03, &
 -7.363116181982159D-01,  9.948590950034147D-01,  2.686189437945335D-03, &
 -8.341694790656329D-01,  9.924033492665334D-01,  4.583425786943879D-04, &
 -9.109429166275763D-01,  9.936078762597962D-01,  1.832840176946247D-03, &
 -9.843626854080677D-01,  9.897652124914369D-01,  1.073091219432144D-03, &
 -1.723425646848686D-01,  3.032916166693916D-02,  3.655713458299797D-02, &
 -4.663686154054668D-01,  2.217294601980654D-02,  4.027271183981319D-02, &
 -7.102048981913600D-01,  2.814942665710626D-02,  3.373438958414005D-02, &
 -8.900063168860698D-01,  4.438627067827642D-02,  2.195827523559744D-02, &
 -9.762502292316360D-01,  6.744822333126831D-03,  5.490273279461521D-03, &
 -9.956312481563887D-01, -4.982446329191517D-02,  1.436535699659639D-03, &
 -1.688689515698905D-01, -1.899855310442196D-01,  1.879076889689011D-02, &
 -1.664922672701527D-01, -3.429140133623845D-01,  3.449917667815708D-02, &
 -1.789345703476781D-01, -5.923725055750423D-01,  3.712580251685875D-02, &
 -1.912828097143278D-01, -8.047865391631479D-01,  2.804589806906416D-02, &
 -1.909000554810340D-01, -9.526563151843329D-01,  1.317147780067464D-02, &
 -1.197461382570857D-01, -9.934656721499447D-01,  3.246786042836229D-03, &
 -3.142942982925143D-01, -1.085212763112808D-01,  4.073944662145704D-02, &
 -3.136430658350363D-01, -3.168853969514266D-01,  1.888769495196758D-02, &
 -3.257592735310023D-01, -4.744364447040339D-01,  3.338316795412049D-02, &
 -3.370767611845376D-01, -7.018261748212855D-01,  3.160597567460757D-02, &
 -3.228638369287264D-01, -8.961218476259737D-01,  1.882298564453669D-02, &
 -3.240794429041066D-01, -9.907076643667728D-01,  5.242591968441962D-03, &
 -4.573043899331568D-01, -2.595246348757670D-01,  3.729781542768577D-02, &
 -4.752591359356870D-01, -4.488205755197494D-01,  1.479677650128667D-02, &
 -4.758333073820230D-01, -5.902241348085835D-01,  2.899670157191689D-02, &
 -5.652930131354381D-01, -7.267134552411152D-01,  2.191839430308059D-02, &
 -4.508159401323132D-01, -8.204509229358563D-01,  2.228800060943608D-02, &
 -4.475176031554735D-01, -9.598714005292409D-01,  1.115771006747028D-02, &
 -5.961940658067776D-01, -1.285519929807882D-01,  3.745963783702447D-02, &
 -5.958894993059283D-01, -4.008434952939153D-01,  3.161819475642853D-02, &
 -6.758517622961954D-01, -5.420453939309517D-01,  1.197569541821857D-02, &
 -6.440973695595638D-01, -6.074025740384232D-01,  1.687104351509356D-02, &
 -6.599539606557937D-01, -8.196857529727558D-01,  1.433025041492978D-02, &
 -5.662112657592980D-01, -9.051653639016278D-01,  1.517136608765207D-02, &
 -6.604704311527990D-01, -9.545232264955925D-01,  5.954681784138311D-03, &
 -5.550021925411663D-01, -9.938020253544084D-01,  3.779613188841330D-03, &
 -7.175598471168050D-01, -2.730403569607258D-01,  3.181466382684873D-02, &
 -7.689529149485085D-01, -4.849501945095196D-01,  2.205707035359098D-02, &
 -7.225244519379806D-01, -7.346670194240615D-01,  8.555695820639366D-03, &
 -7.402191126180568D-01, -8.767789551273115D-01,  1.086516778783751D-02, &
 -6.901879840655373D-01, -9.774065816278240D-01,  4.413949586651726D-03, &
 -8.145402907615753D-01, -1.194770600468978D-01,  2.773238005998524D-02, &
 -8.468674880069054D-01, -3.677292203050513D-01,  2.040170735025986D-02, &
 -7.709894430969280D-01, -6.883167579089596D-01,  1.537385690938401D-02, &
 -8.412324448391584D-01, -8.049116063955287D-01,  1.469009646857076D-02, &
 -8.046126375110838D-01, -9.350177341085882D-01,  8.737871041426535D-03, &
 -7.820614187450875D-01, -9.953174665105079D-01,  2.315496884250784D-03, &
 -9.508079160816079D-01, -1.063127388777120D-01,  1.140349599008745D-02, &
 -9.083772470189286D-01, -2.392578185017081D-01,  1.649605664974265D-02, &
 -8.623376059969516D-01, -6.074887398627125D-01,  1.799944191342780D-02, &
 -9.049650989085555D-01, -8.906584714348453D-01,  8.885404075061408D-03, &
 -9.414987804698027D-01, -9.972662607622250D-01,  1.012999506114864D-03, &
 -8.784002089990299D-01, -9.767224278002355D-01,  4.609542770434277D-03, &
 -9.277718380370786D-01, -4.868377946168942D-01,  1.482235294209374D-02, &
 -9.740284280473888D-01, -6.153952571724473D-01,  8.444452079041077D-03, &
 -9.261384032176685D-01, -7.279402581589705D-01,  1.230535711494119D-02, &
 -9.679546133670914D-01, -8.320886256235162D-01,  6.228411019066719D-03, &
 -9.563820929391198D-01, -9.496839487816863D-01,  4.116804695327055D-03, &
 -9.926061411961665D-01, -2.123910718029504D-01,  4.298821847813497D-03, &
 -9.709143978580982D-01, -3.514215085134095D-01,  9.842825211091850D-03, &
 -9.964469722990946D-01, -4.826995164323201D-01,  3.063734063870583D-03, &
 -9.948590950034147D-01, -7.363116181982159D-01,  2.686189437945335D-03, &
 -9.924033492665334D-01, -8.341694790656329D-01,  4.583425786943879D-04, &
 -9.936078762597962D-01, -9.109429166275763D-01,  1.832840176946247D-03, &
 -9.897652124914369D-01, -9.843626854080677D-01,  1.073091219432144D-03, &
 -3.032916166693916D-02, -1.723425646848686D-01,  3.655713458299797D-02, &
 -2.217294601980654D-02, -4.663686154054668D-01,  4.027271183981319D-02, &
 -2.814942665710626D-02, -7.102048981913600D-01,  3.373438958414005D-02, &
 -4.438627067827642D-02, -8.900063168860698D-01,  2.195827523559744D-02, &
 -6.744822333126831D-03, -9.762502292316360D-01,  5.490273279461521D-03, &
 4.982446329191517D-02, -9.956312481563887D-01,  1.436535699659639D-03, &
 1.899855310442196D-01, -1.688689515698905D-01,  1.879076889689011D-02, &
 3.429140133623845D-01, -1.664922672701527D-01,  3.449917667815708D-02, &
 5.923725055750423D-01, -1.789345703476781D-01,  3.712580251685875D-02, &
 8.047865391631479D-01, -1.912828097143278D-01,  2.804589806906416D-02, &
 9.526563151843329D-01, -1.909000554810340D-01,  1.317147780067464D-02, &
 9.934656721499447D-01, -1.197461382570857D-01,  3.246786042836229D-03, &
 1.085212763112808D-01, -3.142942982925143D-01,  4.073944662145704D-02, &
 3.168853969514266D-01, -3.136430658350363D-01,  1.888769495196758D-02, &
 4.744364447040339D-01, -3.257592735310023D-01,  3.338316795412049D-02, &
 7.018261748212855D-01, -3.370767611845376D-01,  3.160597567460757D-02, &
 8.961218476259737D-01, -3.228638369287264D-01,  1.882298564453669D-02, &
 9.907076643667728D-01, -3.240794429041066D-01,  5.242591968441962D-03, &
 2.595246348757670D-01, -4.573043899331568D-01,  3.729781542768577D-02, &
 4.488205755197494D-01, -4.752591359356870D-01,  1.479677650128667D-02, &
 5.902241348085835D-01, -4.758333073820230D-01,  2.899670157191689D-02, &
 7.267134552411152D-01, -5.652930131354381D-01,  2.191839430308059D-02, &
 8.204509229358563D-01, -4.508159401323132D-01,  2.228800060943608D-02, &
 9.598714005292409D-01, -4.475176031554735D-01,  1.115771006747028D-02, &
 1.285519929807882D-01, -5.961940658067776D-01,  3.745963783702447D-02, &
 4.008434952939153D-01, -5.958894993059283D-01,  3.161819475642853D-02, &
 5.420453939309517D-01, -6.758517622961954D-01,  1.197569541821857D-02, &
 6.074025740384232D-01, -6.440973695595638D-01,  1.687104351509356D-02, &
 8.196857529727558D-01, -6.599539606557937D-01,  1.433025041492978D-02, &
 9.051653639016278D-01, -5.662112657592980D-01,  1.517136608765207D-02, &
 9.545232264955925D-01, -6.604704311527990D-01,  5.954681784138311D-03, &
 9.938020253544084D-01, -5.550021925411663D-01,  3.779613188841330D-03, &
 2.730403569607258D-01, -7.175598471168050D-01,  3.181466382684873D-02, &
 4.849501945095196D-01, -7.689529149485085D-01,  2.205707035359098D-02, &
 7.346670194240615D-01, -7.225244519379806D-01,  8.555695820639366D-03, &
 8.767789551273115D-01, -7.402191126180568D-01,  1.086516778783751D-02, &
 9.774065816278240D-01, -6.901879840655373D-01,  4.413949586651726D-03, &
 1.194770600468978D-01, -8.145402907615753D-01,  2.773238005998524D-02, &
 3.677292203050513D-01, -8.468674880069054D-01,  2.040170735025986D-02, &
 6.883167579089596D-01, -7.709894430969280D-01,  1.537385690938401D-02, &
 8.049116063955287D-01, -8.412324448391584D-01,  1.469009646857076D-02, &
 9.350177341085882D-01, -8.046126375110838D-01,  8.737871041426535D-03, &
 9.953174665105079D-01, -7.820614187450875D-01,  2.315496884250784D-03, &
 1.063127388777120D-01, -9.508079160816079D-01,  1.140349599008745D-02, &
 2.392578185017081D-01, -9.083772470189286D-01,  1.649605664974265D-02, &
 6.074887398627125D-01, -8.623376059969516D-01,  1.799944191342780D-02, &
 8.906584714348453D-01, -9.049650989085555D-01,  8.885404075061408D-03, &
 9.972662607622250D-01, -9.414987804698027D-01,  1.012999506114864D-03, &
 9.767224278002355D-01, -8.784002089990299D-01,  4.609542770434277D-03, &
 4.868377946168942D-01, -9.277718380370786D-01,  1.482235294209374D-02, &
 6.153952571724473D-01, -9.740284280473888D-01,  8.444452079041077D-03, &
 7.279402581589705D-01, -9.261384032176685D-01,  1.230535711494119D-02, &
 8.320886256235162D-01, -9.679546133670914D-01,  6.228411019066719D-03, &
 9.496839487816863D-01, -9.563820929391198D-01,  4.116804695327055D-03, &
 2.123910718029504D-01, -9.926061411961665D-01,  4.298821847813497D-03, &
 3.514215085134095D-01, -9.709143978580982D-01,  9.842825211091850D-03, &
 4.826995164323201D-01, -9.964469722990946D-01,  3.063734063870583D-03, &
 7.363116181982159D-01, -9.948590950034147D-01,  2.686189437945335D-03, &
 8.341694790656329D-01, -9.924033492665334D-01,  4.583425786943879D-04, &
 9.109429166275763D-01, -9.936078762597962D-01,  1.832840176946247D-03, &
 9.843626854080677D-01, -9.897652124914369D-01,  1.073091219432144D-03, &
 1.723425646848686D-01, -3.032916166693916D-02,  3.655713458299797D-02, &
 4.663686154054668D-01, -2.217294601980654D-02,  4.027271183981319D-02, &
 7.102048981913600D-01, -2.814942665710626D-02,  3.373438958414005D-02, &
 8.900063168860698D-01, -4.438627067827642D-02,  2.195827523559744D-02, &
 9.762502292316360D-01, -6.744822333126831D-03,  5.490273279461521D-03, &
 9.956312481563887D-01,  4.982446329191517D-02,  1.436535699659639D-03, &
 0.000000000000000D+00,  0.000000000000000D+00,  2.733962437974891D-02 /)

  return
end
subroutine smr38 ( xyw )

!*****************************************************************************80
!
!! SMR38 returns the SMR rule of degree 38.
!
!  Discussion:
!
!    DEGREE: 38
!    POINTS CARDINALITY: 265
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*265), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*265)

  xyw = (/ &
 -9.986728061698944D-01,  7.022053437776367D-01,  1.480107210669759D-03, &
 -9.982717636746820D-01, -9.054654092610701D-01,  1.075250999194606D-03, &
 -9.967818426696908D-01,  2.010254208991262D-01,  2.641794509284354D-03, &
 -9.961752169855568D-01, -4.510641362412657D-01,  2.262884166375447D-03, &
 -9.956850333584866D-01, -2.104763459288764D-01,  2.878520269955461D-03, &
 -9.954228554916262D-01, -6.464904618069326D-01,  2.018600540825626D-03, &
 -9.952874532053829D-01,  4.651922890152825D-01,  2.686536492992849D-03, &
 -9.948147421400011D-01,  8.983435291372217D-01,  1.575355209064770D-03, &
 -9.944162554551003D-01,  9.804886839517453D-01,  7.123537841476463D-04, &
 -9.941508164951945D-01, -9.924193701187594D-01,  4.124555173483122D-04, &
 -9.895909168262721D-01, -7.760059158658976D-01,  3.335123807315742D-03, &
 -9.884130043110948D-01, -6.828120541211876D-03,  5.966363865455931D-03, &
 -9.825019022108045D-01,  8.025512121835557D-01,  4.473439125255699D-03, &
 -9.808025717173898D-01,  5.928703642747596D-01,  5.654233758485060D-03, &
 -9.789202260574441D-01, -9.600751096501493D-01,  2.400023758037121D-03, &
 -9.780946430895284D-01,  3.312033086392446D-01,  7.232443622428314D-03, &
 -9.768400253233941D-01, -3.363809641049628D-01,  6.810652491435815D-03, &
 -9.766127586199059D-01, -5.507973729936958D-01,  5.502878410512012D-03, &
 -9.709970420576878D-01,  9.982493459462520D-01,  5.220890807668551D-04, &
 -9.699274049351875D-01,  9.472087194394833D-01,  3.027446723606712D-03, &
 -9.687234644693394D-01, -8.597252944572178D-01,  4.921184172578546D-03, &
 -9.579599016628263D-01,  1.346951753939543D-01,  1.158893898492868D-02, &
 -9.565118929757315D-01, -1.489920158469925D-01,  1.130253568365422D-02, &
 -9.553009304164504D-01, -6.804355607895213D-01,  8.027637882625688D-03, &
 -9.511658622347594D-01,  6.971063358211608D-01,  8.324574726565883D-03, &
 -9.437446561733596D-01,  4.732467184275191D-01,  1.096804727700399D-02, &
 -9.430645590398508D-01,  8.721609246940591D-01,  6.497332370837135D-03, &
 -9.424278783556489D-01, -9.922571454686503D-01,  1.636770445566413D-03, &
 -9.398691006571868D-01, -4.560244625614296D-01,  8.895278250957981D-03, &
 -9.292771715176156D-01, -9.225625756492970D-01,  5.669237451343602D-03, &
 -9.249858311739745D-01,  9.811603990754799D-01,  2.809384277239985D-03, &
 -9.180677638423977D-01, -7.800607674872433D-01,  9.623850741009066D-03, &
 -9.177060680740887D-01, -3.177972997817269D-01,  1.019917034278841D-02, &
 -9.174754746776520D-01,  3.041897807994299D-01,  1.201129866345285D-02, &
 -9.079474620384712D-01, -1.522732468440084D-02,  1.645827217241348D-02, &
 -8.989880442284409D-01, -5.721449662059714D-01,  1.288528291339345D-02, &
 -8.981089387121135D-01,  7.784183494868725D-01,  1.067299862517563D-02, &
 -8.932346929455569D-01,  5.887798321389541D-01,  1.418723684484729D-02, &
 -8.844628907549286D-01,  9.298461890098859D-01,  6.826913613669788D-03, &
 -8.785753240387332D-01,  1.874264068388238D-01,  1.280230079204341D-02, &
 -8.769155610558782D-01, -9.702794097426992D-01,  4.732604136822726D-03, &
 -8.745143973474696D-01, -2.287312677692649D-01,  1.419838785220286D-02, &
 -8.616355979293774D-01, -8.599524645119671D-01,  1.033767954867920D-02, &
 -8.543820371352494D-01,  9.950509885730230D-01,  1.586566768400716D-03, &
 -8.524166456930568D-01,  4.012946300633538D-01,  1.310477717253685D-02, &
 -8.456839492120051D-01, -6.831067002350120D-01,  1.516421735877612D-02, &
 -8.383382188368550D-01, -4.319298337860406D-01,  1.921462523307014D-02, &
 -8.264198166719673D-01,  8.543820715032787D-01,  1.170776794008535D-02, &
 -8.238644456887115D-01,  4.631329546631612D-01,  1.038537538791454D-02, &
 -8.223392361684277D-01,  6.288554440206344D-02,  1.667203720394711D-02, &
 -8.211280022738077D-01,  6.855811948721302D-01,  1.601478444956828D-02, &
 -8.199277985385334D-01, -9.968372670905445D-01,  1.661577894515087D-03, &
 -8.129329692738561D-01, -1.273992868913358D-01,  1.875947652746525D-02, &
 -8.011794106051470D-01,  9.669501083215283D-01,  5.767768497940699D-03, &
 -7.929367673515950D-01, -9.266258905147980D-01,  9.411444971101739D-03, &
 -7.900564493377547D-01,  2.381148763558590D-01,  1.647531191140429D-02, &
 -7.731467279987423D-01, -7.797397671681381D-01,  1.601496823099040D-02, &
 -7.623964593130932D-01, -5.501193940493972D-01,  1.159218418929015D-02, &
 -7.584255224981719D-01, -3.184791336183493D-01,  2.091892442653742D-02, &
 -7.519475217388361D-01, -5.791824818686737D-01,  1.205989910558337D-02, &
 -7.479661500312423D-01,  5.530676731141679D-01,  2.158851143401081D-02, &
 -7.352203999162555D-01,  7.734652586603286D-01,  1.630985619573579D-02, &
 -7.301302673120450D-01,  9.132724657488548D-01,  1.112141678436374D-02, &
 -7.256956958727250D-01,  3.329739597626992D-01,  2.022428576496201D-02, &
 -7.239178205154017D-01, -9.768043840489384D-01,  5.995264547827235D-03, &
 -7.144660932162712D-01,  9.939502544860596D-01,  2.623316720141714D-03, &
 -7.134918721775755D-01, -8.299044913428447D-02,  1.940442510934155D-02, &
 -7.119027324460611D-01,  8.578636631641405D-02,  2.131075003508226D-02, &
 -6.885657387083151D-01, -8.646581939789911D-01,  1.508744259539114D-02, &
 -6.815796916450431D-01, -2.520940863406625D-01,  1.530753004805380D-02, &
 -6.642578820959111D-01, -6.852634338827157D-01,  2.278049969875701D-02, &
 -6.473518575748209D-01,  6.592583222880233D-01,  2.271475467380947D-02, &
 -6.437258851335323D-01, -4.477173879758088D-01,  2.975639615479566D-02, &
 -6.355112635497605D-01,  4.378956512417215D-01,  2.521762558761123D-02, &
 -6.325124605614381D-01,  8.407501306388737D-01,  1.460590022059716D-02, &
 -6.315677583266991D-01,  9.662034393812413D-01,  7.808742737505493D-03, &
 -6.196042474875053D-01, -9.963363069708174D-01,  2.238568005909896D-03, &
 -6.140032205110788D-01,  2.010897045841556D-01,  2.855123742414878D-02, &
 -6.129576438043784D-01, -9.390322728980965D-01,  1.034926062595989D-02, &
 -5.875439691207275D-01, -2.193439986467143D-02,  2.499512527874338D-02, &
 -5.799105261064157D-01, -2.023065726805473D-01,  2.524717784018200D-02, &
 -5.639961982962394D-01, -7.885570098234548D-01,  2.129350870359041D-02, &
 -5.596787042093025D-01,  9.043275540829417D-01,  9.506472361159410D-03, &
 -5.352404064125716D-01, -5.820386013748505D-01,  2.975207132885310D-02, &
 -5.296093245457807D-01,  7.468713682804629D-01,  2.126630472576444D-02, &
 -5.287674931826091D-01,  5.463207389216995D-01,  2.634684268285789D-02, &
 -5.219567374887893D-01,  9.934029903982332D-01,  3.621614418679607D-03, &
 -5.149216590929167D-01, -9.004320190387479D-01,  7.688847109621289D-03, &
 -5.011828192721633D-01,  3.227765374618168D-01,  3.053941514246194D-02, &
 -4.984369209637762D-01, -9.785989702329311D-01,  6.782679629517108D-03, &
 -4.936061758540524D-01, -3.486445503736601D-01,  3.330194686505883D-02, &
 -4.708043838891184D-01,  9.397512604542692D-01,  9.223376930093745D-03, &
 -4.700530607377321D-01,  9.067704013502087D-02,  3.194924782643185D-02, &
 -4.421006521894345D-01, -8.668776943903029D-01,  1.365222130557064D-02, &
 -4.322459166260278D-01,  8.364964883317925D-01,  1.748429055313385D-02, &
 -4.274779754835013D-01, -1.078954532368429D-01,  3.224879248144154D-02, &
 -4.198312559908789D-01, -7.021715466719177D-01,  2.768892576177184D-02, &
 -4.084458907612225D-01,  6.401570118208092D-01,  2.499005578311043D-02, &
 -3.854852212643881D-01,  4.349492407425390D-01,  2.817381856722252D-02, &
 -3.774830229936222D-01, -4.844006263231227D-01,  3.385700109477467D-02, &
 -3.733125787412826D-01, -9.970755357985500D-01,  2.170942883821916D-03, &
 -3.727797012921453D-01,  9.754151248075028D-01,  7.281188512200446D-03, &
 -3.688270887346273D-01, -9.468451854156112D-01,  1.073492503946515D-02, &
 -3.400601966223295D-01,  2.175481788735125D-01,  3.596233825588648D-02, &
 -3.309577504370512D-01, -2.409725722453500D-01,  3.299006641898251D-02, &
 -3.139120548586594D-01,  8.944387687131167D-01,  1.499808244204078D-02, &
 -3.077283461062756D-01,  7.430289388062856D-01,  2.298506594699816D-02, &
 -3.068704930295912D-01, -8.068905304677897D-01,  2.173679496778064D-02, &
 -2.858215339736228D-01,  9.963809140996434D-01,  2.123402062955704D-03, &
 -2.752650785602830D-01,  5.229667081821272D-01,  2.373528701602919D-02, &
 -2.741878663975621D-01,  1.806172412531546D-02,  3.809014012672781D-02, &
 -2.567719567007165D-01, -6.119240851225661D-01,  3.194011296016801D-02, &
 -2.486412305697790D-01, -9.068815421904441D-01,  1.217810020482826D-02, &
 -2.449174300564486D-01, -9.850991839405564D-01,  4.904448003786544D-03, &
 -2.187168991298080D-01, -3.684600845707849D-01,  3.494313486419826D-02, &
 -2.033117249838243D-01,  9.468738387846685D-01,  1.197619385623436D-02, &
 -2.010080284425486D-01,  3.460129359512604D-01,  3.625695619354579D-02, &
 -1.826355317918911D-01,  6.262632974300691D-01,  2.662590215392095D-02, &
 -1.790215484342411D-01,  8.175236068900705D-01,  2.125277683247088D-02, &
 -1.620973947089955D-01, -1.254151736109939D-01,  3.616346313257308D-02, &
 -1.539052421137992D-01, -7.363057881237680D-01,  2.507618881866903D-02, &
 -1.509748710751692D-01, -9.644785457571827D-01,  7.018739561734089D-03, &
 -1.493613992998394D-01,  9.916687319806494D-01,  3.018026062389521D-03, &
 -1.222783616692547D-01,  1.555419729513029D-01,  3.996865738603259D-02, &
 -1.217834179658884D-01, -8.665867966847536D-01,  1.614918555107364D-02, &
 -9.954568034561521D-02, -4.983049956809532D-01,  3.480237785300572D-02, &
 -6.355783962147189D-02,  4.834454631547017D-01,  3.435231211682938D-02, &
 -5.980328238804704D-02, -9.959405331674103D-01,  3.043977853817699D-03, &
 -5.539568797194713D-02,  8.900885330680616D-01,  1.816753046217396D-02, &
 -5.044959347909641D-02,  7.147609138031071D-01,  2.708098053621957D-02, &
 -4.957845184210880D-02, -2.517606346179521D-01,  3.400381338647362D-02, &
 -3.882145970770993D-02,  9.753666286618804D-01,  7.353902601259136D-03, &
 -1.876732002789969D-02, -9.356601897044989D-01,  1.223556469983839D-02, &
 -1.249886771851880D-02, -6.467617699294321D-01,  2.729244897787926D-02, &
 -2.013003655499770D-03,  6.804392691959212D-03,  3.855008975037510D-02, &
 1.402682997558021D-02,  3.138839948744481D-01,  3.388937184270214D-02, &
 1.858848688086966D-02, -8.036198891624267D-01,  2.153717804647764D-02, &
 6.003092973120553D-02, -3.753272041106706D-01,  3.397898340796751D-02, &
 7.672497416901625D-02,  5.912600487498983D-01,  3.121782785742061D-02, &
 8.150239020231834D-02,  8.067824202268138D-01,  2.407531651957368D-02, &
 8.668589264981116D-02,  9.969497157386084D-01,  2.701504620609339D-03, &
 9.231571720996709D-02, -9.780482238991313D-01,  7.785551665765360D-03, &
 9.737323505829255D-02,  9.384929736173514D-01,  1.338210888613317D-02, &
 1.128012445661176D-01,  1.896414997815953D-01,  3.128705789253182D-02, &
 1.143511803097085D-01, -1.243491400435504D-01,  3.392864370862653D-02, &
 1.176787443821946D-01, -5.474612454684378D-01,  2.746213627764317D-02, &
 1.268891351439016D-01, -8.839456725175053D-01,  1.672616556795388D-02, &
 1.631426909205751D-01, -7.177106221484078D-01,  2.625147736220446D-02, &
 1.758741383852967D-01,  4.265421432395542D-01,  3.797964446958128D-02, &
 2.006154550504023D-01,  6.951418864446643D-01,  2.545733408956723D-02, &
 2.152860030071384D-01, -2.422132475961240D-01,  3.100597045992737D-02, &
 2.185770634825280D-01,  6.907417504035727D-02,  3.492638326125608D-02, &
 2.236246288520670D-01, -9.963809891717132D-01,  2.645997507264436D-03, &
 2.288887051657028D-01,  8.754003178432914D-01,  1.912737808424751D-02, &
 2.333826052338914D-01,  9.779009358962610D-01,  8.217956207171995D-03, &
 2.396650307918395D-01, -9.403475642021211D-01,  1.212182944813937D-02, &
 2.400346653041813D-01, -4.372367795710141D-01,  2.750818762763818D-02, &
 2.748295966460754D-01, -8.146962266181857D-01,  2.119754629186746D-02, &
 2.987201821315680D-01, -6.058548502859488D-01,  2.839877337228632D-02, &
 3.045773430811280D-01,  2.755917979498074D-01,  3.925796207971420D-02, &
 3.076075819952085D-01,  5.616633852300046D-01,  3.047990578805131D-02, &
 3.287712171984706D-01,  7.700477537553330D-01,  2.209664204066767D-02, &
 3.353060396411924D-01, -6.713224338700050D-02,  3.731512968063742D-02, &
 3.590192167691809D-01, -3.124154796685937D-01,  2.690461091828352D-02, &
 3.599858348938447D-01, -9.772275522212224D-01,  7.322166085339412D-03, &
 3.633366721464262D-01,  9.346084117544282D-01,  1.354702461771435D-02, &
 3.764020834512444D-01,  9.961755944581749D-01,  2.780135787415783D-03, &
 3.890228459314153D-01, -8.890435602042946D-01,  1.607523732193323D-02, &
 4.027914291932886D-01, -7.160255035244310D-01,  2.387070910106874D-02, &
 4.097421894946350D-01,  4.452381475461492D-01,  2.464804897575283D-02, &
 4.229178797439392D-01, -4.701825939351019D-01,  2.729336096379032D-02, &
 4.340848616284464D-01,  1.248473223854657D-01,  3.829435373976316D-02, &
 4.470213771246104D-01,  8.458186314958444D-01,  1.848706583481758D-02, &
 4.529246621415263D-01,  6.588844784476522D-01,  2.807897061918352D-02, &
 4.691823411918916D-01, -1.894802637910654D-01,  3.053879012802178D-02, &
 4.783450123946249D-01, -9.966085192019259D-01,  2.372775192102795D-03, &
 4.895259810138424D-01,  3.534144616221834D-01,  2.351128491079622D-02, &
 4.959734262824529D-01,  9.740444635499416D-01,  7.710763334339463D-03, &
 5.035757619767235D-01, -9.439613658930373D-01,  1.096738800807791D-02, &
 5.065601845768776D-01, -5.790286708924139D-01,  2.135179779707459D-02, &
 5.085183945179361D-01, -8.074877657027639D-01,  1.929376564778246D-02, &
 5.522864200597388D-01, -2.345289122385255D-02,  3.173415604312580D-02, &
 5.570494428224395D-01,  9.133422840649569D-01,  1.040230474694315D-02, &
 5.592614360711528D-01, -3.522697411422632D-01,  3.062865653271522D-02, &
 5.701115871183835D-01,  5.306977130285789D-01,  2.961992797000797D-02, &
 5.715387605890363D-01,  7.590559568198023D-01,  2.163444564883412D-02, &
 5.835624398896593D-01, -6.686734742923499D-01,  1.834802018964697D-02, &
 5.852476417677183D-01,  2.370919609747132D-01,  3.031865232259109D-02, &
 6.022583849974138D-01,  8.935147959329210D-01,  4.687076326332230D-03, &
 6.126343242580223D-01,  9.948806624831008D-01,  2.738111925376468D-03, &
 6.130380835098971D-01, -9.809871456541636D-01,  6.008330808378468D-03, &
 6.137772669975574D-01, -8.823362281279877D-01,  1.455389914650117D-02, &
 6.503113146309555D-01, -4.923990275537434D-01,  2.548798440031706D-02, &
 6.557363354466152D-01, -1.827492834052264D-01,  2.943913000621533D-02, &
 6.632308515099845D-01, -7.513836134228538D-01,  1.603729849717827D-02, &
 6.733087762907948D-01,  7.458312789499499D-02,  2.620926808459537D-02, &
 6.777745043586945D-01,  6.498008245436880D-01,  2.305772728455377D-02, &
 6.801215770962631D-01,  9.582506362246405D-01,  8.570728995577852D-03, &
 6.812691836007740D-01,  3.950396235783185D-01,  2.866215400698846D-02, &
 6.845867333636126D-01,  8.369868628766669D-01,  1.511423850063031D-02, &
 7.142144737185003D-01, -9.401517749959084D-01,  9.679186610760252D-03, &
 7.273928279094639D-01, -9.968690745004373D-01,  1.839049038220150D-03, &
 7.351794320872288D-01, -3.295931784311009D-01,  2.303520052753472D-02, &
 7.366016686661473D-01, -6.141664794256717D-01,  2.025486074750510D-02, &
 7.410876578755918D-01, -8.243736678762867D-01,  1.265159478674391D-02, &
 7.551110132205514D-01,  2.093562914164269D-01,  2.349869126796357D-02, &
 7.702496257050028D-01, -6.565803371865064D-02,  2.585856694796258D-02, &
 7.725680221187270D-01,  9.904023414650684D-01,  3.400468248188160D-03, &
 7.738393121081201D-01,  5.296366886950493D-01,  2.210916654329989D-02, &
 7.749611837963317D-01,  9.058131786659659D-01,  1.041506168806316D-02, &
 7.760702944135377D-01,  7.489596799092613D-01,  1.652307042159280D-02, &
 8.027353439778935D-01, -4.573336361960537D-01,  1.831340868862391D-02, &
 8.124305771363060D-01, -9.759706592062355D-01,  5.062161724834427D-03, &
 8.147149488148366D-01, -8.861421984181819D-01,  9.631215601485367D-03, &
 8.163753750967859D-01, -7.177004379126865D-01,  1.541261476754118D-02, &
 8.258640864298581D-01,  3.417271576604571D-01,  1.986204459592654D-02, &
 8.385288085877484D-01, -2.304198329903687D-01,  2.068650913588178D-02, &
 8.480262557901783D-01,  9.584500401922721D-01,  5.818073292341461D-03, &
 8.499406855634883D-01,  8.311541485724494D-02,  2.138582032495064D-02, &
 8.542395824011385D-01,  6.470836810764854D-01,  1.548189977556605D-02, &
 8.551735349936741D-01,  8.361408239071259D-01,  1.113210052356122D-02, &
 8.682126765591526D-01, -5.724226374325766D-01,  1.512163401783132D-02, &
 8.862702936910032D-01, -8.045997586076709D-01,  1.081270580739009D-02, &
 8.864333814317719D-01, -9.343418320939790D-01,  6.185112577237470D-03, &
 8.887165787912253D-01,  4.737933027545716D-01,  1.532406329926187D-02, &
 8.909110194387325D-01, -9.952080704120854D-01,  1.557095545851028D-03, &
 8.969514630808822D-01,  9.930243801730180D-01,  1.899826340411995D-03, &
 8.975959754390993D-01, -3.806019598663427D-01,  1.487375295518117D-02, &
 9.030468245555767D-01, -9.390288889102749D-02,  1.549257621043731D-02, &
 9.085939371709327D-01,  2.350241676754213D-01,  1.558218899145559D-02, &
 9.140361598405574D-01,  9.095155793512008D-01,  6.544935838415903D-03, &
 9.171230192628999D-01,  7.511379775519837D-01,  1.001948867534600D-02, &
 9.268871231165261D-01, -6.775251262894855D-01,  1.088618566292480D-02, &
 9.416935102978777D-01,  6.013078832211158D-01,  1.017124306808582D-02, &
 9.433556271573456D-01, -8.749994999185291D-01,  6.277143297506312D-03, &
 9.434325703715991D-01,  3.225727122372022D-02,  9.237465593827822D-03, &
 9.437308091058394D-01, -9.711971052517493D-01,  3.026949149785576D-03, &
 9.439963213838909D-01, -2.608317409688558D-01,  9.360240633006462D-03, &
 9.484876843189004D-01, -5.004997732310644D-01,  1.009870421315387D-02, &
 9.499243743977762D-01,  3.801906587509148D-01,  9.818422202948377D-03, &
 9.514871432590463D-01,  9.671631794962331D-01,  3.146221524837508D-03, &
 9.609489550655589D-01,  8.428332536315430D-01,  5.730637488550284D-03, &
 9.662829103996791D-01,  1.468518597297787D-01,  7.207542405549267D-03, &
 9.696872558843541D-01, -1.605437913785572D-01,  5.981560914072205D-03, &
 9.702856060632504D-01, -7.717575893450904D-01,  5.993654542760810D-03, &
 9.760573100533793D-01,  9.966116994495912D-01,  5.808298238542816D-04, &
 9.778854166720647D-01, -9.945815670139703D-01,  7.405440773791397D-04, &
 9.789726619300820D-01,  7.196402966212632D-01,  5.322542886910651D-03, &
 9.792756889708635D-01,  5.073451727037140D-01,  5.506244507295100D-03, &
 9.811303210024424D-01, -6.060022042631865D-01,  5.278083219704399D-03, &
 9.821031078208879D-01, -3.681824090938130D-01,  6.200855551112159D-03, &
 9.823346110259005D-01, -9.302538972721487D-01,  2.710453922448771D-03, &
 9.862095221362329D-01,  2.895216427234739D-01,  5.194439945195447D-03, &
 9.864268580437249D-01,  9.195586194143690D-01,  2.646059688376799D-03, &
 9.880369774377964D-01, -3.549566919434279D-02,  5.082042661181035D-03, &
 9.945896034737212D-01, -8.501279475990717D-01,  1.873959291274505D-03, &
 9.954239677428349D-01,  6.245266829365560D-01,  2.088928242308500D-03, &
 9.961170766979618D-01,  9.777701767940108D-01,  6.025320119282685D-04, &
 9.966190752080943D-01, -7.030873365364748D-01,  1.672495855073975D-03, &
 9.973338514057413D-01, -4.871402038403967D-01,  1.840226666996993D-03, &
 9.975779076043548D-01, -2.229904598382893D-01,  2.112563470049513D-03, &
 9.976658933368316D-01,  1.309914613948673D-01,  1.954166630091224D-03, &
 9.977174090396262D-01,  8.188675476038971D-01,  1.472509815415101D-03, &
 9.983759366126691D-01, -9.751850545004921D-01,  4.748950672235257D-04, &
 9.984440204501318D-01,  4.288187400230707D-01,  1.459369339895693D-03 /)

  return
end
subroutine smr39 ( xyw )

!*****************************************************************************80
!
!! SMR39 returns the SMR rule of degree 39.
!
!  Discussion:
!
!    DEGREE: 39
!    SYMMETRY: (X,  Y),  (-X, -Y).
!    POINTS CARDINALITY: 274
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*274), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*274)

  xyw = (/ &
 -9.983507138390728D-01,  2.846923651716276D-02,  1.946248040917511D-03, &
 -9.974803510397799D-01,  5.723617700464594D-01,  1.730177315995435D-03, &
 -9.970436400762405D-01,  8.380584517844631D-01,  1.474635255954523D-03, &
 -9.966780331371223D-01,  9.694002319896394D-01,  7.243867200693780D-04, &
 -9.966744182696170D-01, -5.085108565093430D-01,  1.980803681920541D-03, &
 -9.958948247928820D-01,  3.162381906315679D-01,  2.750378228739487D-03, &
 -9.957989442071229D-01, -2.946071658312556D-01,  2.310642786475657D-03, &
 -9.951431493831727D-01, -9.317895250779106D-01,  1.311747532188187D-03, &
 -9.947425612275775D-01, -6.937725695763057D-01,  2.327244406193416D-03, &
 -9.946606993258253D-01, -9.946657556011911D-01,  3.187304244494703D-04, &
 -9.891970457464104D-01, -8.249338141061554D-01,  3.217331206511223D-03, &
 -9.882776096714541D-01,  6.996008607192892D-01,  3.762641387033618D-03, &
 -9.863969994171303D-01, -1.393885680294662D-01,  5.467653298722175D-03, &
 -9.815404512250665D-01,  1.578509309909750D-01,  6.740930954579635D-03, &
 -9.808343955917264D-01,  9.119881406240292D-01,  3.204352632730979D-03, &
 -9.801636812194632D-01,  4.593560896100384D-01,  6.656001065255846D-03, &
 -9.781563938994409D-01,  9.946089769037700D-01,  7.827411078516896D-04, &
 -9.778060661329431D-01, -3.970269563950553D-01,  6.040841876140015D-03, &
 -9.732806127131356D-01, -5.909702866713498D-01,  6.577441961101425D-03, &
 -9.719927242736324D-01, -9.738032840708760D-01,  2.184317380157956D-03, &
 -9.672092676086640D-01,  7.825063090118517D-01,  5.021658745346757D-03, &
 -9.603776991602971D-01, -2.153921649724314D-02,  8.448862253501903D-03, &
 -9.590320135912280D-01, -8.917513123920264D-01,  5.150986564054207D-03, &
 -9.545890590274086D-01, -7.377847025903865D-01,  8.094745379189257D-03, &
 -9.518800297972723D-01,  6.005875476668143D-01,  1.012666553714644D-02, &
 -9.515429157747712D-01,  2.941640121000471D-01,  1.034277329324190D-02, &
 -9.490472836637540D-01,  9.596558694888836D-01,  3.220645239038979D-03, &
 -9.474949611934800D-01, -2.528714063790848D-01,  1.171512879678826D-02, &
 -9.373768292011957D-01,  8.493689030467824D-01,  5.846679077116532D-03, &
 -9.316184094587854D-01, -4.719381834645925D-01,  1.149946336342146D-02, &
 -9.286585069364643D-01, -9.958860857406989D-01,  1.228760288290566D-03, &
 -9.267775091062305D-01,  8.114744510060384D-02,  1.023519688964817D-02, &
 -9.163559242547217D-01,  4.235110040036954D-01,  1.200757888591889D-02, &
 -9.121815833695173D-01,  9.882371567284969D-01,  2.019136532361037D-03, &
 -9.109849110758503D-01, -9.453953022277268D-01,  5.441926862298386D-03, &
 -9.037513800248385D-01,  7.152403666234081D-01,  1.254893510280643D-02, &
 -9.029200480204936D-01, -8.212018233771367D-01,  1.010629097307952D-02, &
 -9.017715031500836D-01, -6.268263259886000D-01,  1.344763853761130D-02, &
 -8.966208411354669D-01,  9.032456722718886D-01,  6.128920772776423D-03, &
 -8.949592560928252D-01, -1.162935700588350D-01,  1.704399639079853D-02, &
 -8.840140563237966D-01,  1.969976541674721D-01,  1.596015406249639D-02, &
 -8.746116719331715D-01, -3.448361698711476D-01,  1.765094462924452D-02, &
 -8.710753346416532D-01,  5.340745871340347D-01,  1.443864424160225D-02, &
 -8.484438717285120D-01,  9.509156312117837D-01,  5.738054352556750D-03, &
 -8.458535483524889D-01, -9.815128577523679D-01,  4.137548861495137D-03, &
 -8.398481586927637D-01,  9.961877079907046D-01,  1.304263243999687D-03, &
 -8.380687425956748D-01,  8.117290446268374D-01,  1.347035082702432D-02, &
 -8.338881116659986D-01, -8.932750703415656D-01,  1.036216371830049D-02, &
 -8.323418772294408D-01, -7.249676279524006D-01,  1.575346317085866D-02, &
 -8.249812915580336D-01,  3.366002739808117D-01,  2.128624669032709D-02, &
 -8.240658406348467D-01,  2.473915430588143D-02,  2.254370190641922D-02, &
 -8.235861595693262D-01, -5.100296033516193D-01,  2.030894605456216D-02, &
 -8.077195745093785D-01,  6.402169882573437D-01,  1.719971170125941D-02, &
 -7.994401076934280D-01, -2.090758091368732D-01,  2.285093214933729D-02, &
 -7.630151789434809D-01,  8.944374728168084D-01,  1.178494783231054D-02, &
 -7.595914562260390D-01,  9.774953228487998D-01,  5.007040345181551D-03, &
 -7.582407204546612D-01, -9.977747817904907D-01,  1.471436198785488D-03, &
 -7.479025577044630D-01,  4.742891505995823D-01,  2.322814942159416D-02, &
 -7.476388136248332D-01, -9.482109321336361D-01,  8.869792121065277D-03, &
 -7.467703985197518D-01, -8.150373305425095D-01,  1.612171337958705D-02, &
 -7.437239011702286D-01,  1.745124876671426D-01,  2.695721316522005D-02, &
 -7.347330924126372D-01, -6.233626922279565D-01,  2.200766479881018D-02, &
 -7.315599487238387D-01, -3.750364118349838D-01,  2.628156017590748D-02, &
 -7.287657206722611D-01,  7.405217467057846D-01,  1.766147427786541D-02, &
 -7.068497539323653D-01, -5.980644840754300D-02,  2.389888208127354D-02, &
 -6.810402042857588D-01, -1.522180405710772D-01,  9.694473603796364D-03, &
 -6.732322428485551D-01,  3.420204047422755D-01,  1.378566447967479D-02, &
 -6.671777044407723D-01,  9.965429698430747D-01,  2.043998547474421D-03, &
 -6.661024488936084D-01,  8.365632468531969D-01,  1.043213484692862D-02, &
 -6.574739030221062D-01,  6.056292870332995D-01,  1.928874088451468D-02, &
 -6.471433178579986D-01,  9.435400364191848D-01,  1.053431875912228D-02, &
 -6.450928247980198D-01, -8.897594199253124D-01,  1.467091129012532D-02, &
 -6.450169863776212D-01, -9.837401664708233D-01,  5.320225765195333D-03, &
 -6.356111898627910D-01,  2.888888071755747D-01,  1.689616308681305D-02, &
 -6.353365310873343D-01, -7.289411912040862D-01,  2.112609662944668D-02, &
 -6.298334119568398D-01, -4.991303444532345D-01,  2.693509156798771D-02, &
 -6.291453725213981D-01,  5.401236508742461D-01,  8.067204019727233D-03, &
 -6.052836931615376D-01, -2.550054118031913D-01,  3.145439290857988D-02, &
 -6.020155389610803D-01,  7.193745911974410D-02,  3.280026289766638D-02, &
 -5.864000058451709D-01,  8.398830909360200D-01,  9.794020060223996D-03, &
 -5.844053681740743D-01,  7.439581399260577D-01,  9.673537687961857D-03, &
 -5.595952952122188D-01,  4.183137864951066D-01,  2.109228735521581D-02, &
 -5.426224610168304D-01,  6.721678667912533D-01,  1.507682570233586D-02, &
 -5.392718444436758D-01, -6.640373564025523D-01,  6.853039280534112D-03, &
 -5.392273233424993D-01, -9.497301018552529D-01,  1.000131088526367D-02, &
 -5.352356532684714D-01, -5.949900365542921D-01,  1.257623121836303D-02, &
 -5.323778014446715D-01,  9.820204941474223D-01,  6.618755503045249D-03, &
 -5.217356658216146D-01, -8.191869945411094D-01,  1.965283477527441D-02, &
 -5.005240240607661D-01,  9.025303947810552D-01,  1.461332246120154D-02, &
 -4.938892072238822D-01, -9.399631019971544D-02,  3.808292738661537D-02, &
 -4.937487614230233D-01, -9.959198263215358D-01,  2.729762079728744D-03, &
 -4.900963037914226D-01, -3.938750807407649D-01,  3.202384141512818D-02, &
 -4.882533660406217D-01,  2.148638214494721D-01,  3.418958389588500D-02, &
 -4.867250611982683D-01,  5.069290645382520D-01,  2.181757841571514D-02, &
 -4.652861756571924D-01, -6.195234647797874D-01,  1.584655621464966D-02, &
 -4.606315835191566D-01,  7.592681033169186D-01,  1.498569479673017D-02, &
 -4.247086062086841D-01, -9.049304493933019D-01,  1.318933688912641D-02, &
 -4.065029720082786D-01,  6.264617368348774D-01,  1.614341656613300D-02, &
 -3.964381931274395D-01, -7.402485185211833D-01,  2.066230577186247D-02, &
 -3.917275322790500D-01, -2.763915160061775D-01,  2.066535103271340D-02, &
 -3.832536927501162D-01,  9.979855334480493D-01,  2.234175560395208D-03, &
 -3.794623453333835D-01,  9.538177413235013D-01,  1.114591704523323D-02, &
 -3.772235876850343D-01,  3.495735710597775D-01,  3.119665329913849D-02, &
 -3.717776952778286D-01,  8.276226068123943D-01,  1.892035069295494D-02, &
 -3.653673059860704D-01, -9.753012851813677D-01,  8.368304519228926D-03, &
 -3.645712799913758D-01,  5.949773008037845D-02,  4.066487888089951D-02, &
 -3.538124036025474D-01,  5.741754846631917D-01,  1.454074748757973D-02, &
 -3.469245014798072D-01, -5.093114780151489D-01,  3.377755276109650D-02, &
 -3.282417053015600D-01, -2.037015005394916D-01,  2.733887753306074D-02, &
 -3.131220942783493D-01, -8.518113941722779D-01,  1.597548862353881D-02, &
 -2.898525204314484D-01,  4.261338334628221D-01,  1.508608675885359D-02, &
 -2.882387623730816D-01, -6.853570019217500D-01,  1.688354844281806D-02, &
 -2.702465413583358D-01,  7.030983141548524D-01,  2.434400019199495D-02, &
 -2.508609565354079D-01,  8.968720007287277D-01,  1.702860129891579D-02, &
 -2.295191348329352D-01,  2.120242218321433D-01,  4.168382939934718D-02, &
 -2.272941564596992D-01, -9.960184881945845D-01,  3.049828038296397D-03, &
 -2.264708864968271D-01, -9.349035701784980D-01,  1.391154926700919D-02, &
 -2.246333439376893D-01,  9.827415964495356D-01,  7.017267263314176D-03, &
 -2.114669394714854D-01, -3.735617108580254D-01,  3.956793096822071D-02, &
 -2.089912056577438D-01, -7.231174948680190D-02,  4.093460500440146D-02, &
 -2.088716807934302D-01,  5.073561793189525D-01,  2.832407460904032D-02, &
 -1.854458909022641D-01, -7.951187042517341D-01,  2.077334257293032D-02, &
 -1.842272015612801D-01, -6.069003654432927D-01,  2.779454600167818D-02, &
 -1.777934970536059D-01,  7.780240581694521D-01,  1.585670340057501D-02, &
 -1.355056850182737D-01,  9.495952359773809D-01,  4.847063927629738D-03, &
 -9.279375419038796D-02,  6.222406899096711D-01,  3.101829992759421D-02, &
 -8.902511936497644D-02,  8.391229312717673D-01,  1.695975469484219D-02, &
 -8.734458962076150D-02,  3.558214042720322D-01,  3.984235442334169D-02, &
 -8.571835501122597D-02, -9.754128963485780D-01,  8.697179874291300D-03, &
 -7.422536842735775D-02, -8.831710824906397D-01,  1.813390976222609D-02, &
 -7.156922510987426D-02, -2.275959622954337D-01,  4.227714481951355D-02, &
 -7.101258554499701D-02,  7.775804214199432D-02,  4.334052544550671D-02, &
 -6.035205037448012D-02, -7.014869129344957D-01,  1.646744774690809D-02, &
 -6.004312209068092D-02,  9.389290315999793D-01,  1.055063932869926D-02, &
 -5.380430609957936D-02,  9.956336871057816D-01,  3.141838490889661D-03, &
 -5.001273890650990D-02, -4.928052077494132D-01,  3.665549033605845D-02, &
 -9.807961584190060D-03, -7.518448026748643D-01,  1.483105676671131D-02, &
 9.807961584190060D-03,  7.518448026748643D-01,  1.483105676671131D-02, &
 5.001273890650990D-02,  4.928052077494132D-01,  3.665549033605845D-02, &
 5.380430609957936D-02, -9.956336871057816D-01,  3.141838490889661D-03, &
 6.004312209068092D-02, -9.389290315999793D-01,  1.055063932869926D-02, &
 6.035205037448012D-02,  7.014869129344957D-01,  1.646744774690809D-02, &
 7.101258554499701D-02, -7.775804214199432D-02,  4.334052544550671D-02, &
 7.156922510987426D-02,  2.275959622954337D-01,  4.227714481951355D-02, &
 7.422536842735775D-02,  8.831710824906397D-01,  1.813390976222609D-02, &
 8.571835501122597D-02,  9.754128963485780D-01,  8.697179874291300D-03, &
 8.734458962076150D-02, -3.558214042720322D-01,  3.984235442334169D-02, &
 8.902511936497644D-02, -8.391229312717673D-01,  1.695975469484219D-02, &
 9.279375419038796D-02, -6.222406899096711D-01,  3.101829992759421D-02, &
 1.355056850182737D-01, -9.495952359773809D-01,  4.847063927629738D-03, &
 1.777934970536059D-01, -7.780240581694521D-01,  1.585670340057501D-02, &
 1.842272015612801D-01,  6.069003654432927D-01,  2.779454600167818D-02, &
 1.854458909022641D-01,  7.951187042517341D-01,  2.077334257293032D-02, &
 2.088716807934302D-01, -5.073561793189525D-01,  2.832407460904032D-02, &
 2.089912056577438D-01,  7.231174948680190D-02,  4.093460500440146D-02, &
 2.114669394714854D-01,  3.735617108580254D-01,  3.956793096822071D-02, &
 2.246333439376893D-01, -9.827415964495356D-01,  7.017267263314176D-03, &
 2.264708864968271D-01,  9.349035701784980D-01,  1.391154926700919D-02, &
 2.272941564596992D-01,  9.960184881945845D-01,  3.049828038296397D-03, &
 2.295191348329352D-01, -2.120242218321433D-01,  4.168382939934718D-02, &
 2.508609565354079D-01, -8.968720007287277D-01,  1.702860129891579D-02, &
 2.702465413583358D-01, -7.030983141548524D-01,  2.434400019199495D-02, &
 2.882387623730816D-01,  6.853570019217500D-01,  1.688354844281806D-02, &
 2.898525204314484D-01, -4.261338334628221D-01,  1.508608675885359D-02, &
 3.131220942783493D-01,  8.518113941722779D-01,  1.597548862353881D-02, &
 3.282417053015600D-01,  2.037015005394916D-01,  2.733887753306074D-02, &
 3.469245014798072D-01,  5.093114780151489D-01,  3.377755276109650D-02, &
 3.538124036025474D-01, -5.741754846631917D-01,  1.454074748757973D-02, &
 3.645712799913758D-01, -5.949773008037845D-02,  4.066487888089951D-02, &
 3.653673059860704D-01,  9.753012851813677D-01,  8.368304519228926D-03, &
 3.717776952778286D-01, -8.276226068123943D-01,  1.892035069295494D-02, &
 3.772235876850343D-01, -3.495735710597775D-01,  3.119665329913849D-02, &
 3.794623453333835D-01, -9.538177413235013D-01,  1.114591704523323D-02, &
 3.832536927501162D-01, -9.979855334480493D-01,  2.234175560395208D-03, &
 3.917275322790500D-01,  2.763915160061775D-01,  2.066535103271340D-02, &
 3.964381931274395D-01,  7.402485185211833D-01,  2.066230577186247D-02, &
 4.065029720082786D-01, -6.264617368348774D-01,  1.614341656613300D-02, &
 4.247086062086841D-01,  9.049304493933019D-01,  1.318933688912641D-02, &
 4.606315835191566D-01, -7.592681033169186D-01,  1.498569479673017D-02, &
 4.652861756571924D-01,  6.195234647797874D-01,  1.584655621464966D-02, &
 4.867250611982683D-01, -5.069290645382520D-01,  2.181757841571514D-02, &
 4.882533660406217D-01, -2.148638214494721D-01,  3.418958389588500D-02, &
 4.900963037914226D-01,  3.938750807407649D-01,  3.202384141512818D-02, &
 4.937487614230233D-01,  9.959198263215358D-01,  2.729762079728744D-03, &
 4.938892072238822D-01,  9.399631019971544D-02,  3.808292738661537D-02, &
 5.005240240607661D-01, -9.025303947810552D-01,  1.461332246120154D-02, &
 5.217356658216146D-01,  8.191869945411094D-01,  1.965283477527441D-02, &
 5.323778014446715D-01, -9.820204941474223D-01,  6.618755503045249D-03, &
 5.352356532684714D-01,  5.949900365542921D-01,  1.257623121836303D-02, &
 5.392273233424993D-01,  9.497301018552529D-01,  1.000131088526367D-02, &
 5.392718444436758D-01,  6.640373564025523D-01,  6.853039280534112D-03, &
 5.426224610168304D-01, -6.721678667912533D-01,  1.507682570233586D-02, &
 5.595952952122188D-01, -4.183137864951066D-01,  2.109228735521581D-02, &
 5.844053681740743D-01, -7.439581399260577D-01,  9.673537687961857D-03, &
 5.864000058451709D-01, -8.398830909360200D-01,  9.794020060223996D-03, &
 6.020155389610803D-01, -7.193745911974410D-02,  3.280026289766638D-02, &
 6.052836931615376D-01,  2.550054118031913D-01,  3.145439290857988D-02, &
 6.291453725213981D-01, -5.401236508742461D-01,  8.067204019727233D-03, &
 6.298334119568398D-01,  4.991303444532345D-01,  2.693509156798771D-02, &
 6.353365310873343D-01,  7.289411912040862D-01,  2.112609662944668D-02, &
 6.356111898627910D-01, -2.888888071755747D-01,  1.689616308681305D-02, &
 6.450169863776212D-01,  9.837401664708233D-01,  5.320225765195333D-03, &
 6.450928247980198D-01,  8.897594199253124D-01,  1.467091129012532D-02, &
 6.471433178579986D-01, -9.435400364191848D-01,  1.053431875912228D-02, &
 6.574739030221062D-01, -6.056292870332995D-01,  1.928874088451468D-02, &
 6.661024488936084D-01, -8.365632468531969D-01,  1.043213484692862D-02, &
 6.671777044407723D-01, -9.965429698430747D-01,  2.043998547474421D-03, &
 6.732322428485551D-01, -3.420204047422755D-01,  1.378566447967479D-02, &
 6.810402042857588D-01,  1.522180405710772D-01,  9.694473603796364D-03, &
 7.068497539323653D-01,  5.980644840754300D-02,  2.389888208127354D-02, &
 7.287657206722611D-01, -7.405217467057846D-01,  1.766147427786541D-02, &
 7.315599487238387D-01,  3.750364118349838D-01,  2.628156017590748D-02, &
 7.347330924126372D-01,  6.233626922279565D-01,  2.200766479881018D-02, &
 7.437239011702286D-01, -1.745124876671426D-01,  2.695721316522005D-02, &
 7.467703985197518D-01,  8.150373305425095D-01,  1.612171337958705D-02, &
 7.476388136248332D-01,  9.482109321336361D-01,  8.869792121065277D-03, &
 7.479025577044630D-01, -4.742891505995823D-01,  2.322814942159416D-02, &
 7.582407204546612D-01,  9.977747817904907D-01,  1.471436198785488D-03, &
 7.595914562260390D-01, -9.774953228487998D-01,  5.007040345181551D-03, &
 7.630151789434809D-01, -8.944374728168084D-01,  1.178494783231054D-02, &
 7.994401076934280D-01,  2.090758091368732D-01,  2.285093214933729D-02, &
 8.077195745093785D-01, -6.402169882573437D-01,  1.719971170125941D-02, &
 8.235861595693262D-01,  5.100296033516193D-01,  2.030894605456216D-02, &
 8.240658406348467D-01, -2.473915430588143D-02,  2.254370190641922D-02, &
 8.249812915580336D-01, -3.366002739808117D-01,  2.128624669032709D-02, &
 8.323418772294408D-01,  7.249676279524006D-01,  1.575346317085866D-02, &
 8.338881116659986D-01,  8.932750703415656D-01,  1.036216371830049D-02, &
 8.380687425956748D-01, -8.117290446268374D-01,  1.347035082702432D-02, &
 8.398481586927637D-01, -9.961877079907046D-01,  1.304263243999687D-03, &
 8.458535483524889D-01,  9.815128577523679D-01,  4.137548861495137D-03, &
 8.484438717285120D-01, -9.509156312117837D-01,  5.738054352556750D-03, &
 8.710753346416532D-01, -5.340745871340347D-01,  1.443864424160225D-02, &
 8.746116719331715D-01,  3.448361698711476D-01,  1.765094462924452D-02, &
 8.840140563237966D-01, -1.969976541674721D-01,  1.596015406249639D-02, &
 8.949592560928252D-01,  1.162935700588350D-01,  1.704399639079853D-02, &
 8.966208411354669D-01, -9.032456722718886D-01,  6.128920772776423D-03, &
 9.017715031500836D-01,  6.268263259886000D-01,  1.344763853761130D-02, &
 9.029200480204936D-01,  8.212018233771367D-01,  1.010629097307952D-02, &
 9.037513800248385D-01, -7.152403666234081D-01,  1.254893510280643D-02, &
 9.109849110758503D-01,  9.453953022277268D-01,  5.441926862298386D-03, &
 9.121815833695173D-01, -9.882371567284969D-01,  2.019136532361037D-03, &
 9.163559242547217D-01, -4.235110040036954D-01,  1.200757888591889D-02, &
 9.267775091062305D-01, -8.114744510060384D-02,  1.023519688964817D-02, &
 9.286585069364643D-01,  9.958860857406989D-01,  1.228760288290566D-03, &
 9.316184094587854D-01,  4.719381834645925D-01,  1.149946336342146D-02, &
 9.373768292011957D-01, -8.493689030467824D-01,  5.846679077116532D-03, &
 9.474949611934800D-01,  2.528714063790848D-01,  1.171512879678826D-02, &
 9.490472836637540D-01, -9.596558694888836D-01,  3.220645239038979D-03, &
 9.515429157747712D-01, -2.941640121000471D-01,  1.034277329324190D-02, &
 9.518800297972723D-01, -6.005875476668143D-01,  1.012666553714644D-02, &
 9.545890590274086D-01,  7.377847025903865D-01,  8.094745379189257D-03, &
 9.590320135912280D-01,  8.917513123920264D-01,  5.150986564054207D-03, &
 9.603776991602971D-01,  2.153921649724314D-02,  8.448862253501903D-03, &
 9.672092676086640D-01, -7.825063090118517D-01,  5.021658745346757D-03, &
 9.719927242736324D-01,  9.738032840708760D-01,  2.184317380157956D-03, &
 9.732806127131356D-01,  5.909702866713498D-01,  6.577441961101425D-03, &
 9.778060661329431D-01,  3.970269563950553D-01,  6.040841876140015D-03, &
 9.781563938994409D-01, -9.946089769037700D-01,  7.827411078516896D-04, &
 9.801636812194632D-01, -4.593560896100384D-01,  6.656001065255846D-03, &
 9.808343955917264D-01, -9.119881406240292D-01,  3.204352632730979D-03, &
 9.815404512250665D-01, -1.578509309909750D-01,  6.740930954579635D-03, &
 9.863969994171303D-01,  1.393885680294662D-01,  5.467653298722175D-03, &
 9.882776096714541D-01, -6.996008607192892D-01,  3.762641387033618D-03, &
 9.891970457464104D-01,  8.249338141061554D-01,  3.217331206511223D-03, &
 9.946606993258253D-01,  9.946657556011911D-01,  3.187304244494703D-04, &
 9.947425612275775D-01,  6.937725695763057D-01,  2.327244406193416D-03, &
 9.951431493831727D-01,  9.317895250779106D-01,  1.311747532188187D-03, &
 9.957989442071229D-01,  2.946071658312556D-01,  2.310642786475657D-03, &
 9.958948247928820D-01, -3.162381906315679D-01,  2.750378228739487D-03, &
 9.966744182696170D-01,  5.085108565093430D-01,  1.980803681920541D-03, &
 9.966780331371223D-01, -9.694002319896394D-01,  7.243867200693780D-04, &
 9.970436400762405D-01, -8.380584517844631D-01,  1.474635255954523D-03, &
 9.974803510397799D-01, -5.723617700464594D-01,  1.730177315995435D-03, &
 9.983507138390728D-01, -2.846923651716276D-02,  1.946248040917511D-03 /)

  return
end
subroutine smr40 ( xyw )

!*****************************************************************************80
!
!! SMR40 returns the SMR rule of degree 40.
!
!  Discussion:
!
!    DEGREE: 40
!    POINTS CARDINALITY: 296
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*296), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*296)

  xyw = (/ &
 -9.980037227196614D-01,  1.255939443038006D-01,  2.053102393463664D-03, &
 -9.975374042816840D-01,  5.936108405943805D-01,  1.276187489810420D-03, &
 -9.972861466402049D-01, -6.627439420820114D-01,  1.580298156253981D-03, &
 -9.968592673741854D-01,  8.736423351683437D-01,  1.202945592410809D-03, &
 -9.966589451189311D-01, -4.369849380251707D-01,  2.115586380569520D-03, &
 -9.965219690837533D-01, -1.944638806631471D-01,  2.429919318140257D-03, &
 -9.964358393204891D-01,  4.092031891829934D-01,  2.182777026867640D-03, &
 -9.963941450446951D-01,  9.775574537230374D-01,  5.781357112514488D-04, &
 -9.955864247426816D-01, -9.784933334191470D-01,  6.423485659734820D-04, &
 -9.955242411687316D-01, -8.201261852647251D-01,  1.452148584658119D-03, &
 -9.913130830294992D-01,  7.451950336474148D-01,  3.099740554076827D-03, &
 -9.900337734476057D-01, -9.112486663047842D-01,  2.026525375041507D-03, &
 -9.844939696556546D-01, -3.396948505159310D-02,  6.297322525864257D-03, &
 -9.828708241253864D-01,  2.672014458471039D-01,  6.110796337925116D-03, &
 -9.813352997502048D-01,  9.317282602187734D-01,  2.388338374639091D-03, &
 -9.812506993249306D-01, -5.599844336596295D-01,  5.433547359777527D-03, &
 -9.811994633761572D-01,  5.954700474743184D-01,  3.855922634832198D-03, &
 -9.787064347309005D-01, -3.245284003636001D-01,  6.507740619311661D-03, &
 -9.780647700362322D-01, -7.464363616852314D-01,  4.386694918546395D-03, &
 -9.768709333873531D-01,  9.964868257322258D-01,  5.743979761358160D-04, &
 -9.743127159036291D-01, -9.969203399240063D-01,  5.885958513598154D-04, &
 -9.719890138043383D-01,  4.635529385440017D-01,  5.543426475209034D-03, &
 -9.663961744212400D-01,  8.297161334267321D-01,  5.377245930028534D-03, &
 -9.624486391679733D-01, -9.552403379650487D-01,  2.935271926976710D-03, &
 -9.571101155486035D-01, -8.504016909299451D-01,  5.548045896834978D-03, &
 -9.569508072526900D-01,  1.145259922791730D-01,  1.019364727373913D-02, &
 -9.539620291105575D-01,  9.656118875216714D-01,  2.000317967473577D-03, &
 -9.531361804534030D-01, -1.756012259335100D-01,  1.012788272053494D-02, &
 -9.503256987566595D-01,  6.828228592655408D-01,  8.213806957862843D-03, &
 -9.455690174869477D-01, -4.553679978362609D-01,  1.002546929027743D-02, &
 -9.444080894387320D-01, -6.600309149596145D-01,  8.342165274488325D-03, &
 -9.363352068572794D-01,  3.305989409491193D-01,  1.063637549554008D-02, &
 -9.344111368509483D-01,  5.018191785468655D-01,  7.093229113292136D-03, &
 -9.250445674046065D-01,  8.992422617422033D-01,  6.279305248680532D-03, &
 -9.225703808148057D-01,  9.858292479280879D-01,  1.834573979737579D-03, &
 -9.165441617582062D-01, -9.853128908447532D-01,  2.565324347525059D-03, &
 -9.150614770382599D-01, -3.139530918232870D-02,  1.359896871759167D-02, &
 -9.103915600727824D-01, -9.092647756707973D-01,  6.216724896190497D-03, &
 -9.074945980525453D-01, -3.110157725349993D-01,  1.298683840693059D-02, &
 -9.043535181463653D-01, -7.713160602214696D-01,  1.024303332784389D-02, &
 -9.025325558225301D-01,  7.743255817267981D-01,  1.011918005042377D-02, &
 -8.936138114540279D-01,  1.960899239677014D-01,  1.411969841594799D-02, &
 -8.921757562307675D-01,  5.847775228961032D-01,  1.223494929054215D-02, &
 -8.914413155620955D-01, -5.644405075920796D-01,  1.287350206631372D-02, &
 -8.651606789959365D-01,  9.507227302652309D-01,  5.817570712124294D-03, &
 -8.624964059071404D-01,  4.007509803672114D-01,  1.631963389227952D-02, &
 -8.624016491888394D-01,  9.973607974975222D-01,  1.085292256544525D-03, &
 -8.571481676731489D-01, -1.732871980674100D-01,  1.643819257648864D-02, &
 -8.511908836822574D-01, -4.127628928140689D-01,  1.185185065054727D-02, &
 -8.471275338153255D-01, -9.533530423203328D-01,  5.827596397572629D-03, &
 -8.433676706517138D-01,  5.983417524756374D-02,  1.569370700632547D-02, &
 -8.424649352939378D-01,  8.531606755621376D-01,  1.000254175836821D-02, &
 -8.382814166059266D-01, -9.973371948408554D-01,  1.236406010086881D-03, &
 -8.380565845515963D-01, -8.466246757209853D-01,  1.074234765384687D-02, &
 -8.321936110008199D-01, -6.779831075876902D-01,  1.522781703701599D-02, &
 -8.286278033800711D-01,  6.833732733978219D-01,  1.509304227664999D-02, &
 -8.055255758765038D-01, -4.763880300923605D-01,  1.085366933632746D-02, &
 -7.971673647784905D-01,  2.532323209821991D-01,  2.052836615250460D-02, &
 -7.910441928184301D-01,  5.077971678500216D-01,  1.780077542770354D-02, &
 -7.859172990177037D-01, -7.833283965104983D-02,  1.472595970793188D-02, &
 -7.798224683613482D-01,  9.817158588687893D-01,  4.411372664168903D-03, &
 -7.733447858053083D-01, -2.912095449947633D-01,  2.109987317572403D-02, &
 -7.707288564403509D-01,  9.135259150232076D-01,  8.345329225642115D-03, &
 -7.578198426154767D-01, -9.796098169168449D-01,  4.456574433684158D-03, &
 -7.562414896721606D-01, -9.049214717524879D-01,  1.001882084525143D-02, &
 -7.548211869038036D-01,  7.785365721991255D-01,  1.478039679943451D-02, &
 -7.494378413286128D-01, -7.662608330090768D-01,  1.581956505815484D-02, &
 -7.445473618861123D-01, -5.699700714382581D-01,  1.889632922544271D-02, &
 -7.423038822674627D-01,  7.897961507665216D-02,  1.715604114405427D-02, &
 -7.170452369551987D-01,  6.041689391836269D-01,  1.721434133773814D-02, &
 -7.096177258303671D-01,  3.669023638814550D-01,  2.303538633973196D-02, &
 -6.947187172157958D-01, -9.098243292500578D-02,  1.600840192685054D-02, &
 -6.827474344539016D-01,  8.632122010101693D-01,  9.488912002746175D-03, &
 -6.766766916048634D-01, -4.118520712505950D-01,  2.365726668658341D-02, &
 -6.757537207484740D-01,  9.965428761249577D-01,  1.913682375287724D-03, &
 -6.716977448629430D-01,  9.507129459344548D-01,  7.775380155384150D-03, &
 -6.705672963967729D-01, -2.084540920008020D-01,  1.628326394109379D-02, &
 -6.634191394897307D-01, -9.956567399175887D-01,  2.049561637770933D-03, &
 -6.628050205606234D-01,  1.672916166402376D-01,  2.265410339187529D-02, &
 -6.572284494011310D-01, -9.451593820143880D-01,  8.033722247688203D-03, &
 -6.502802198668451D-01, -6.663478504843525D-01,  2.086896333372951D-02, &
 -6.500944652911421D-01, -8.388046887319990D-01,  1.533892815116460D-02, &
 -6.494395416059597D-01,  6.978896106401927D-01,  1.632586135380591D-02, &
 -6.182525423851862D-01,  4.772666066191493D-01,  2.314379901273175D-02, &
 -6.097521926338272D-01,  8.178387432803899D-01,  1.027570595259021D-02, &
 -5.857038932505656D-01, -1.750697876397254D-03,  2.826026275637352D-02, &
 -5.765612790071245D-01, -5.184987079049800D-01,  2.276145801578116D-02, &
 -5.737142051029732D-01, -3.132765352046541D-01,  1.443899895963975D-02, &
 -5.644865970292597D-01,  9.783893306945404D-01,  5.710986844724012D-03, &
 -5.644553463342945D-01,  2.782921931969836D-01,  2.781479815231922D-02, &
 -5.580769546100564D-01, -9.759275455445522D-01,  5.684058667060024D-03, &
 -5.542741288051631D-01,  9.016977074485676D-01,  1.168589067769203D-02, &
 -5.542073588689838D-01, -2.043031348070334D-01,  1.827083660577868D-02, &
 -5.433087051306172D-01,  5.922649560095551D-01,  1.990937282981727D-02, &
 -5.386567969465166D-01, -8.983031172510674D-01,  1.272427456995568D-02, &
 -5.373382383966947D-01, -7.520144164271236D-01,  2.091503656277224D-02, &
 -5.224304686125945D-01,  7.455130741439847D-01,  1.698684695502466D-02, &
 -4.893827154330137D-01, -5.941538126001544D-01,  1.598966080652984D-02, &
 -4.722069619254669D-01, -3.587550371799506D-01,  2.132063146049633D-02, &
 -4.718832732594200D-01, -9.958106507002302D-01,  2.226108918584357D-03, &
 -4.706670553696944D-01,  1.154506383897263D-01,  2.935766164731613D-02, &
 -4.626454569472719D-01,  9.963250210519803D-01,  2.223046715737653D-03, &
 -4.600264076712823D-01,  3.966582665227552D-01,  2.629091387627286D-02, &
 -4.481481045273694D-01,  9.395445338170469D-01,  8.839978177696708D-03, &
 -4.415878841168007D-01, -1.062065683181053D-01,  3.058245417110486D-02, &
 -4.412583635452328D-01,  5.087399017780769D-01,  1.125492379082715D-02, &
 -4.304912794659402D-01, -4.469668566457143D-01,  1.012062172404055D-02, &
 -4.287211566152106D-01,  8.321571485937996D-01,  1.786605784125267D-02, &
 -4.223793646176035D-01, -8.333753189124466D-01,  1.730213472188374D-02, &
 -4.222588890220841D-01, -9.452641667145504D-01,  1.007216794776104D-02, &
 -4.083597732182007D-01,  6.509919047599022D-01,  2.181242775531822D-02, &
 -3.998205203687450D-01, -6.594190487482490D-01,  2.190933309032257D-02, &
 -3.695693944824219D-01,  2.193101954125042D-01,  2.327576101611239D-02, &
 -3.676144523897173D-01,  9.682350478689863D-01,  4.815232646045845D-03, &
 -3.591049460581930D-01, -4.614598488900264D-01,  1.852799716750301D-02, &
 -3.447647402371574D-01, -2.381537435610105D-01,  2.808527790039856D-02, &
 -3.341217099662899D-01, -9.826197273812773D-01,  5.494849259173287D-03, &
 -3.093195936880301D-01,  3.287238905146597D-01,  2.185303504037471D-02, &
 -3.072048398998126D-01,  9.859602190406442D-01,  3.831362623751753D-03, &
 -3.058002206640513D-01,  2.103076331772531D-02,  3.459647562394031D-02, &
 -3.044867199555938D-01,  5.186120611581733D-01,  2.833979791519306D-02, &
 -3.028681432998989D-01, -7.600469172213820D-01,  1.964686881716537D-02, &
 -3.024605574449728D-01,  8.931659138204667D-01,  1.538434812191329D-02, &
 -3.011532601990519D-01,  7.437794313731125D-01,  2.273787326209627D-02, &
 -2.887440306182171D-01, -8.957912044678301D-01,  1.555524233275056D-02, &
 -2.644411240015258D-01, -5.502788852260921D-01,  2.671171545840637D-02, &
 -2.400609781144449D-01, -3.260570838043731D-01,  2.569267849167105D-02, &
 -2.246489878361267D-01, -9.978033236073471D-01,  1.770873804828288D-03, &
 -2.066616281756470D-01, -1.045383048279050D-01,  2.497609050660571D-02, &
 -2.009374136079489D-01,  2.040282941161825D-01,  2.267428085593906D-02, &
 -1.909926939589495D-01,  9.968668571166585D-01,  2.126801518422638D-03, &
 -1.887172076094760D-01, -9.549438196754605D-01,  1.035110388694925D-02, &
 -1.885639548532559D-01, -6.847997847346543D-01,  2.014138051533820D-02, &
 -1.856269263888624D-01,  9.475270956402012D-01,  1.146925671119005D-02, &
 -1.790760401308231D-01,  6.312120892250483D-01,  2.910873684757638D-02, &
 -1.707661353723164D-01,  8.213933035442971D-01,  2.057181928201535D-02, &
 -1.702074855482027D-01,  4.002072179476484D-01,  2.982548255683739D-02, &
 -1.505878349304818D-01, -8.293254383680554D-01,  2.076026265668495D-02, &
 -1.380074232134180D-01,  1.170336739663703D-01,  2.527234775085595D-02, &
 -1.268389913099443D-01, -4.236318257465341D-01,  3.117645114412499D-02, &
 -1.153288220374788D-01, -1.747226323716413D-01,  2.609156073209279D-02, &
 -8.202442049825323D-02, -6.034256289197292D-01,  2.293044125103543D-02, &
 -6.778022692220509D-02, -9.864359427377531D-01,  5.537492701577899D-03, &
 -5.134750275993507D-02,  9.806699464341012D-01,  7.025195533489713D-03, &
 -4.796731115368809D-02,  5.109816289271156D-01,  2.949281042166952D-02, &
 -4.605994163927313D-02,  8.940716194171991D-01,  1.696854743218261D-02, &
 -4.447210172626447D-02, -9.096553765331403D-01,  1.548395021034487D-02, &
 -4.115113842285135D-02,  7.297743920654538D-01,  2.604976478474774D-02, &
 -2.744836558183677D-02,  4.417586914136311D-03,  3.387227419183413D-02, &
 -1.995488830453244D-02,  2.898374142768337D-01,  3.548548223572283D-02, &
 -9.393841375026718D-03, -7.464248084281863D-01,  2.510074937831712D-02, &
 5.604522124288533D-03, -2.838153304903738D-01,  3.557931287068862D-02, &
 3.379282258563019D-02, -5.108284849354834D-01,  2.741093593275501D-02, &
 7.396931495071729D-02,  6.103364495915078D-01,  2.553255759952799D-02, &
 7.811073060419052D-02, -9.596104105748841D-01,  9.711338256956472D-03, &
 8.053272615641659D-02,  1.616603676436590D-01,  2.424025867338976D-02, &
 8.332876758512328D-02, -9.980434804933414D-01,  1.698291109393467D-03, &
 8.611110621478242D-02,  9.972454574738652D-01,  2.305464957382294D-03, &
 9.098018561909829D-02,  9.458495772991818D-01,  1.224095474595298D-02, &
 9.177090470118981D-02,  8.205555321043025D-01,  2.227240136214740D-02, &
 9.706026488340756D-02, -8.463187115614078D-01,  2.019012230112588D-02, &
 9.815256847947500D-02, -9.239456937873544D-02,  2.644315338527209D-02, &
 1.222602596423681D-01,  4.213511759613903D-01,  3.341374966024566D-02, &
 1.323057369500668D-01, -6.509117254364495D-01,  2.871043880147142D-02, &
 1.476438086930435D-01, -4.017405050343198D-01,  2.837624979369559D-02, &
 1.700850694113563D-01, -1.780332539520100D-01,  2.291185695253523D-02, &
 1.736805569574461D-01,  1.096612012416960D-01,  2.405540809236990D-02, &
 1.843432890535553D-01,  6.990228911926680D-01,  2.163148537165614D-02, &
 1.995648926700597D-01, -9.818731842028169D-01,  3.370075215701449D-03, &
 2.081596610552691D-01,  2.925076496248445D-01,  1.903382067011115D-02, &
 2.211797307297267D-01, -9.164694403878136D-01,  1.468906732639756D-02, &
 2.277074094032160D-01,  9.805932530165899D-01,  7.084751090497078D-03, &
 2.292021628595871D-01,  8.912694976681395D-01,  1.721353195733831D-02, &
 2.353608895201955D-01, -3.491298395101170D-01,  9.892666536128697D-03, &
 2.385004221656652D-01, -7.689128083096237D-01,  2.393352337395165D-02, &
 2.613881314139023D-01,  5.471551577512984D-01,  3.040265099653250D-02, &
 2.662205097670882D-01, -9.919548226778696D-01,  2.707867154217599D-03, &
 2.680565017395204D-01, -5.400402346502616D-01,  3.088207638947784D-02, &
 2.833408004935626D-01, -6.718319274714699D-03,  3.511070135380980D-02, &
 2.921989695479881D-01,  7.730713136429667D-01,  1.950015697008031D-02, &
 2.932051140793899D-01, -2.568476496223008D-01,  2.600581679576460D-02, &
 3.010766919534110D-01,  3.879280619333716D-01,  1.093142774025551D-02, &
 3.103865035997045D-01,  2.499428455332039D-01,  2.499586360508493D-02, &
 3.585933886911649D-01, -8.576820377675525D-01,  1.842882832290949D-02, &
 3.596570955415763D-01, -9.615962408411522D-01,  9.068153972939736D-03, &
 3.618929539106814D-01,  9.449875484526220D-01,  1.169739415667232D-02, &
 3.672563754612045D-01,  9.968578675032447D-01,  2.310464434967522D-03, &
 3.689758663333720D-01, -6.723055595123385D-01,  2.553001008106885D-02, &
 3.871364360677614D-01, -3.963308613870815D-01,  2.492421215216349D-02, &
 3.982469712949650D-01,  4.487336172829021D-01,  2.309608167942591D-02, &
 3.983155249621386D-01,  6.561427847972009D-01,  2.730674172786235D-02, &
 4.034252589810011D-01,  8.423386731412055D-01,  1.707487237256047D-02, &
 4.102541856930609D-01, -1.410736134292944D-01,  3.151312043028231D-02, &
 4.168183088396271D-01,  1.263343252035515D-01,  3.270130716222084D-02, &
 4.356104174313109D-01, -9.957058788304909D-01,  2.363557214215902D-03, &
 4.405318740860549D-01, -4.926398721055529D-01,  1.608280706132078D-02, &
 4.649771622601932D-01,  3.483599503333080D-01,  1.925449126504078D-02, &
 4.709325171484977D-01, -7.695942184085469D-01,  1.705050367502311D-02, &
 4.850638966079184D-01, -9.216775010693871D-01,  1.252775237505845D-02, &
 4.932957374397012D-01,  9.795648836635775D-01,  6.463044419371160D-03, &
 5.128665631816022D-01,  9.033981066102003D-01,  1.292621422635387D-02, &
 5.150863190443300D-01, -5.934248074499449D-01,  2.363213862387783D-02, &
 5.156373648667533D-01,  5.651053767086885D-01,  1.423781492860490D-02, &
 5.181912316625248D-01, -2.922194304405071D-01,  2.989079134667543D-02, &
 5.251717070662635D-01,  7.552962710143433D-01,  2.242429087194216D-02, &
 5.269679036105911D-01, -2.177852596986115D-02,  2.944698631679846D-02, &
 5.359327347133740D-01, -8.200294790454760D-01,  8.860113200433273D-03, &
 5.388079818555839D-01, -9.812499958704087D-01,  4.680745828233062D-03, &
 5.434833238763666D-01,  2.380283686509251D-01,  2.395538344613452D-02, &
 5.496379512343986D-01,  5.253805284097529D-01,  1.632157824790180D-02, &
 6.051493656005358D-01, -4.503578461535495D-01,  2.612344895845866D-02, &
 6.124277898034318D-01,  9.967024781187570D-01,  2.002070456520778D-03, &
 6.140603542011213D-01,  3.676905093247132D-01,  1.890620847606754D-02, &
 6.149248157512081D-01, -8.737165849180063D-01,  1.296667270713843D-02, &
 6.154648019220623D-01, -7.039292064085437D-01,  2.124810385786090D-02, &
 6.216520374448096D-01,  9.489344195184967D-01,  8.530620092099012D-03, &
 6.262996333546856D-01, -9.603966937474196D-01,  6.014411655091729D-03, &
 6.266507568536149D-01, -1.753112127213321D-01,  2.574430846684179D-02, &
 6.320748250590934D-01,  9.236778723276985D-02,  2.509516970454762D-02, &
 6.371103207708532D-01,  8.421673270141240D-01,  1.637617879409531D-02, &
 6.445697045015427D-01,  6.589930041457702D-01,  2.309339250212301D-02, &
 6.611641817999792D-01, -9.971250985273443D-01,  1.780949246753485D-03, &
 6.827225489763870D-01,  4.582089303489358D-01,  1.967115820258447D-02, &
 7.007607922685678D-01, -5.793001008608837D-01,  2.187824067436787D-02, &
 7.074131809621955D-01, -3.372902789247548D-01,  2.360006012075187D-02, &
 7.117739087420435D-01,  2.241359340497962D-01,  2.258162720143967D-02, &
 7.151943805770620D-01, -7.271602060694378D-02,  2.063320130758209D-02, &
 7.155680922709143D-01, -7.994435082716885D-01,  1.620969075703751D-02, &
 7.187947908611272D-01, -9.289105584767267D-01,  8.674348771692817D-03, &
 7.188580147804288D-01,  9.801870566125678D-01,  4.556848768699447D-03, &
 7.407850806335647D-01,  9.092174747735176D-01,  1.069960175297740D-02, &
 7.414535252324259D-01,  7.627992252808989D-01,  1.713716583993931D-02, &
 7.620781689289542D-01,  5.682929391541718D-01,  1.992594154989019D-02, &
 7.635939132299792D-01, -9.831481015790724D-01,  4.153559323873574D-03, &
 7.797638735837149D-01,  4.665676142002305D-02,  1.954090589438721D-02, &
 7.867620038671331D-01,  3.403489048139350D-01,  1.972374555702004D-02, &
 7.883553505223821D-01, -6.893416107380125D-01,  1.663667575800614D-02, &
 7.942764870013759D-01, -4.707153685105653D-01,  1.983755770035392D-02, &
 7.952669529963022D-01, -2.273770055235256D-01,  2.028000921211288D-02, &
 7.990872541216331D-01,  9.962955158284175D-01,  1.408927698874655D-03, &
 8.066178878802995D-01, -8.762511423208362D-01,  1.090696275036013D-02, &
 8.274679999131711D-01,  8.480202028380042D-01,  1.137803861452648D-02, &
 8.297408153069072D-01,  9.581886918512165D-01,  5.948632265683609D-03, &
 8.377680145222012D-01,  6.811297101045124D-01,  1.536534914781161D-02, &
 8.427716005452982D-01, -9.571708221478029D-01,  4.952439619855199D-03, &
 8.488271945024087D-01,  1.666337693793623D-01,  1.887388216602816D-02, &
 8.525662030669592D-01,  4.592708043695782D-01,  1.653498201879920D-02, &
 8.561315417874497D-01, -9.598113535151943D-02,  1.680778035994472D-02, &
 8.606876078808835D-01, -9.969922689109865D-01,  1.288211684632280D-03, &
 8.613581542207239D-01, -7.784610468370953D-01,  1.096644364207657D-02, &
 8.690885595988450D-01, -5.894733063271762D-01,  1.503337345041933D-02, &
 8.723930444088900D-01, -3.621107058578862D-01,  1.641608892157977D-02, &
 8.962187117350728D-01,  9.900514429185334D-01,  2.177703335659953D-03, &
 8.978901908775218D-01,  9.150513717072788D-01,  6.528697758436882D-03, &
 8.995842578268963D-01, -9.234484518613306D-01,  5.137110006320958D-03, &
 9.026936084906036D-01,  7.808928092755504D-01,  1.012526399216284D-02, &
 9.070441620900885D-01,  3.009963311241410D-01,  1.501588480324425D-02, &
 9.077878820329093D-01,  5.794983066365614D-01,  1.246940196306337D-02, &
 9.111551364648940D-01, -8.412973077435701D-01,  5.641113054429737D-03, &
 9.142518109635371D-01,  2.169517484726380D-02,  1.439386845586924D-02, &
 9.173217644911268D-01, -2.254212884222193D-01,  1.167670360384378D-02, &
 9.282555961436508D-01, -6.912520433990101D-01,  9.933776930685268D-03, &
 9.284877628036031D-01, -9.817037571629690D-01,  2.694281259701618D-03, &
 9.334452240614641D-01, -4.859399349804389D-01,  1.184281101417954D-02, &
 9.468439730471343D-01,  9.657765158699502D-01,  3.003223815105551D-03, &
 9.506625037743694D-01,  4.376710347741515D-01,  1.025469033794625D-02, &
 9.520896121093332D-01,  8.643710868609885D-01,  5.555972363422187D-03, &
 9.523271992044501D-01,  6.913007415265950D-01,  7.990950689265556D-03, &
 9.545272982243453D-01, -8.811333722531620D-01,  3.828862340862868D-03, &
 9.554958506512122D-01,  1.588668533845889D-01,  1.058860881322785D-02, &
 9.598844841990601D-01, -3.304786335896162D-01,  6.696028105510322D-03, &
 9.612092716134895D-01, -1.252637834195337D-01,  8.918983273981967D-03, &
 9.664864057745631D-01, -7.771023857020345D-01,  5.108888381040824D-03, &
 9.696658884223082D-01, -9.486617819335378D-01,  2.629252771609383D-03, &
 9.714461152005505D-01,  9.966817132006599D-01,  6.382221125358519D-04, &
 9.756072026722676D-01, -9.972566545264508D-01,  5.380433266276414D-04, &
 9.756270675128569D-01, -5.974850205967676D-01,  6.836267790083512D-03, &
 9.794527164689676D-01,  5.643324681844055D-01,  5.410131191715718D-03, &
 9.826866520761600D-01,  7.911127382228441D-01,  3.928246838882010D-03, &
 9.831392239644022D-01,  9.303396888012979D-01,  2.423589086603377D-03, &
 9.832274416154096D-01,  3.033661616270960D-01,  6.310915040526618D-03, &
 9.843450993838505D-01, -4.150221010386896D-01,  4.095407382162835D-03, &
 9.849932890167565D-01,  7.572227591204869D-03,  5.802629795760786D-03, &
 9.909963827975042D-01, -2.639507972140410D-01,  3.395140293721511D-03, &
 9.912765561948801D-01, -8.332891526969999D-01,  1.953926311905468D-03, &
 9.934327301490941D-01,  6.231882587178860D-01,  9.287993595683975D-04, &
 9.937448936136122D-01, -9.092710501130503D-01,  1.256142182103206D-03, &
 9.948882230658729D-01, -7.050697257712721D-01,  2.287960809703529D-03, &
 9.951704470679726D-01,  9.801745622873680D-01,  6.475410324288955D-04, &
 9.952340236934687D-01, -9.783971899965007D-01,  6.447054298301821D-04, &
 9.963792308208721D-01,  6.981957876294371D-01,  1.512427084884079D-03, &
 9.970264968246741D-01,  4.457495638028096D-01,  2.107128717380615D-03, &
 9.977348846785328D-01, -1.427747693558082D-01,  1.552913600795280D-03, &
 9.977388598284106D-01,  1.545000376629158D-01,  2.038498731858248D-03, &
 9.982891584585788D-01,  8.710523206892243D-01,  9.529077858582162D-04, &
 9.991656973291163D-01, -5.021799411346501D-01,  1.444993876112607D-03 /)

  return
end
subroutine smr41 ( xyw )

!*****************************************************************************80
!
!! SMR41 returns the SMR rule of degree 41.
!
!  Discussion:
!
!    DEGREE: 41
!    SYMMETRY: (X,  Y),  (-X, -Y).
!    POINTS CARDINALITY: 303
!    NORM INF MOMS. RESIDUAL: 1.77636e-15
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*303), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*303)

  xyw = (/ &
 -9.979788599279722D-01, -8.620321171404657D-01,  9.843080418879427D-04, &
 -9.972233023651127D-01, -1.689643304774283D-01,  2.334603070096216D-03, &
 -9.968865665492763D-01,  1.264946845449128D-01,  2.336585497171821D-03, &
 -9.967543799903597D-01,  3.758322880625192D-01,  1.965952058779777D-03, &
 -9.966030911672050D-01, -4.414700559329136D-01,  2.103309187930437D-03, &
 -9.965848495106024D-01, -6.842725498070605D-01,  1.783337849517576D-03, &
 -9.961989059670616D-01,  9.525971037206539D-01,  6.660472520224310D-04, &
 -9.955131940127476D-01,  8.558413309721239D-01,  1.466862509992409D-03, &
 -9.955121819465780D-01, -9.789979211029449D-01,  6.407210056305082D-04, &
 -9.954861320163209D-01,  5.681416527913361D-01,  2.181094091195068D-03, &
 -9.929582393871068D-01, -5.370347553708347D-01,  6.365700160628349D-04, &
 -9.918341858607898D-01,  7.250215468408083D-01,  2.925047225366992D-03, &
 -9.897982334464747D-01,  9.889847320679855D-01,  6.578382364688170D-04, &
 -9.850276191493494D-01, -9.248683981506678D-01,  2.259102932718402D-03, &
 -9.820959231331791D-01, -7.821855489421354D-01,  4.084862972791807D-03, &
 -9.818366925634343D-01, -2.156090420260150D-02,  6.852107137072102D-03, &
 -9.808975723862894D-01, -3.112518230537506D-01,  6.733976982472782D-03, &
 -9.803016487147558D-01,  2.539985793768113D-01,  6.144467944923415D-03, &
 -9.791585763360798D-01, -5.756466500202441D-01,  5.476389537369480D-03, &
 -9.767561034338471D-01,  9.143771666367756D-01,  2.776979717116026D-03, &
 -9.758317798625764D-01,  4.558745215283740D-01,  5.758484945330961D-03, &
 -9.733634369985799D-01, -9.966978125597651D-01,  6.175342802324851D-04, &
 -9.675664657866050D-01,  6.206279941904160D-01,  6.157178279661575D-03, &
 -9.667526686680565D-01,  8.023493190515092D-01,  5.052013954468514D-03, &
 -9.574847616595294D-01,  9.991852307452070D-01,  4.156752677850517D-04, &
 -9.551655794629224D-01,  9.662000026762417D-01,  2.519263815744828D-03, &
 -9.541283709855817D-01, -9.615200131743211D-01,  2.770123594982525D-03, &
 -9.529627107888853D-01, -8.594308951734482D-01,  5.521466103754615D-03, &
 -9.511137028620014D-01,  1.537123214377626D-01,  1.548656739539656D-03, &
 -9.501218449448332D-01, -1.679843056344594D-01,  1.129203236633850D-02, &
 -9.486279733146294D-01, -6.865588686606500D-01,  8.287308334158514D-03, &
 -9.483377728448769D-01,  1.079182983808205D-01,  9.649772007405522D-03, &
 -9.481698863829746D-01, -4.482511579023943D-01,  1.058846772781884D-02, &
 -9.376659862954376D-01,  3.320927786395850D-01,  9.853104948952236D-03, &
 -9.306103944301639D-01,  8.662316655121048D-01,  5.280103565555265D-03, &
 -9.300699834315862D-01,  7.014618847802435D-01,  8.344725482478233D-03, &
 -9.280108673251274D-01,  4.983380051452493D-01,  9.333950017742142D-03, &
 -9.095843629981852D-01, -9.870451124979706D-01,  2.291616065068371D-03, &
 -9.045872993270916D-01,  9.244231244080491D-01,  4.633234288837451D-03, &
 -9.035282359913408D-01, -9.127575798900944D-01,  6.195061068875661D-03, &
 -9.023427661156972D-01, -3.102537604841927D-01,  1.518789863772203D-02, &
 -9.023191697919575D-01,  9.860953439377561D-01,  2.287777730391639D-03, &
 -9.018609313605185D-01, -3.168234272327462D-02,  1.540631304873537D-02, &
 -9.009350039678510D-01, -7.782630377583909D-01,  1.005814342536296D-02, &
 -8.995512373198538D-01, -5.752687860358924D-01,  1.333914316671023D-02, &
 -8.862410073156858D-01,  2.023135190038032D-01,  1.419438960724134D-02, &
 -8.799510611339678D-01,  7.804272229598096D-01,  9.800822621659112D-03, &
 -8.779133156049225D-01,  5.858583967917332D-01,  1.273340964065398D-02, &
 -8.655996427765849D-01,  3.758701133077118D-01,  1.356217699235571D-02, &
 -8.409266136580046D-01, -4.471234082886604D-01,  1.725729695008926D-02, &
 -8.400990403804555D-01, -9.553728108586558D-01,  5.756357460449216D-03, &
 -8.396784302276527D-01, -1.756139328191055D-01,  1.921157782857880D-02, &
 -8.378454530446884D-01,  9.530099558379057D-01,  5.399408829933249D-03, &
 -8.351166757877715D-01, -9.976562452857387D-01,  1.078286714786108D-03, &
 -8.318210977517786D-01, -8.478689190545843D-01,  1.077737568013724D-02, &
 -8.316813659365053D-01, -6.810571166632299D-01,  1.554511865335202D-02, &
 -8.305330238628740D-01,  8.626294758901784D-01,  9.402009758617824D-03, &
 -8.294785607894918D-01,  9.967444014424583D-01,  1.208238555914957D-03, &
 -8.257889703732273D-01,  7.178314536082597D-02,  1.768899055141865D-02, &
 -8.110197774934704D-01,  6.807113046668994D-01,  1.523540797814434D-02, &
 -8.029840820822153D-01,  4.688347153306865D-01,  1.679016485272365D-02, &
 -7.832130052321671D-01,  2.499268458076058D-01,  1.971664557932711D-02, &
 -7.801221870591962D-01, -5.296331251016586D-01,  3.661339198539565D-03, &
 -7.680489268476366D-01, -3.239665253282490D-01,  2.029577519777635D-02, &
 -7.568982042081489D-01, -6.469903320156577D-02,  1.929849800043277D-02, &
 -7.519799147310821D-01, -9.820165683081348D-01,  4.279421611368336D-03, &
 -7.503688437977389D-01, -9.065793653546036D-01,  1.014558607042340D-02, &
 -7.503013634605583D-01,  9.802360242338881D-01,  4.439623982463855D-03, &
 -7.497536820115352D-01, -5.698053761201402D-01,  1.779839962659180D-02, &
 -7.446422046307247D-01,  9.102156841025124D-01,  9.086171802680322D-03, &
 -7.445500034233367D-01,  7.848047539654122D-01,  1.480460601233261D-02, &
 -7.420314577338432D-01, -7.669296945893275D-01,  1.649262306205733D-02, &
 -7.232254143511531D-01,  5.713056680823388D-01,  2.016548810406117D-02, &
 -7.062208864591450D-01,  9.503977235942600D-02,  1.928783830209237D-02, &
 -7.031430448656599D-01,  3.539369545569842D-01,  2.086333365650514D-02, &
 -6.910760386360507D-01, -2.202589299389135D-01,  1.824693519009817D-02, &
 -6.711541165821081D-01, -4.470179997221566D-01,  1.982448992952755D-02, &
 -6.531718048226814D-01,  9.967997404348319D-01,  1.851797920829879D-03, &
 -6.510982873867898D-01, -9.494836825061095D-01,  8.282094698086110D-03, &
 -6.495359763175098D-01, -9.967203887198085D-01,  1.840591604616235D-03, &
 -6.473927602298331D-01,  6.932779937556659D-01,  1.958957103753717D-02, &
 -6.464452229923815D-01,  8.552721751249167D-01,  1.167683626501659D-02, &
 -6.459328707826928D-01, -6.630485503781940D-01,  2.204591732276851D-02, &
 -6.422957416183844D-01,  9.498995336148190D-01,  8.184904472780722D-03, &
 -6.411208000593052D-01, -8.428969978933917D-01,  1.568169438177813D-02, &
 -6.376753802962584D-01, -7.106433457042012D-02,  1.835262838211505D-02, &
 -6.277916196017650D-01,  1.869178545078614D-01,  2.243995725960829D-02, &
 -6.151521573306764D-01,  4.575647790357444D-01,  2.332139121086357D-02, &
 -6.110490337662942D-01, -3.716909293029730D-01,  1.353424810977647D-02, &
 -5.789585639318591D-01,  8.116111501687501D-01,  8.239538289259576D-03, &
 -5.719445376985364D-01, -2.076230901972163D-01,  1.980619800036562D-02, &
 -5.503010082245448D-01, -5.351187300277593D-01,  2.203583241136872D-02, &
 -5.448020739951114D-01,  5.943977618827134D-01,  2.119679939093152D-02, &
 -5.405717934730448D-01,  2.398766500666945D-02,  2.753053261097250D-02, &
 -5.379183131495114D-01, -9.794968398169707D-01,  5.852700601431832D-03, &
 -5.351808255772759D-01,  9.807921885374170D-01,  5.695018653828906D-03, &
 -5.307318203931908D-01, -7.548959411509537D-01,  2.161368448540176D-02, &
 -5.295874335958505D-01,  2.972675778301046D-01,  2.831405936915660D-02, &
 -5.286141781682451D-01, -9.043560824552355D-01,  1.301083261420718D-02, &
 -5.174239052084288D-01,  9.052729023030037D-01,  1.310577146977484D-02, &
 -5.002001743362517D-01,  7.536126162564385D-01,  1.877702249835676D-02, &
 -4.949149883106970D-01, -3.239151523715213D-01,  2.413732904338590D-02, &
 -4.926819371575777D-01, -5.863264530268616D-01,  9.252700572850187D-03, &
 -4.572955824770646D-01,  5.174797928661199D-01,  1.280901341961230D-02, &
 -4.330661622416971D-01, -1.162896573168444D-01,  3.094672746065751D-02, &
 -4.265146037440953D-01,  1.431197872276920D-01,  3.097439241585212D-02, &
 -4.261542183676564D-01,  4.217014688490645D-01,  2.299426219446216D-02, &
 -4.260965440692615D-01, -9.965783521197458D-01,  2.184951478119829D-03, &
 -4.195965641842235D-01,  9.968712678138757D-01,  2.102981801155398D-03, &
 -4.122399178795176D-01, -4.475194975775657D-01,  1.989673839306039D-02, &
 -4.105366827946999D-01, -8.373589753274594D-01,  1.841138617779475D-02, &
 -4.018650475100398D-01, -6.569857706362335D-01,  2.531099347585827D-02, &
 -4.011312302189050D-01, -9.485309748736876D-01,  1.036126977964170D-02, &
 -3.965687446957954D-01,  9.512021797025086D-01,  1.007429601084097D-02, &
 -3.886867567687322D-01,  8.415221322242826D-01,  1.867865037165336D-02, &
 -3.863072449479136D-01,  6.585305620664139D-01,  2.494229959731991D-02, &
 -3.558089768700468D-01, -4.173145393898551D-01,  1.256145253990760D-02, &
 -3.361006797113043D-01, -2.320489871510133D-01,  2.411745034362549D-02, &
 -3.273064092637250D-01,  2.552981701918742D-01,  1.731337482356964D-02, &
 -3.143235654002606D-01,  3.434855626045295D-01,  1.768325686985408D-02, &
 -2.969988871235867D-01,  1.512212631139971D-02,  3.451049222856652D-02, &
 -2.851682496889180D-01, -9.823368483892302D-01,  6.076427259472100D-03, &
 -2.842287026196041D-01, -7.573701654746426D-01,  2.254851231334031D-02, &
 -2.763872051458339D-01,  9.848430016399402D-01,  4.391195859850334D-03, &
 -2.757570191887748D-01,  5.328644045211444D-01,  3.039500110542442D-02, &
 -2.689789570111630D-01, -8.976396396474979D-01,  1.589379778474137D-02, &
 -2.666695494019358D-01, -5.458482771574984D-01,  3.009909572762831D-02, &
 -2.655053034213333D-01,  9.771787699513292D-01,  1.894385891729340D-03, &
 -2.627557017089030D-01,  7.555588777373272D-01,  2.363679764618126D-02, &
 -2.562363324756580D-01,  9.047634768272976D-01,  1.523993759370399D-02, &
 -2.401694466154886D-01, -3.082397101256352D-01,  2.545591145933639D-02, &
 -1.999384860986652D-01,  1.995960452917006D-01,  2.644981232826374D-02, &
 -1.934165548136490D-01, -1.001228826623429D-01,  2.353802509227792D-02, &
 -1.605338025079172D-01, -9.977634540883650D-01,  1.896784969760382D-03, &
 -1.596836572730810D-01,  3.941151625223360D-01,  3.004459538308863D-02, &
 -1.582769934825167D-01, -6.689987456876101D-01,  2.405213561825666D-02, &
 -1.454325940338082D-01, -9.514097712610464D-01,  1.102950511878142D-02, &
 -1.436551253873852D-01,  6.453308106984021D-01,  2.877227939270967D-02, &
 -1.364207441182524D-01,  9.973928878261128D-01,  2.062325710829592D-03, &
 -1.323616733693008D-01, -8.292521434719048D-01,  2.101390827968778D-02, &
 -1.284662135957239D-01, -4.199690393178734D-01,  3.292903599927027D-02, &
 -1.272488031447826D-01,  8.354138942117858D-01,  2.022653122178670D-02, &
 -1.242239684265682D-01,  9.539196646941631D-01,  1.076287752752471D-02, &
 -1.099650016306503D-01,  1.001181481554234D-01,  2.776239604781384D-02, &
 -1.058473836439364D-01, -1.676489858375358D-01,  2.632360797858480D-02, &
 -4.887769924515067D-02,  4.984873757664716D-01,  2.452379021441048D-02, &
 -4.878511560715085D-02, -5.810857563657668D-01,  2.200867989097806D-02, &
 -1.487759494787105D-02, -9.841897690617597D-01,  6.148525047866293D-03, &
 -9.715667325046100D-03,  2.841665712486741D-01,  3.560311127234845D-02, &
 -7.133604297269260D-03, -9.026737353005819D-01,  1.596380767648381D-02, &
 -5.357202966277515D-03,  7.436791749793509D-01,  2.516341018429965D-02, &
 0.000000000000000D+00,  0.000000000000000D+00,  3.080626042474933D-02, &
 5.357202966277515D-03, -7.436791749793509D-01,  2.516341018429965D-02, &
 7.133604297269260D-03,  9.026737353005819D-01,  1.596380767648381D-02, &
 9.715667325046100D-03, -2.841665712486741D-01,  3.560311127234845D-02, &
 1.487759494787105D-02,  9.841897690617597D-01,  6.148525047866293D-03, &
 4.878511560715085D-02,  5.810857563657668D-01,  2.200867989097806D-02, &
 4.887769924515067D-02, -4.984873757664716D-01,  2.452379021441048D-02, &
 1.058473836439364D-01,  1.676489858375358D-01,  2.632360797858480D-02, &
 1.099650016306503D-01, -1.001181481554234D-01,  2.776239604781384D-02, &
 1.242239684265682D-01, -9.539196646941631D-01,  1.076287752752471D-02, &
 1.272488031447826D-01, -8.354138942117858D-01,  2.022653122178670D-02, &
 1.284662135957239D-01,  4.199690393178734D-01,  3.292903599927027D-02, &
 1.323616733693008D-01,  8.292521434719048D-01,  2.101390827968778D-02, &
 1.364207441182524D-01, -9.973928878261128D-01,  2.062325710829592D-03, &
 1.436551253873852D-01, -6.453308106984021D-01,  2.877227939270967D-02, &
 1.454325940338082D-01,  9.514097712610464D-01,  1.102950511878142D-02, &
 1.582769934825167D-01,  6.689987456876101D-01,  2.405213561825666D-02, &
 1.596836572730810D-01, -3.941151625223360D-01,  3.004459538308863D-02, &
 1.605338025079172D-01,  9.977634540883650D-01,  1.896784969760382D-03, &
 1.934165548136490D-01,  1.001228826623429D-01,  2.353802509227792D-02, &
 1.999384860986652D-01, -1.995960452917006D-01,  2.644981232826374D-02, &
 2.401694466154886D-01,  3.082397101256352D-01,  2.545591145933639D-02, &
 2.562363324756580D-01, -9.047634768272976D-01,  1.523993759370399D-02, &
 2.627557017089030D-01, -7.555588777373272D-01,  2.363679764618126D-02, &
 2.655053034213333D-01, -9.771787699513292D-01,  1.894385891729340D-03, &
 2.666695494019358D-01,  5.458482771574984D-01,  3.009909572762831D-02, &
 2.689789570111630D-01,  8.976396396474979D-01,  1.589379778474137D-02, &
 2.757570191887748D-01, -5.328644045211444D-01,  3.039500110542442D-02, &
 2.763872051458339D-01, -9.848430016399402D-01,  4.391195859850334D-03, &
 2.842287026196041D-01,  7.573701654746426D-01,  2.254851231334031D-02, &
 2.851682496889180D-01,  9.823368483892302D-01,  6.076427259472100D-03, &
 2.969988871235867D-01, -1.512212631139971D-02,  3.451049222856652D-02, &
 3.143235654002606D-01, -3.434855626045295D-01,  1.768325686985408D-02, &
 3.273064092637250D-01, -2.552981701918742D-01,  1.731337482356964D-02, &
 3.361006797113043D-01,  2.320489871510133D-01,  2.411745034362549D-02, &
 3.558089768700468D-01,  4.173145393898551D-01,  1.256145253990760D-02, &
 3.863072449479136D-01, -6.585305620664139D-01,  2.494229959731991D-02, &
 3.886867567687322D-01, -8.415221322242826D-01,  1.867865037165336D-02, &
 3.965687446957954D-01, -9.512021797025086D-01,  1.007429601084097D-02, &
 4.011312302189050D-01,  9.485309748736876D-01,  1.036126977964170D-02, &
 4.018650475100398D-01,  6.569857706362335D-01,  2.531099347585827D-02, &
 4.105366827946999D-01,  8.373589753274594D-01,  1.841138617779475D-02, &
 4.122399178795176D-01,  4.475194975775657D-01,  1.989673839306039D-02, &
 4.195965641842235D-01, -9.968712678138757D-01,  2.102981801155398D-03, &
 4.260965440692615D-01,  9.965783521197458D-01,  2.184951478119829D-03, &
 4.261542183676564D-01, -4.217014688490645D-01,  2.299426219446216D-02, &
 4.265146037440953D-01, -1.431197872276920D-01,  3.097439241585212D-02, &
 4.330661622416971D-01,  1.162896573168444D-01,  3.094672746065751D-02, &
 4.572955824770646D-01, -5.174797928661199D-01,  1.280901341961230D-02, &
 4.926819371575777D-01,  5.863264530268616D-01,  9.252700572850187D-03, &
 4.949149883106970D-01,  3.239151523715213D-01,  2.413732904338590D-02, &
 5.002001743362517D-01, -7.536126162564385D-01,  1.877702249835676D-02, &
 5.174239052084288D-01, -9.052729023030037D-01,  1.310577146977484D-02, &
 5.286141781682451D-01,  9.043560824552355D-01,  1.301083261420718D-02, &
 5.295874335958505D-01, -2.972675778301046D-01,  2.831405936915660D-02, &
 5.307318203931908D-01,  7.548959411509537D-01,  2.161368448540176D-02, &
 5.351808255772759D-01, -9.807921885374170D-01,  5.695018653828906D-03, &
 5.379183131495114D-01,  9.794968398169707D-01,  5.852700601431832D-03, &
 5.405717934730448D-01, -2.398766500666945D-02,  2.753053261097250D-02, &
 5.448020739951114D-01, -5.943977618827134D-01,  2.119679939093152D-02, &
 5.503010082245448D-01,  5.351187300277593D-01,  2.203583241136872D-02, &
 5.719445376985364D-01,  2.076230901972163D-01,  1.980619800036562D-02, &
 5.789585639318591D-01, -8.116111501687501D-01,  8.239538289259576D-03, &
 6.110490337662942D-01,  3.716909293029730D-01,  1.353424810977647D-02, &
 6.151521573306764D-01, -4.575647790357444D-01,  2.332139121086357D-02, &
 6.277916196017650D-01, -1.869178545078614D-01,  2.243995725960829D-02, &
 6.376753802962584D-01,  7.106433457042012D-02,  1.835262838211505D-02, &
 6.411208000593052D-01,  8.428969978933917D-01,  1.568169438177813D-02, &
 6.422957416183844D-01, -9.498995336148190D-01,  8.184904472780722D-03, &
 6.459328707826928D-01,  6.630485503781940D-01,  2.204591732276851D-02, &
 6.464452229923815D-01, -8.552721751249167D-01,  1.167683626501659D-02, &
 6.473927602298331D-01, -6.932779937556659D-01,  1.958957103753717D-02, &
 6.495359763175098D-01,  9.967203887198085D-01,  1.840591604616235D-03, &
 6.510982873867898D-01,  9.494836825061095D-01,  8.282094698086110D-03, &
 6.531718048226814D-01, -9.967997404348319D-01,  1.851797920829879D-03, &
 6.711541165821081D-01,  4.470179997221566D-01,  1.982448992952755D-02, &
 6.910760386360507D-01,  2.202589299389135D-01,  1.824693519009817D-02, &
 7.031430448656599D-01, -3.539369545569842D-01,  2.086333365650514D-02, &
 7.062208864591450D-01, -9.503977235942600D-02,  1.928783830209237D-02, &
 7.232254143511531D-01, -5.713056680823388D-01,  2.016548810406117D-02, &
 7.420314577338432D-01,  7.669296945893275D-01,  1.649262306205733D-02, &
 7.445500034233367D-01, -7.848047539654122D-01,  1.480460601233261D-02, &
 7.446422046307247D-01, -9.102156841025124D-01,  9.086171802680322D-03, &
 7.497536820115352D-01,  5.698053761201402D-01,  1.779839962659180D-02, &
 7.503013634605583D-01, -9.802360242338881D-01,  4.439623982463855D-03, &
 7.503688437977389D-01,  9.065793653546036D-01,  1.014558607042340D-02, &
 7.519799147310821D-01,  9.820165683081348D-01,  4.279421611368336D-03, &
 7.568982042081489D-01,  6.469903320156577D-02,  1.929849800043277D-02, &
 7.680489268476366D-01,  3.239665253282490D-01,  2.029577519777635D-02, &
 7.801221870591962D-01,  5.296331251016586D-01,  3.661339198539565D-03, &
 7.832130052321671D-01, -2.499268458076058D-01,  1.971664557932711D-02, &
 8.029840820822153D-01, -4.688347153306865D-01,  1.679016485272365D-02, &
 8.110197774934704D-01, -6.807113046668994D-01,  1.523540797814434D-02, &
 8.257889703732273D-01, -7.178314536082597D-02,  1.768899055141865D-02, &
 8.294785607894918D-01, -9.967444014424583D-01,  1.208238555914957D-03, &
 8.305330238628740D-01, -8.626294758901784D-01,  9.402009758617824D-03, &
 8.316813659365053D-01,  6.810571166632299D-01,  1.554511865335202D-02, &
 8.318210977517786D-01,  8.478689190545843D-01,  1.077737568013724D-02, &
 8.351166757877715D-01,  9.976562452857387D-01,  1.078286714786108D-03, &
 8.378454530446884D-01, -9.530099558379057D-01,  5.399408829933249D-03, &
 8.396784302276527D-01,  1.756139328191055D-01,  1.921157782857880D-02, &
 8.400990403804555D-01,  9.553728108586558D-01,  5.756357460449216D-03, &
 8.409266136580046D-01,  4.471234082886604D-01,  1.725729695008926D-02, &
 8.655996427765849D-01, -3.758701133077118D-01,  1.356217699235571D-02, &
 8.779133156049225D-01, -5.858583967917332D-01,  1.273340964065398D-02, &
 8.799510611339678D-01, -7.804272229598096D-01,  9.800822621659112D-03, &
 8.862410073156858D-01, -2.023135190038032D-01,  1.419438960724134D-02, &
 8.995512373198538D-01,  5.752687860358924D-01,  1.333914316671023D-02, &
 9.009350039678510D-01,  7.782630377583909D-01,  1.005814342536296D-02, &
 9.018609313605185D-01,  3.168234272327462D-02,  1.540631304873537D-02, &
 9.023191697919575D-01, -9.860953439377561D-01,  2.287777730391639D-03, &
 9.023427661156972D-01,  3.102537604841927D-01,  1.518789863772203D-02, &
 9.035282359913408D-01,  9.127575798900944D-01,  6.195061068875661D-03, &
 9.045872993270916D-01, -9.244231244080491D-01,  4.633234288837451D-03, &
 9.095843629981852D-01,  9.870451124979706D-01,  2.291616065068371D-03, &
 9.280108673251274D-01, -4.983380051452493D-01,  9.333950017742142D-03, &
 9.300699834315862D-01, -7.014618847802435D-01,  8.344725482478233D-03, &
 9.306103944301639D-01, -8.662316655121048D-01,  5.280103565555265D-03, &
 9.376659862954376D-01, -3.320927786395850D-01,  9.853104948952236D-03, &
 9.481698863829746D-01,  4.482511579023943D-01,  1.058846772781884D-02, &
 9.483377728448769D-01, -1.079182983808205D-01,  9.649772007405522D-03, &
 9.486279733146294D-01,  6.865588686606500D-01,  8.287308334158514D-03, &
 9.501218449448332D-01,  1.679843056344594D-01,  1.129203236633850D-02, &
 9.511137028620014D-01, -1.537123214377626D-01,  1.548656739539656D-03, &
 9.529627107888853D-01,  8.594308951734482D-01,  5.521466103754615D-03, &
 9.541283709855817D-01,  9.615200131743211D-01,  2.770123594982525D-03, &
 9.551655794629224D-01, -9.662000026762417D-01,  2.519263815744828D-03, &
 9.574847616595294D-01, -9.991852307452070D-01,  4.156752677850517D-04, &
 9.667526686680565D-01, -8.023493190515092D-01,  5.052013954468514D-03, &
 9.675664657866050D-01, -6.206279941904160D-01,  6.157178279661575D-03, &
 9.733634369985799D-01,  9.966978125597651D-01,  6.175342802324851D-04, &
 9.758317798625764D-01, -4.558745215283740D-01,  5.758484945330961D-03, &
 9.767561034338471D-01, -9.143771666367756D-01,  2.776979717116026D-03, &
 9.791585763360798D-01,  5.756466500202441D-01,  5.476389537369480D-03, &
 9.803016487147558D-01, -2.539985793768113D-01,  6.144467944923415D-03, &
 9.808975723862894D-01,  3.112518230537506D-01,  6.733976982472782D-03, &
 9.818366925634343D-01,  2.156090420260150D-02,  6.852107137072102D-03, &
 9.820959231331791D-01,  7.821855489421354D-01,  4.084862972791807D-03, &
 9.850276191493494D-01,  9.248683981506678D-01,  2.259102932718402D-03, &
 9.897982334464747D-01, -9.889847320679855D-01,  6.578382364688170D-04, &
 9.918341858607898D-01, -7.250215468408083D-01,  2.925047225366992D-03, &
 9.929582393871068D-01,  5.370347553708347D-01,  6.365700160628349D-04, &
 9.954861320163209D-01, -5.681416527913361D-01,  2.181094091195068D-03, &
 9.955121819465780D-01,  9.789979211029449D-01,  6.407210056305082D-04, &
 9.955131940127476D-01, -8.558413309721239D-01,  1.466862509992409D-03, &
 9.961989059670616D-01, -9.525971037206539D-01,  6.660472520224310D-04, &
 9.965848495106024D-01,  6.842725498070605D-01,  1.783337849517576D-03, &
 9.966030911672050D-01,  4.414700559329136D-01,  2.103309187930437D-03, &
 9.967543799903597D-01, -3.758322880625192D-01,  1.965952058779777D-03, &
 9.968865665492763D-01, -1.264946845449128D-01,  2.336585497171821D-03, &
 9.972233023651127D-01,  1.689643304774283D-01,  2.334603070096216D-03, &
 9.979788599279722D-01,  8.620321171404657D-01,  9.843080418879427D-04 /)

  return
end
subroutine smr42 ( xyw )

!*****************************************************************************80
!
!! SMR42 returns the SMR rule of degree 42.
!
!  Discussion:
!
!    DEGREE: 42
!    POINTS CARDINALITY: 326
!    NORM INF MOMS. RESIDUAL: 8.67145e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*326), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*326)

  xyw = (/ &
 -9.983895853811665D-01,  2.969737627802563D-01,  1.238150356046483D-03, &
 -9.977615781174913D-01, -7.709519815994472D-01,  1.081616267165998D-03, &
 -9.975604363093720D-01,  5.337316075161648D-01,  1.249737376093271D-03, &
 -9.975457919908404D-01,  9.770830229535153D-01,  4.470299430512570D-04, &
 -9.969809246965443D-01, -2.451005993701799D-01,  2.074243379361551D-03, &
 -9.968120260128331D-01,  8.514136675024221D-01,  1.167341137105932D-03, &
 -9.966778899972677D-01, -9.176221669397234D-01,  8.041981836080290D-04, &
 -9.964245708711565D-01, -4.889240550109979D-01,  2.074108808482804D-03, &
 -9.960265424615615D-01, -3.206262163873343D-03,  2.541774019152315D-03, &
 -9.957193536867802D-01,  6.973486149261381D-01,  1.833470374408153D-03, &
 -9.954906184608173D-01, -9.834651303414434D-01,  4.837448015994170D-04, &
 -9.923170394980639D-01, -6.488504511621852D-01,  2.300838549325460D-03, &
 -9.894941295318366D-01,  1.816206171244922D-01,  3.686717692046918D-03, &
 -9.874887743325775D-01, -8.588958391844354D-01,  1.934675349668603D-03, &
 -9.873676197128440D-01,  4.258048442933274D-01,  3.995262993123166D-03, &
 -9.872315968340971D-01,  9.256499485066579D-01,  2.010548420182620D-03, &
 -9.817076131502388D-01, -3.607331662659895D-01,  5.403841252241704D-03, &
 -9.810397049156565D-01,  9.959675054022549D-01,  5.131550081223118D-04, &
 -9.788010746558530D-01,  7.823002392178441D-01,  4.112245929337191D-03, &
 -9.779826267946542D-01, -1.280907393842539D-01,  6.825619620264833D-03, &
 -9.778857566817490D-01, -7.070297596348967D-01,  2.333933933327752D-03, &
 -9.770873279965435D-01,  5.991400956941817D-01,  5.320539361361202D-03, &
 -9.765278890669798D-01, -9.531509988501621D-01,  2.086667535123516D-03, &
 -9.761966529808779D-01, -9.980243997428009D-01,  3.926872153298788D-04, &
 -9.726562997502463D-01, -5.585474334620195D-01,  4.784629701022005D-03, &
 -9.726043123727997D-01, -8.113170875896518D-01,  2.635483305155019D-03, &
 -9.682147583093088D-01,  8.904719493506889D-02,  6.698723958291691D-03, &
 -9.634445582523827D-01,  3.139599897908095D-01,  7.954619210267289D-03, &
 -9.610169069361439D-01,  9.666011711506927D-01,  2.268817275848690D-03, &
 -9.551948115536512D-01,  8.710650846109909D-01,  4.964920743527174D-03, &
 -9.505460777198159D-01, -4.343062948294107D-01,  6.106499989272643D-03, &
 -9.482223349262576D-01, -7.448087682906291D-01,  5.255811938574469D-03, &
 -9.479658383534716D-01, -8.987701284133403D-01,  4.635769935190221D-03, &
 -9.436143895358713D-01,  6.959041714345351D-01,  7.863254576614227D-03, &
 -9.436039683315387D-01, -6.104452737087587D-01,  4.434535145882001D-03, &
 -9.433758303285367D-01,  4.906689218494150D-01,  9.429821854040199D-03, &
 -9.423237187354413D-01, -2.467823489744650D-01,  1.076584727710253D-02, &
 -9.391182625762966D-01, -9.826638214851392D-01,  2.109364556787303D-03, &
 -9.350615084246884D-01, -1.659457024937119D-02,  1.048767996389870D-02, &
 -9.217645802840572D-01,  9.907869871400011D-01,  1.616360403829918D-03, &
 -9.215474836204731D-01,  2.043715053498819D-01,  1.216781578897710D-02, &
 -9.126031690605523D-01,  9.291576693756454D-01,  5.032494622473610D-03, &
 -9.108376159034378D-01, -4.897424808873326D-01,  8.527008883353277D-03, &
 -9.064530353685755D-01,  7.992951966595492D-01,  8.733726687076370D-03, &
 -9.056607152087032D-01, -8.272477088723909D-01,  7.878562829643663D-03, &
 -9.044219288728528D-01, -6.636706870428218D-01,  8.309150810743564D-03, &
 -8.947784500749467D-01, -9.451248056062111D-01,  4.977957482614220D-03, &
 -8.942957719772126D-01,  3.854833600681813D-01,  1.263526180235866D-02, &
 -8.914509500717330D-01,  5.988572449686976D-01,  1.236911144033898D-02, &
 -8.852322112438892D-01, -1.236708436669904D-01,  1.426043676836211D-02, &
 -8.841579338925228D-01, -3.412926369849601D-01,  1.325394767927102D-02, &
 -8.801771943577119D-01, -9.966091035909469D-01,  1.109347862822931D-03, &
 -8.662960901298091D-01,  8.948961991555911D-02,  1.538814023759737D-02, &
 -8.547901173562468D-01,  9.685970327546581D-01,  4.221229608246627D-03, &
 -8.513281464403821D-01,  9.987701957017139D-01,  6.276947609934688D-04, &
 -8.493965412767819D-01,  8.750994636081615D-01,  8.702080207924946D-03, &
 -8.486190442117658D-01, -5.636240679874738D-01,  1.285521591384748D-02, &
 -8.463705738558919D-01, -7.448243067394232D-01,  1.130500524300540D-02, &
 -8.405308044871470D-01,  3.043148488295061D-01,  1.046140819688675D-02, &
 -8.398358181977051D-01,  7.161435779598875D-01,  1.314151256378980D-02, &
 -8.383653549203041D-01, -8.878539286502376D-01,  8.430171578574307D-03, &
 -8.210741123697933D-01, -9.766488081068017D-01,  4.098354002811169D-03, &
 -8.208707647886223D-01,  4.974203597708007D-01,  1.710985289131320D-02, &
 -8.146158417958415D-01, -2.198432016525242D-01,  1.701739186308798D-02, &
 -8.118659561962476D-01,  2.211043698771638D-01,  8.434215380175943D-03, &
 -8.109301081611654D-01, -4.211295967806792D-01,  1.412782056675765D-02, &
 -8.011290535296839D-01, -1.248581495063462D-02,  1.560092136756764D-02, &
 -7.735252515593568D-01,  9.309650034206048D-01,  7.961026263346178D-03, &
 -7.716408539520909D-01,  9.890328536125180D-01,  2.627819279756719D-03, &
 -7.713122237357826D-01, -6.510284878473606D-01,  1.538601522963826D-02, &
 -7.707190051131479D-01,  2.324471573934027D-01,  9.036405673615943D-03, &
 -7.702424235973540D-01,  8.084384767368644D-01,  1.275881172676499D-02, &
 -7.669148226628323D-01, -8.144012723914440D-01,  1.203610936905808D-02, &
 -7.563615651755403D-01, -9.344574350143551D-01,  7.162428695194032D-03, &
 -7.549356580691885D-01,  6.261159426797993D-01,  1.790785421685001D-02, &
 -7.388091269205519D-01, -9.953991842940237D-01,  1.935302554193668D-03, &
 -7.378692050124985D-01, -8.521050209128646D-02,  1.377372412683884D-02, &
 -7.377023207292610D-01, -4.941261650174635D-01,  1.380544592194696D-02, &
 -7.331931178475477D-01,  3.913893482110728D-01,  2.143967325273679D-02, &
 -7.270864834829239D-01,  1.139187591845308D-01,  1.516896982460334D-02, &
 -7.267695434410246D-01, -3.082489183913576D-01,  1.881115737108218D-02, &
 -6.899885699483223D-01, -8.821573559917478D-01,  4.925947047330577D-03, &
 -6.813723030880324D-01,  9.984161114829040D-01,  7.885438697656719D-04, &
 -6.794320916451463D-01,  8.785358277598266D-01,  1.205922032830251D-02, &
 -6.784703765570435D-01, -7.297133387630516D-01,  1.598916748258378D-02, &
 -6.776012969063153D-01,  1.391839047743928D-01,  9.832835902747970D-03, &
 -6.764723618609201D-01,  9.685324267578785D-01,  5.859512706387141D-03, &
 -6.738460375138086D-01, -9.651002679024745D-01,  4.767009187250398D-03, &
 -6.737243836937874D-01,  7.342773798093677D-01,  1.709899970138294D-02, &
 -6.644539826425694D-01, -5.635537416067942D-01,  1.564317167183973D-02, &
 -6.634751213533232D-01, -1.604215873631951D-01,  1.935734255198524D-02, &
 -6.619502670840386D-01, -8.649428894817014D-01,  7.118057258260406D-03, &
 -6.549827012606614D-01,  5.282752967927656D-01,  2.240760255327129D-02, &
 -6.306600511355206D-01, -3.919448791059551D-01,  1.900513660573725D-02, &
 -6.297817200305971D-01,  2.823803712729075D-01,  2.502986526281338D-02, &
 -6.216953173007335D-01,  5.643843021717805D-03,  1.796402412073861D-02, &
 -6.140165745664186D-01, -9.859418938622825D-01,  3.212423164931555D-03, &
 -5.771270411761599D-01, -9.215133237530594D-01,  9.668925716545904D-03, &
 -5.748435613862279D-01,  9.327577622499963D-01,  9.757429923397945D-03, &
 -5.737485473796465D-01, -7.972486291015727D-01,  1.508656680428934D-02, &
 -5.718887760630267D-01, -6.370333746969838D-01,  1.848456636165576D-02, &
 -5.707074067500586D-01,  9.922102608817531D-01,  2.881990914702140D-03, &
 -5.688961239076191D-01,  3.298702902382509D-02,  1.047465657364413D-02, &
 -5.675251115967979D-01,  8.169896013111752D-01,  1.640586553806266D-02, &
 -5.655659214306783D-01,  6.509750976080372D-01,  2.125680475231248D-02, &
 -5.571510587648792D-01, -2.467810374030457D-01,  2.398602658758524D-02, &
 -5.507102005306738D-01, -4.616455796605000D-01,  1.436780242522091D-02, &
 -5.419415518233097D-01,  4.248295257169304D-01,  2.626823745716256D-02, &
 -5.218547423997800D-01, -9.976415918771692D-01,  1.583196126084757D-03, &
 -5.149992864069691D-01, -9.423558398261378D-02,  1.076036322418040D-02, &
 -5.132180036238988D-01,  1.711550456896960D-01,  2.785354108817730D-02, &
 -4.829210648831740D-01, -9.616162988487118D-01,  7.469943358099489D-03, &
 -4.688160566868244D-01, -8.611456662935529D-01,  1.398190185303191D-02, &
 -4.677745958608924D-01, -5.249766577809418D-01,  2.002854227312364D-02, &
 -4.669496773079832D-01,  9.726887728674144D-01,  6.450395357727730D-03, &
 -4.658245441037069D-01, -8.858372256137174D-02,  1.784446157965224D-02, &
 -4.628895760753138D-01, -7.133269525288682D-01,  1.912050315315815D-02, &
 -4.535449668032904D-01,  8.866031212139555D-01,  1.401926812957357D-02, &
 -4.478788754500803D-01,  5.600753093630753D-01,  2.492544822075299D-02, &
 -4.457854778948153D-01,  7.446400102911364D-01,  2.064381447286162D-02, &
 -4.369470824412445D-01, -3.431724701283002D-01,  2.658713998880457D-02, &
 -4.185328241266283D-01,  3.170545750718476D-01,  2.922560369899428D-02, &
 -3.890877209652377D-01,  9.971081288565442D-01,  1.796661084966019D-03, &
 -3.864446656766595D-01,  5.863091742160163D-02,  3.003146041596166D-02, &
 -3.831955458377362D-01, -1.740817521363409D-01,  1.214811438718327D-02, &
 -3.735932973145009D-01, -9.868758698413692D-01,  4.788684591089814D-03, &
 -3.613111294101750D-01, -9.165044324691506D-01,  1.212237717515227D-02, &
 -3.538765488045220D-01, -6.105807051018285D-01,  2.342111343448623D-02, &
 -3.470851761320838D-01, -7.893958214407354D-01,  1.847852212603510D-02, &
 -3.391198332478134D-01,  9.420920789488475D-01,  1.053753340465246D-02, &
 -3.259626426410726D-01, -2.132438198328835D-01,  2.050933783996452D-02, &
 -3.225863338681545D-01,  4.621171913143386D-01,  2.803762474902662D-02, &
 -3.223116544172475D-01,  8.281765786009968D-01,  1.845884999832045D-02, &
 -3.181331758231921D-01,  6.624003884340418D-01,  2.410899398588486D-02, &
 -3.097545730889024D-01, -4.424649187010514D-01,  2.680988640221558D-02, &
 -2.884650031184056D-01,  9.884147622938702D-01,  2.472347723619564D-03, &
 -2.873088695274083D-01,  2.062472424818550D-01,  3.118760247446968D-02, &
 -2.512791493091187D-01, -5.135873454190604D-02,  3.099744003973420D-02, &
 -2.423641370999858D-01, -9.577710745485877D-01,  9.265732928547869D-03, &
 -2.328824316631447D-01, -9.978364337209883D-01,  1.779978256713267D-03, &
 -2.263780767365199D-01, -7.000400004124890D-01,  2.322442438266213D-02, &
 -2.263399639641023D-01, -8.582209349267874D-01,  1.680208369151338D-02, &
 -2.087812004974775D-01,  9.770858608961845D-01,  5.302771699443291D-03, &
 -2.083614303693334D-01, -3.073111903430377D-01,  2.784736930013426D-02, &
 -1.999283175075603D-01,  8.989837030255559D-01,  1.499199948128067D-02, &
 -1.909845816734380D-01,  3.575369873843971D-01,  3.046703330507673D-02, &
 -1.884716472361604D-01,  5.724569389790787D-01,  2.632448749251792D-02, &
 -1.869410921110642D-01,  7.565028038405339D-01,  2.233491028950177D-02, &
 -1.843841115545689D-01, -5.395615455530922D-01,  2.494019997742770D-02, &
 -1.498332978393480D-01,  9.424107635111555D-02,  3.190590627327158D-02, &
 -1.195770040560849D-01,  9.976785699720651D-01,  1.708610445747687D-03, &
 -1.128810472678152D-01, -1.621115180942063D-01,  3.095358985546368D-02, &
 -1.020657000747672D-01, -9.827964093930615D-01,  5.862490005379920D-03, &
 -9.932663283884499D-02, -9.143596686063581D-01,  1.369553699475923D-02, &
 -9.274767285187367D-02, -7.822730372488192D-01,  2.164311512564077D-02, &
 -8.103825378906829D-02, -4.096519478108676D-01,  2.759310160331856D-02, &
 -7.489973868725409D-02,  9.518169186995218D-01,  1.035496878834830D-02, &
 -6.335698901293590D-02, -6.250608749966023D-01,  2.255920523045297D-02, &
 -6.166904446316302D-02,  4.784389475960453D-01,  2.676383008544048D-02, &
 -5.970836208331559D-02,  8.405649967632023D-01,  1.908548342904795D-02, &
 -5.501382393331618D-02,  2.467531511014508D-01,  3.173197137193996D-02, &
 -5.061788078599418D-02,  6.732401322495646D-01,  2.516076352162443D-02, &
 -1.015615433395733D-02, -2.055972514442930D-02,  3.182295725284823D-02, &
 9.042710639563842D-03,  9.901284880011576D-01,  3.036532554395697D-03, &
 2.455819938982937D-02, -2.746511791380577D-01,  3.058344887912262D-02, &
 3.009510952559026D-02, -9.957979450703934D-01,  2.230092699402469D-03, &
 4.161126623700789D-02, -8.541692940023290D-01,  1.832620914421112D-02, &
 4.315071485893791D-02, -9.531546367603930D-01,  1.004404501682993D-02, &
 4.980781610591364D-02, -5.055026057272577D-01,  2.695393126406910D-02, &
 5.614259373801662D-02,  3.839891266510965D-01,  2.555881058966561D-02, &
 5.653066870778246D-02, -7.009049065775056D-01,  2.162651797501659D-02, &
 6.431492052043117D-02,  9.094943484367410D-01,  1.442924487724422D-02, &
 7.954502210454595D-02,  7.677175431668712D-01,  2.242255949995469D-02, &
 8.170982374355797D-02,  5.812890091744177D-01,  2.612319135336336D-02, &
 8.304206805112350D-02,  1.303122834290349D-01,  3.197796594776971D-02, &
 9.579669178358458D-02,  9.786128840932780D-01,  4.858466607668643D-03, &
 1.298140716395927D-01, -1.364129934454575D-01,  3.153849046439230D-02, &
 1.448602053653137D-01, -9.993997310860954D-01,  5.187655461501736D-04, &
 1.637794332334225D-01,  2.917847592352579D-01,  2.372133318277343D-02, &
 1.656376032948203D-01, -3.792766926420451D-01,  3.002828141125498D-02, &
 1.762292877481467D-01, -7.767882983828635D-01,  2.024589761678427D-02, &
 1.814953063827089D-01, -9.796863149731511D-01,  6.038716138269680D-03, &
 1.834852661942361D-01, -5.949216461693253D-01,  2.588018863116454D-02, &
 1.867990480390358D-01, -9.082909202013399D-01,  1.438268457601201D-02, &
 1.997745797864829D-01,  8.521395692935436D-01,  1.769908491854464D-02, &
 2.012879315451541D-01,  4.865204987031345D-01,  2.424802585375267D-02, &
 2.073540200015715D-01,  9.979690495625936D-01,  1.871839129499010D-03, &
 2.092466713865647D-01,  9.536237467670772D-01,  9.197918109386862D-03, &
 2.142508728125625D-01,  6.811733554860471D-01,  2.453455227667186D-02, &
 2.222235734801500D-01,  1.329690651656386D-02,  3.153867440259803D-02, &
 2.552587195458114D-01,  2.135868866634151D-01,  1.710171709003340D-02, &
 2.738405728748159D-01, -2.432353447249460D-01,  3.084667141478646D-02, &
 3.037543314031991D-01,  3.985764917009157D-01,  2.212002672383645D-02, &
 3.062582671628846D-01, -4.779029541794464D-01,  2.841632130217824D-02, &
 3.073771915996136D-01, -9.932860050681348D-01,  2.560967478145304D-03, &
 3.085884559918400D-01, -6.853150635640251D-01,  2.335501600448783D-02, &
 3.097655269975939D-01, -8.409329107501455D-01,  1.745461988433493D-02, &
 3.264090470748552D-01,  7.799958670008352D-01,  1.976931010135947D-02, &
 3.269506077033738D-01,  1.528597292687391D-01,  1.880416143417532D-02, &
 3.287397793338149D-01, -9.499963119187408D-01,  1.015995287897780D-02, &
 3.299686062924967D-01,  9.136754073945763D-01,  1.223211496544324D-02, &
 3.399940734865946D-01,  9.843406124989522D-01,  5.358533964816193D-03, &
 3.414386037016686D-01,  5.837599078463863D-01,  2.531201093274045D-02, &
 3.626455120418416D-01, -9.420914031009561D-02,  2.954195879994616D-02, &
 4.071626746871289D-01,  3.109774847555636D-01,  2.432492670918727D-02, &
 4.140936135772086D-01, -3.459697602487943D-01,  2.904643863705676D-02, &
 4.145550075939219D-01, -9.984668858105441D-01,  8.704393591207662D-04, &
 4.248119738620462D-01,  7.344623137957502D-02,  2.290584551728990D-02, &
 4.327427543879804D-01, -5.800952441542988D-01,  2.542846350942939D-02, &
 4.378605680904344D-01, -7.622695385405753D-01,  1.990561596716723D-02, &
 4.398019895929731D-01,  8.590468375941196D-01,  1.424593076230482D-02, &
 4.409957188846723D-01, -8.964515554446453D-01,  1.360912679478925D-02, &
 4.446633915248027D-01,  6.971747211943454D-01,  2.079224858597253D-02, &
 4.561120813077312D-01,  9.583286368134947D-01,  7.651874640364773D-03, &
 4.578378135836055D-01,  4.858442710495443D-01,  2.286780694222276D-02, &
 4.673508637290545D-01, -9.782167962078963D-01,  6.029168541655493D-03, &
 4.743480302386265D-01,  9.967031114708308D-01,  1.646439778827267D-03, &
 4.982830846776936D-01, -1.973451409716288D-01,  2.712296241805855D-02, &
 5.053791029402219D-01, -4.887386159139488D-02,  8.213397938570224D-03, &
 5.182457807020877D-01,  2.160333823951996D-01,  2.436046657122245D-02, &
 5.382900510803214D-01, -4.567938591720622D-01,  2.598020239337663D-02, &
 5.431714974163138D-01,  2.867426624023640D-02,  1.502442733748493D-02, &
 5.450456322230584D-01,  7.938839184396489D-01,  1.592965984721472D-02, &
 5.460671166844733D-01,  4.143453777845346D-01,  1.419118265364266D-02, &
 5.483280208744600D-01,  9.203785964981086D-01,  9.152425543104364D-03, &
 5.538810843207090D-01,  6.108588585460906D-01,  2.034833182220751D-02, &
 5.568932657964470D-01, -6.692481046679927D-01,  2.157498392901168D-02, &
 5.596381875735323D-01,  9.921593115140971D-01,  1.608865885491389D-03, &
 5.597407146364283D-01, -8.307068015467881D-01,  1.582771127386430D-02, &
 5.662708737165433D-01, -9.399876147283586D-01,  9.394744050751306D-03, &
 5.918239732225662D-01, -9.949593941852612D-01,  2.396290467084638D-03, &
 6.132912672442516D-01, -3.146039051646457D-01,  2.212711650881879D-02, &
 6.138426634662881D-01, -6.118802903793545D-02,  1.806733793235598D-02, &
 6.142784830337650D-01,  3.453724863115886D-01,  1.864729091061658D-02, &
 6.182773578473880D-01,  9.740513097221366D-01,  5.410977905903992D-03, &
 6.396787787836092D-01,  8.728694805818825D-01,  1.137048039230828D-02, &
 6.406468508438566D-01,  1.468000595369991D-01,  2.043212465588637D-02, &
 6.467851189666363D-01,  7.205388161010090D-01,  1.703077749193565D-02, &
 6.488127284463796D-01, -2.007299075262801D-01,  1.095427143818548D-02, &
 6.517007603679420D-01,  5.283348578512921D-01,  1.809208934701153D-02, &
 6.559512407902149D-01, -5.555135149722775D-01,  2.234826148158751D-02, &
 6.690244056582569D-01, -7.508923368689349D-01,  1.710484161723342D-02, &
 6.718714751553437D-01, -8.884291476865778D-01,  1.150781632550147D-02, &
 6.771644395694760D-01, -9.722288077426058D-01,  5.528569852248240D-03, &
 7.083681501678855D-01,  6.248980851431146D-02,  1.314715640510330D-02, &
 7.097149683060735D-01,  9.954900449580694D-01,  1.976100218099145D-03, &
 7.138402644040628D-01,  9.387924343684284D-01,  8.164980595434149D-03, &
 7.198490951545802D-01,  2.812564715356937D-01,  1.789583577642915D-02, &
 7.215588783892570D-01, -1.159998849132680D-01,  1.652956139432900D-02, &
 7.226187070333294D-01, -4.079425951229357D-01,  2.112863498184051D-02, &
 7.265292300868345D-01,  4.469086468315797D-01,  1.420616050890493D-02, &
 7.331775979965447D-01,  8.135825128068572D-01,  1.307598884661690D-02, &
 7.416232943868383D-01,  6.401664396369919D-01,  1.652038500895329D-02, &
 7.474274447805114D-01, -2.490193226057417D-01,  9.746025489521986D-03, &
 7.577219445007012D-01, -6.503099455495434D-01,  1.766386441308518D-02, &
 7.585692250178416D-01, -9.940238473548991D-01,  2.133367947374089D-03, &
 7.673603283405851D-01, -8.229326660746660D-01,  1.248597476302831D-02, &
 7.692530439279005D-01, -9.355395173554912D-01,  7.514322260630891D-03, &
 7.854444511977640D-01,  2.685123392480584D-02,  1.533947945855647D-02, &
 7.951738457011064D-01,  9.766083680702315D-01,  4.356175996997274D-03, &
 7.985748483813998D-01,  2.025555068725613D-01,  1.564386357005296D-02, &
 8.040234894621253D-01, -2.042597387565252D-01,  7.710958187140682D-03, &
 8.057295032357437D-01,  8.915828031028744D-01,  9.355613099192112D-03, &
 8.088604175612499D-01,  4.023062626041685D-01,  1.273706153435572D-02, &
 8.120135674815725D-01, -5.076674583210536D-01,  1.736448568443276D-02, &
 8.133759777422149D-01,  5.487782375682692D-01,  1.217998404158868D-02, &
 8.184347733263844D-01,  7.425426026236549D-01,  1.279679392158505D-02, &
 8.235558633092787D-01, -3.024959465991686D-01,  1.287819098925984D-02, &
 8.421681940961352D-01, -9.736872041616552D-01,  4.112192665900335D-03, &
 8.426583009273289D-01, -7.378407924120958D-01,  1.274069526022431D-02, &
 8.491855987208501D-01, -8.846256408253794D-01,  8.283446027511682D-03, &
 8.516898507135523D-01, -7.990981970042101D-02,  1.580891087490480D-02, &
 8.583531941070754D-01,  9.966311518784791D-01,  1.191591564881406D-03, &
 8.707932748733679D-01, -9.983455554915148D-01,  6.345865698137260D-04, &
 8.719292766173237D-01,  3.244559296210806D-01,  1.339462628650847D-02, &
 8.741706562832676D-01,  1.282050668916198D-01,  1.359136343527793D-02, &
 8.746739329394990D-01,  9.458932113235630D-01,  5.483866186101370D-03, &
 8.754686572917406D-01,  6.486907444035410D-01,  9.118856886512235D-03, &
 8.810154998962139D-01,  8.328762658091308D-01,  8.944431517124202D-03, &
 8.838623245418704D-01,  5.232758761535393D-01,  8.099355551928950D-03, &
 8.840131826785472D-01, -6.067031031846036D-01,  1.277176198724360D-02, &
 8.857877394173622D-01, -3.901273813669436D-01,  1.389624600553866D-02, &
 9.091784209404282D-01, -9.377849360846731D-01,  4.939598298332105D-03, &
 9.095211566710759D-01, -1.967240155892789D-01,  1.315977866277586D-02, &
 9.097092205890601D-01, -8.157851178868343D-01,  8.243125043271836D-03, &
 9.196079033409038D-01,  7.363362622288353D-01,  5.921333683728877D-03, &
 9.227347373981668D-01,  2.518050384938889D-02,  1.062691558572691D-02, &
 9.248521839866148D-01,  9.836500044365560D-01,  2.345619531278534D-03, &
 9.251563778586870D-01,  4.438563917317115D-01,  9.900476467889377D-03, &
 9.257255001153735D-01, -9.889449924089616D-01,  1.597653710972395D-03, &
 9.343954029970296D-01,  9.015214103086258D-01,  5.328104999186108D-03, &
 9.369174879213626D-01,  2.389817273899876D-01,  1.111346808242325D-02, &
 9.383511550992609D-01,  6.373581080663476D-01,  5.774002588554636D-03, &
 9.387517764149524D-01, -4.968798107682113D-01,  1.020259840078752D-02, &
 9.387607494306587D-01, -7.000259293912848D-01,  8.261643223094358D-03, &
 9.539697271844676D-01,  7.975969707432101D-01,  4.649762577280237D-03, &
 9.552276863128365D-01, -3.035710530293175D-01,  9.006117332227408D-03, &
 9.569172017920470D-01, -8.842472974692178D-01,  4.741019829465620D-03, &
 9.595675104913648D-01, -7.355852323028661D-02,  7.652758779266264D-03, &
 9.644864346894841D-01, -9.667641619200008D-01,  2.030067204957960D-03, &
 9.656087615773162D-01,  5.543437727025696D-01,  6.351762240325599D-03, &
 9.688546673876272D-01,  9.558880345442317D-01,  2.480910477329663D-03, &
 9.704101090001410D-01,  9.981808611338953D-01,  4.561152547158576D-04, &
 9.727514081123080D-01,  1.110004091109647D-01,  6.093769602114571D-03, &
 9.729878975391641D-01,  3.616245012182894D-01,  6.843942401499502D-03, &
 9.756932294462006D-01, -6.036471845921362D-01,  5.800134625750472D-03, &
 9.760900548932613D-01, -7.838246719005716D-01,  4.407536360315319D-03, &
 9.782973640835879D-01, -9.971684762652360D-01,  4.311602698318422D-04, &
 9.807900912370063D-01,  7.129244508544674D-01,  4.127102044979779D-03, &
 9.808939118005312D-01,  8.613001240894053D-01,  2.999414636157759D-03, &
 9.835779953552617D-01, -4.135902303116288D-01,  5.032085033161774D-03, &
 9.854244802470254D-01, -1.682373835033575D-01,  4.864699918722623D-03, &
 9.871873668187979D-01,  1.693824175740657D-01,  2.336035230228115D-03, &
 9.897390691072502D-01, -9.305936554854670D-01,  1.645629389008965D-03, &
 9.934973942415222D-01,  4.709702784519761D-01,  2.855403033244952D-03, &
 9.941323665942218D-01,  9.840689837610336D-01,  5.975302834838432D-04, &
 9.948473950532203D-01,  9.223043056827241D-01,  1.118642207825798D-03, &
 9.948570811646354D-01,  6.241948125538140D-01,  1.966746818044319D-03, &
 9.955141358332547D-01, -7.009139270684177D-01,  1.973528831634365D-03, &
 9.955332555186237D-01, -8.505509962676160D-01,  1.399475221966474D-03, &
 9.959646721127126D-01, -4.250651416434814D-04,  2.683953315797548D-03, &
 9.966503083795464D-01,  2.697627971477953D-01,  2.110801603897598D-03, &
 9.966625578128554D-01, -9.821401814469173D-01,  4.298915672048476D-04, &
 9.972191681750349D-01, -5.232937991459530D-01,  1.621857507529301D-03, &
 9.977589931512456D-01, -2.851699647482527D-01,  1.679574685965640D-03, &
 9.982095733525613D-01,  7.942486273250328D-01,  1.122778646693857D-03 /)

  return
end
subroutine smr43 ( xyw )

!*****************************************************************************80
!
!! SMR43 returns the SMR rule of degree 43.
!
!  Discussion:
!
!    DEGREE: 43
!    SYMMETRY: (X,  Y),  (-X, -Y).
!    POINTS CARDINALITY: 331
!    NORM INF MOMS. RESIDUAL: 6.57894e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*331), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*331)

  xyw = (/ &
 -9.991322806157538D-01, -7.967757949667039D-01,  8.678616486509684D-04, &
 -9.982000639809739D-01,  3.046004953209935D-01,  1.439841751685133D-03, &
 -9.980850962629690D-01,  9.781664509229353D-01,  3.796649877334044D-04, &
 -9.980230789357751D-01, -2.518043976244231D-01,  1.843703555135520D-03, &
 -9.977169911523626D-01,  5.459548078849698D-01,  1.239809456010988D-03, &
 -9.960955981451255D-01,  1.323322402607845D-02,  2.563511060458582D-03, &
 -9.949822864151898D-01, -9.238195120237386D-01,  9.266737007306744D-04, &
 -9.949201671743397D-01,  7.003454609915903D-01,  2.006603012946033D-03, &
 -9.948772524482939D-01,  8.407859395090261D-01,  1.605442474502514D-03, &
 -9.948541523937408D-01, -9.833293028860037D-01,  5.491048194068317D-04, &
 -9.947061632621746D-01, -6.355790382588226D-01,  1.778286578522554D-03, &
 -9.945229623313124D-01, -4.853023018396496D-01,  2.560515852421350D-03, &
 -9.892614872423598D-01,  9.260146296311070D-01,  1.799734507689385D-03, &
 -9.871939619842668D-01, -8.755067171008981D-01,  1.519837361369944D-03, &
 -9.870688041516782D-01,  1.860477389466161D-01,  4.518470382030127D-03, &
 -9.867444463087381D-01,  4.389464150281105D-01,  4.224292354075523D-03, &
 -9.834968499928717D-01, -7.202131341080557D-01,  3.339955375858229D-03, &
 -9.821598385319343D-01,  9.959978097052690D-01,  4.727038168393605D-04, &
 -9.821204851739278D-01, -1.368717477114345D-01,  4.757586602695279D-03, &
 -9.797140053995109D-01, -3.605450203749538D-01,  5.952555069740412D-03, &
 -9.748774429719304D-01,  6.046447974749469D-01,  5.546938866694710D-03, &
 -9.734413327253255D-01, -9.978546421321081D-01,  4.474703090515473D-04, &
 -9.734116599154365D-01, -8.128285861906330D-02,  2.741115844813457D-03, &
 -9.726507374329582D-01,  7.726414313517832D-01,  4.741572721729229D-03, &
 -9.714591142922610D-01, -8.274759240878854D-01,  3.381861982854643D-03, &
 -9.707758044034546D-01, -9.550455839865367D-01,  2.339780436266730D-03, &
 -9.675614571152631D-01, -5.690626658543524D-01,  6.088138066683147D-03, &
 -9.643580663040768D-01,  9.675657234336767D-01,  2.156284749425144D-03, &
 -9.620411392118244D-01,  8.827193644891181D-02,  7.524938344770951D-03, &
 -9.613825223406508D-01,  3.274157880119070D-01,  8.329588693656027D-03, &
 -9.572105649891679D-01,  8.779211539499637D-01,  4.677019870857324D-03, &
 -9.482779256977600D-01, -6.571793975487423D-01,  3.415065808643305D-03, &
 -9.442203741741305D-01, -2.396912099299458D-01,  1.053267886519870D-02, &
 -9.414082069989970D-01, -4.455867154949159D-01,  7.955507648643412D-03, &
 -9.399484869570831D-01,  5.017481363429027D-01,  9.346304112770374D-03, &
 -9.387730081468121D-01, -8.994764149206039D-01,  5.120889482069984D-03, &
 -9.381605799832013D-01, -7.581359176425346D-01,  6.330117595761937D-03, &
 -9.324895156315322D-01,  6.876092944131506D-01,  8.757387580269081D-03, &
 -9.303980205538308D-01, -2.287492239980876D-02,  9.878323399096202D-03, &
 -9.300897829687235D-01, -9.834052375669528D-01,  2.235790741981890D-03, &
 -9.235245729050272D-01,  9.918027925163878D-01,  1.542906053318116D-03, &
 -9.175260810911099D-01,  2.167671303064032D-01,  1.277769691913465D-02, &
 -9.152022665122554D-01,  9.349908468306158D-01,  4.721132707483059D-03, &
 -9.085212108480799D-01,  8.115960772910453D-01,  8.234979199618303D-03, &
 -9.005451856752491D-01, -6.470132016778298D-01,  9.072910191199055D-03, &
 -8.993217981371787D-01, -5.116431205683809D-01,  8.049099608777895D-03, &
 -8.927214238682213D-01,  4.039129384019244D-01,  1.176810878122849D-02, &
 -8.881186605619299D-01, -8.304324891473370D-01,  8.581965557258065D-03, &
 -8.876535679652159D-01, -3.361428192098763D-01,  1.273089714018281D-02, &
 -8.857085475134302D-01, -1.254112109470145D-01,  1.296699198587140D-02, &
 -8.821398112805722D-01, -9.453230958968664D-01,  5.328273493767261D-03, &
 -8.750237163459592D-01,  5.925043126358809D-01,  1.336532935350772D-02, &
 -8.681630157484973D-01, -9.968478564406162D-01,  1.108072915590710D-03, &
 -8.654982773274537D-01,  8.883753842636366D-02,  1.557578581133525D-02, &
 -8.563237880711940D-01,  9.727943477844379D-01,  3.899549565205258D-03, &
 -8.529385601042461D-01,  8.850063664849166D-01,  8.114118976527893D-03, &
 -8.416510529475818D-01,  7.343186487220238D-01,  1.255955264577050D-02, &
 -8.384749004002887D-01,  3.197575534100762D-01,  1.323030988966136D-02, &
 -8.382565684334965D-01, -7.304981145627908D-01,  1.224239155066108D-02, &
 -8.367263219641764D-01,  9.989783711881817D-01,  6.905843510793296D-04, &
 -8.317712773416662D-01, -5.574060797969008D-01,  1.237820673005956D-02, &
 -8.211388015093348D-01, -4.085976590181732D-01,  1.240477807928645D-02, &
 -8.200424695478955D-01, -2.132333832998874D-01,  1.547445721646811D-02, &
 -8.166284772848996D-01, -8.902469000574972D-01,  9.021259420998788D-03, &
 -8.064166934103733D-01, -9.770750896183711D-01,  4.237570484423649D-03, &
 -8.007534551335261D-01,  2.023658932297688D-01,  1.164039038671748D-02, &
 -8.007277480191897D-01, -2.104803054778272D-02,  1.569505703943440D-02, &
 -8.004502220252274D-01,  4.920509614468455D-01,  1.783350078263945D-02, &
 -7.777206426895686D-01,  9.379771024961836D-01,  7.326924906570778D-03, &
 -7.728688446320272D-01,  8.237137982084558D-01,  1.213629881907029D-02, &
 -7.580631733732273D-01, -8.027077015709957D-01,  1.251455028114069D-02, &
 -7.577866929033681D-01,  6.473964743724965D-01,  1.731376923259042D-02, &
 -7.553675037695931D-01,  9.890969808970442D-01,  2.691505001410149D-03, &
 -7.542249834026444D-01, -6.390864016792512D-01,  1.601212151097312D-02, &
 -7.477885480587728D-01,  2.427391554099002D-01,  1.018027057488272D-02, &
 -7.429209417585371D-01, -4.572389551800778D-01,  1.367871025169973D-02, &
 -7.371197753463775D-01, -2.906469452332063D-01,  1.778595422410749D-02, &
 -7.324580428326298D-01, -8.991331137587374D-02,  1.376411964043993D-02, &
 -7.298747767373949D-01, -9.377223151384039D-01,  7.856423898031506D-03, &
 -7.216457298390802D-01, -9.955998257315364D-01,  1.925204978765617D-03, &
 -7.198181678973603D-01,  9.304616811847628D-02,  1.635290663392455D-02, &
 -7.130017786063146D-01,  3.849140372358901D-01,  2.099925831266623D-02, &
 -6.825679163672110D-01,  8.905466207929580D-01,  1.126602938845450D-02, &
 -6.763401791869282D-01,  7.520777122204155D-01,  1.664378870053760D-02, &
 -6.745643364827608D-01, -8.606759404486958D-01,  9.423794484989551D-03, &
 -6.692634952197962D-01,  5.097498990430799D-01,  3.490301165694596D-03, &
 -6.678673365644893D-01,  9.692798398364254D-01,  5.426070381428601D-03, &
 -6.643115741452658D-01, -5.309653253850217D-01,  1.761400113990701D-02, &
 -6.606757146764088D-01, -7.200291927434657D-01,  1.686289443033400D-02, &
 -6.567913888935971D-01,  5.564860922255590D-01,  1.944041905076146D-02, &
 -6.534475768044156D-01, -1.614337947470229D-01,  1.995971702129454D-02, &
 -6.524650541104557D-01,  9.984813564068824D-01,  8.021305622560764D-04, &
 -6.485591953402302D-01,  1.462165876218090D-01,  1.245039847543152D-02, &
 -6.399859555346357D-01, -9.716158671859889D-01,  5.166264959182605D-03, &
 -6.305799776467085D-01, -3.579775654349885D-01,  1.953568169826047D-02, &
 -6.267627879174098D-01, -8.871690949497815D-01,  4.520535674923600D-03, &
 -6.120426992404430D-01,  2.869750962968468D-03,  1.860789887443906D-02, &
 -6.088744531800644D-01,  2.804875419270162D-01,  2.332988515386343D-02, &
 -5.749843157741534D-01, -9.904789673241521D-01,  2.362095702578418D-03, &
 -5.718072946653548D-01,  8.322456115066252D-01,  1.553421465906625D-02, &
 -5.675480158302344D-01,  9.377249812058859D-01,  9.005466515286650D-03, &
 -5.664486963280643D-01, -6.135983682693644D-01,  2.017210091127541D-02, &
 -5.657771979464153D-01,  6.704839134317745D-01,  2.109811178256368D-02, &
 -5.585579279296714D-01, -7.943301890435838D-01,  1.609461230917944D-02, &
 -5.579555277532646D-01, -9.225093413353801D-01,  9.166625675892499D-03, &
 -5.577648940591486D-01,  9.919460143463890D-01,  2.677714001127571D-03, &
 -5.482310238931972D-01,  4.436263081953605D-01,  2.595341256088991D-02, &
 -5.447318792923874D-01, -4.312874087466062D-01,  1.584488792236623D-02, &
 -5.329070463527521D-01, -2.338802504012752D-01,  2.422380287073101D-02, &
 -5.252362328960822D-01,  3.532940066961791D-02,  9.744250397514996D-03, &
 -5.130671510975665D-01, -6.775266904189804D-02,  1.459619277289368D-02, &
 -4.960740015643434D-01,  1.706460416978806D-01,  2.591008998522666D-02, &
 -4.808128433935768D-01, -9.974703436931273D-01,  1.443156609799716D-03, &
 -4.623102743179813D-01, -9.610162776458973D-01,  7.615494645822680D-03, &
 -4.600618171289382D-01, -4.996628273183154D-01,  2.060900455474742D-02, &
 -4.564322622275068D-01, -6.991541335990263D-01,  2.068903174625100D-02, &
 -4.548079347101475D-01,  9.746241299392923D-01,  6.067456845050942D-03, &
 -4.515547213045702D-01, -8.598202981137183D-01,  1.439130083445319D-02, &
 -4.503129032330394D-01,  7.633185764987656D-01,  1.967366980699904D-02, &
 -4.502426979449590D-01,  5.735143166228439D-01,  2.537869809042589D-02, &
 -4.496670834961325D-01,  8.946719781100732D-01,  1.311990862370523D-02, &
 -4.251260023953483D-01,  3.328741198230487D-01,  2.923686270121404D-02, &
 -4.102747237675974D-01, -3.287465817704832D-01,  2.653855839458294D-02, &
 -4.097742235858718D-01, -1.135690075591068D-01,  2.264588400082614D-02, &
 -3.821379964609022D-01,  9.977278116070721D-01,  1.492947570302465D-03, &
 -3.710645184035626D-01,  6.451693464263640D-02,  2.822176831273999D-02, &
 -3.481673778720014D-01, -5.903202117641789D-01,  2.447652324050865D-02, &
 -3.448938453586106D-01, -9.856166934989374D-01,  5.018022434939532D-03, &
 -3.422130750204260D-01, -9.147110358303762D-01,  1.211341740570449D-02, &
 -3.378211193742023D-01, -7.806996115904031D-01,  1.966729409903938D-02, &
 -3.293359567236023D-01,  6.802105984639650D-01,  2.316447832146869D-02, &
 -3.271120843566677D-01,  9.451621148227166D-01,  1.023548496461210D-02, &
 -3.229115509093045D-01,  4.710955737486453D-01,  2.874889270545898D-02, &
 -3.211530646437794D-01,  8.398359715224299D-01,  1.720122054179252D-02, &
 -3.191122714012474D-01, -1.905915965306147D-01,  1.407630952884238D-02, &
 -2.905224871790252D-01,  2.219174453896190D-01,  3.135886233490107D-02, &
 -2.868275827924473D-01, -4.287232032846321D-01,  2.644181346508640D-02, &
 -2.813268043035183D-01,  9.900617341002494D-01,  2.531900366243961D-03, &
 -2.489834837398367D-01, -2.386259984115299D-01,  2.038703880401185D-02, &
 -2.348227489146337D-01, -3.642259826195845D-02,  2.974478219547869D-02, &
 -2.229672705935626D-01, -9.536956599040048D-01,  8.925090234945601D-03, &
 -2.217237803712502D-01, -6.844325665508253D-01,  2.424626466446409D-02, &
 -2.128621594472864D-01, -8.526186852917771D-01,  1.756834142926637D-02, &
 -2.125561177477307D-01, -9.980480071481969D-01,  1.726623494738264D-03, &
 -2.054220511368849D-01,  5.927379621951687D-01,  2.476004812382263D-02, &
 -1.954822662555086D-01,  7.701425309943154D-01,  2.069081296177256D-02, &
 -1.899491393527934D-01,  9.774606174758702D-01,  5.458708894084326D-03, &
 -1.869931902994500D-01,  3.648439403146066D-01,  3.090130558081868D-02, &
 -1.869854048603779D-01,  9.026780626332723D-01,  1.464880341973280D-02, &
 -1.679896766248765D-01, -5.248629640600491D-01,  2.470645077115440D-02, &
 -1.465102454558500D-01,  1.123409399107938D-01,  3.177165363173588D-02, &
 -1.385073680894356D-01, -3.298408069038985D-01,  2.620563217542392D-02, &
 -1.134715731110063D-01, -9.780057138044185D-01,  4.706880211425860D-03, &
 -1.021222696160731D-01,  9.977141232529759D-01,  1.651355185248162D-03, &
 -9.405687967364605D-02, -1.438416812367627D-01,  3.079509771216723D-02, &
 -8.817076361552034D-02, -7.703079005902046D-01,  2.232155693784380D-02, &
 -8.704255665377880D-02,  5.068242195166577D-01,  2.401020117466116D-02, &
 -7.913623635980109D-02, -9.095514118294697D-01,  1.423838918529654D-02, &
 -6.929449557918647D-02,  6.932074779450002D-01,  2.267377008668297D-02, &
 -5.631165265722810D-02,  9.521617930920341D-01,  1.005557273422889D-02, &
 -5.146821758475675D-02, -6.119016003137178D-01,  2.335034055431550D-02, &
 -4.992117521864334D-02,  8.431401729697686D-01,  1.893911020782059D-02, &
 -4.672957151157093D-02,  2.554909810874523D-01,  3.137166376170161D-02, &
 -2.525132080623741D-02, -9.900183656322150D-01,  3.101973828036974D-03, &
 -2.362106216876548D-02, -4.221330758506368D-01,  2.444427008848211D-02, &
 0.000000000000000D+00,  0.000000000000000D+00,  3.168017196709776D-02, &
 2.362106216876548D-02,  4.221330758506368D-01,  2.444427008848211D-02, &
 2.525132080623741D-02,  9.900183656322150D-01,  3.101973828036974D-03, &
 4.672957151157093D-02, -2.554909810874523D-01,  3.137166376170161D-02, &
 4.992117521864334D-02, -8.431401729697686D-01,  1.893911020782059D-02, &
 5.146821758475675D-02,  6.119016003137178D-01,  2.335034055431550D-02, &
 5.631165265722810D-02, -9.521617930920341D-01,  1.005557273422889D-02, &
 6.929449557918647D-02, -6.932074779450002D-01,  2.267377008668297D-02, &
 7.913623635980109D-02,  9.095514118294697D-01,  1.423838918529654D-02, &
 8.704255665377880D-02, -5.068242195166577D-01,  2.401020117466116D-02, &
 8.817076361552034D-02,  7.703079005902046D-01,  2.232155693784380D-02, &
 9.405687967364605D-02,  1.438416812367627D-01,  3.079509771216723D-02, &
 1.021222696160731D-01, -9.977141232529759D-01,  1.651355185248162D-03, &
 1.134715731110063D-01,  9.780057138044185D-01,  4.706880211425860D-03, &
 1.385073680894356D-01,  3.298408069038985D-01,  2.620563217542392D-02, &
 1.465102454558500D-01, -1.123409399107938D-01,  3.177165363173588D-02, &
 1.679896766248765D-01,  5.248629640600491D-01,  2.470645077115440D-02, &
 1.869854048603779D-01, -9.026780626332723D-01,  1.464880341973280D-02, &
 1.869931902994500D-01, -3.648439403146066D-01,  3.090130558081868D-02, &
 1.899491393527934D-01, -9.774606174758702D-01,  5.458708894084326D-03, &
 1.954822662555086D-01, -7.701425309943154D-01,  2.069081296177256D-02, &
 2.054220511368849D-01, -5.927379621951687D-01,  2.476004812382263D-02, &
 2.125561177477307D-01,  9.980480071481969D-01,  1.726623494738264D-03, &
 2.128621594472864D-01,  8.526186852917771D-01,  1.756834142926637D-02, &
 2.217237803712502D-01,  6.844325665508253D-01,  2.424626466446409D-02, &
 2.229672705935626D-01,  9.536956599040048D-01,  8.925090234945601D-03, &
 2.348227489146337D-01,  3.642259826195845D-02,  2.974478219547869D-02, &
 2.489834837398367D-01,  2.386259984115299D-01,  2.038703880401185D-02, &
 2.813268043035183D-01, -9.900617341002494D-01,  2.531900366243961D-03, &
 2.868275827924473D-01,  4.287232032846321D-01,  2.644181346508640D-02, &
 2.905224871790252D-01, -2.219174453896190D-01,  3.135886233490107D-02, &
 3.191122714012474D-01,  1.905915965306147D-01,  1.407630952884238D-02, &
 3.211530646437794D-01, -8.398359715224299D-01,  1.720122054179252D-02, &
 3.229115509093045D-01, -4.710955737486453D-01,  2.874889270545898D-02, &
 3.271120843566677D-01, -9.451621148227166D-01,  1.023548496461210D-02, &
 3.293359567236023D-01, -6.802105984639650D-01,  2.316447832146869D-02, &
 3.378211193742023D-01,  7.806996115904031D-01,  1.966729409903938D-02, &
 3.422130750204260D-01,  9.147110358303762D-01,  1.211341740570449D-02, &
 3.448938453586106D-01,  9.856166934989374D-01,  5.018022434939532D-03, &
 3.481673778720014D-01,  5.903202117641789D-01,  2.447652324050865D-02, &
 3.710645184035626D-01, -6.451693464263640D-02,  2.822176831273999D-02, &
 3.821379964609022D-01, -9.977278116070721D-01,  1.492947570302465D-03, &
 4.097742235858718D-01,  1.135690075591068D-01,  2.264588400082614D-02, &
 4.102747237675974D-01,  3.287465817704832D-01,  2.653855839458294D-02, &
 4.251260023953483D-01, -3.328741198230487D-01,  2.923686270121404D-02, &
 4.496670834961325D-01, -8.946719781100732D-01,  1.311990862370523D-02, &
 4.502426979449590D-01, -5.735143166228439D-01,  2.537869809042589D-02, &
 4.503129032330394D-01, -7.633185764987656D-01,  1.967366980699904D-02, &
 4.515547213045702D-01,  8.598202981137183D-01,  1.439130083445319D-02, &
 4.548079347101475D-01, -9.746241299392923D-01,  6.067456845050942D-03, &
 4.564322622275068D-01,  6.991541335990263D-01,  2.068903174625100D-02, &
 4.600618171289382D-01,  4.996628273183154D-01,  2.060900455474742D-02, &
 4.623102743179813D-01,  9.610162776458973D-01,  7.615494645822680D-03, &
 4.808128433935768D-01,  9.974703436931273D-01,  1.443156609799716D-03, &
 4.960740015643434D-01, -1.706460416978806D-01,  2.591008998522666D-02, &
 5.130671510975665D-01,  6.775266904189804D-02,  1.459619277289368D-02, &
 5.252362328960822D-01, -3.532940066961791D-02,  9.744250397514996D-03, &
 5.329070463527521D-01,  2.338802504012752D-01,  2.422380287073101D-02, &
 5.447318792923874D-01,  4.312874087466062D-01,  1.584488792236623D-02, &
 5.482310238931972D-01, -4.436263081953605D-01,  2.595341256088991D-02, &
 5.577648940591486D-01, -9.919460143463890D-01,  2.677714001127571D-03, &
 5.579555277532646D-01,  9.225093413353801D-01,  9.166625675892499D-03, &
 5.585579279296714D-01,  7.943301890435838D-01,  1.609461230917944D-02, &
 5.657771979464153D-01, -6.704839134317745D-01,  2.109811178256368D-02, &
 5.664486963280643D-01,  6.135983682693644D-01,  2.017210091127541D-02, &
 5.675480158302344D-01, -9.377249812058859D-01,  9.005466515286650D-03, &
 5.718072946653548D-01, -8.322456115066252D-01,  1.553421465906625D-02, &
 5.749843157741534D-01,  9.904789673241521D-01,  2.362095702578418D-03, &
 6.088744531800644D-01, -2.804875419270162D-01,  2.332988515386343D-02, &
 6.120426992404430D-01, -2.869750962968468D-03,  1.860789887443906D-02, &
 6.267627879174098D-01,  8.871690949497815D-01,  4.520535674923600D-03, &
 6.305799776467085D-01,  3.579775654349885D-01,  1.953568169826047D-02, &
 6.399859555346357D-01,  9.716158671859889D-01,  5.166264959182605D-03, &
 6.485591953402302D-01, -1.462165876218090D-01,  1.245039847543152D-02, &
 6.524650541104557D-01, -9.984813564068824D-01,  8.021305622560764D-04, &
 6.534475768044156D-01,  1.614337947470229D-01,  1.995971702129454D-02, &
 6.567913888935971D-01, -5.564860922255590D-01,  1.944041905076146D-02, &
 6.606757146764088D-01,  7.200291927434657D-01,  1.686289443033400D-02, &
 6.643115741452658D-01,  5.309653253850217D-01,  1.761400113990701D-02, &
 6.678673365644893D-01, -9.692798398364254D-01,  5.426070381428601D-03, &
 6.692634952197962D-01, -5.097498990430799D-01,  3.490301165694596D-03, &
 6.745643364827608D-01,  8.606759404486958D-01,  9.423794484989551D-03, &
 6.763401791869282D-01, -7.520777122204155D-01,  1.664378870053760D-02, &
 6.825679163672110D-01, -8.905466207929580D-01,  1.126602938845450D-02, &
 7.130017786063146D-01, -3.849140372358901D-01,  2.099925831266623D-02, &
 7.198181678973603D-01, -9.304616811847628D-02,  1.635290663392455D-02, &
 7.216457298390802D-01,  9.955998257315364D-01,  1.925204978765617D-03, &
 7.298747767373949D-01,  9.377223151384039D-01,  7.856423898031506D-03, &
 7.324580428326298D-01,  8.991331137587374D-02,  1.376411964043993D-02, &
 7.371197753463775D-01,  2.906469452332063D-01,  1.778595422410749D-02, &
 7.429209417585371D-01,  4.572389551800778D-01,  1.367871025169973D-02, &
 7.477885480587728D-01, -2.427391554099002D-01,  1.018027057488272D-02, &
 7.542249834026444D-01,  6.390864016792512D-01,  1.601212151097312D-02, &
 7.553675037695931D-01, -9.890969808970442D-01,  2.691505001410149D-03, &
 7.577866929033681D-01, -6.473964743724965D-01,  1.731376923259042D-02, &
 7.580631733732273D-01,  8.027077015709957D-01,  1.251455028114069D-02, &
 7.728688446320272D-01, -8.237137982084558D-01,  1.213629881907029D-02, &
 7.777206426895686D-01, -9.379771024961836D-01,  7.326924906570778D-03, &
 8.004502220252274D-01, -4.920509614468455D-01,  1.783350078263945D-02, &
 8.007277480191897D-01,  2.104803054778272D-02,  1.569505703943440D-02, &
 8.007534551335261D-01, -2.023658932297688D-01,  1.164039038671748D-02, &
 8.064166934103733D-01,  9.770750896183711D-01,  4.237570484423649D-03, &
 8.166284772848996D-01,  8.902469000574972D-01,  9.021259420998788D-03, &
 8.200424695478955D-01,  2.132333832998874D-01,  1.547445721646811D-02, &
 8.211388015093348D-01,  4.085976590181732D-01,  1.240477807928645D-02, &
 8.317712773416662D-01,  5.574060797969008D-01,  1.237820673005956D-02, &
 8.367263219641764D-01, -9.989783711881817D-01,  6.905843510793296D-04, &
 8.382565684334965D-01,  7.304981145627908D-01,  1.224239155066108D-02, &
 8.384749004002887D-01, -3.197575534100762D-01,  1.323030988966136D-02, &
 8.416510529475818D-01, -7.343186487220238D-01,  1.255955264577050D-02, &
 8.529385601042461D-01, -8.850063664849166D-01,  8.114118976527893D-03, &
 8.563237880711940D-01, -9.727943477844379D-01,  3.899549565205258D-03, &
 8.654982773274537D-01, -8.883753842636366D-02,  1.557578581133525D-02, &
 8.681630157484973D-01,  9.968478564406162D-01,  1.108072915590710D-03, &
 8.750237163459592D-01, -5.925043126358809D-01,  1.336532935350772D-02, &
 8.821398112805722D-01,  9.453230958968664D-01,  5.328273493767261D-03, &
 8.857085475134302D-01,  1.254112109470145D-01,  1.296699198587140D-02, &
 8.876535679652159D-01,  3.361428192098763D-01,  1.273089714018281D-02, &
 8.881186605619299D-01,  8.304324891473370D-01,  8.581965557258065D-03, &
 8.927214238682213D-01, -4.039129384019244D-01,  1.176810878122849D-02, &
 8.993217981371787D-01,  5.116431205683809D-01,  8.049099608777895D-03, &
 9.005451856752491D-01,  6.470132016778298D-01,  9.072910191199055D-03, &
 9.085212108480799D-01, -8.115960772910453D-01,  8.234979199618303D-03, &
 9.152022665122554D-01, -9.349908468306158D-01,  4.721132707483059D-03, &
 9.175260810911099D-01, -2.167671303064032D-01,  1.277769691913465D-02, &
 9.235245729050272D-01, -9.918027925163878D-01,  1.542906053318116D-03, &
 9.300897829687235D-01,  9.834052375669528D-01,  2.235790741981890D-03, &
 9.303980205538308D-01,  2.287492239980876D-02,  9.878323399096202D-03, &
 9.324895156315322D-01, -6.876092944131506D-01,  8.757387580269081D-03, &
 9.381605799832013D-01,  7.581359176425346D-01,  6.330117595761937D-03, &
 9.387730081468121D-01,  8.994764149206039D-01,  5.120889482069984D-03, &
 9.399484869570831D-01, -5.017481363429027D-01,  9.346304112770374D-03, &
 9.414082069989970D-01,  4.455867154949159D-01,  7.955507648643412D-03, &
 9.442203741741305D-01,  2.396912099299458D-01,  1.053267886519870D-02, &
 9.482779256977600D-01,  6.571793975487423D-01,  3.415065808643305D-03, &
 9.572105649891679D-01, -8.779211539499637D-01,  4.677019870857324D-03, &
 9.613825223406508D-01, -3.274157880119070D-01,  8.329588693656027D-03, &
 9.620411392118244D-01, -8.827193644891181D-02,  7.524938344770951D-03, &
 9.643580663040768D-01, -9.675657234336767D-01,  2.156284749425144D-03, &
 9.675614571152631D-01,  5.690626658543524D-01,  6.088138066683147D-03, &
 9.707758044034546D-01,  9.550455839865367D-01,  2.339780436266730D-03, &
 9.714591142922610D-01,  8.274759240878854D-01,  3.381861982854643D-03, &
 9.726507374329582D-01, -7.726414313517832D-01,  4.741572721729229D-03, &
 9.734116599154365D-01,  8.128285861906330D-02,  2.741115844813457D-03, &
 9.734413327253255D-01,  9.978546421321081D-01,  4.474703090515473D-04, &
 9.748774429719304D-01, -6.046447974749469D-01,  5.546938866694710D-03, &
 9.797140053995109D-01,  3.605450203749538D-01,  5.952555069740412D-03, &
 9.821204851739278D-01,  1.368717477114345D-01,  4.757586602695279D-03, &
 9.821598385319343D-01, -9.959978097052690D-01,  4.727038168393605D-04, &
 9.834968499928717D-01,  7.202131341080557D-01,  3.339955375858229D-03, &
 9.867444463087381D-01, -4.389464150281105D-01,  4.224292354075523D-03, &
 9.870688041516782D-01, -1.860477389466161D-01,  4.518470382030127D-03, &
 9.871939619842668D-01,  8.755067171008981D-01,  1.519837361369944D-03, &
 9.892614872423598D-01, -9.260146296311070D-01,  1.799734507689385D-03, &
 9.945229623313124D-01,  4.853023018396496D-01,  2.560515852421350D-03, &
 9.947061632621746D-01,  6.355790382588226D-01,  1.778286578522554D-03, &
 9.948541523937408D-01,  9.833293028860037D-01,  5.491048194068317D-04, &
 9.948772524482939D-01, -8.407859395090261D-01,  1.605442474502514D-03, &
 9.949201671743397D-01, -7.003454609915903D-01,  2.006603012946033D-03, &
 9.949822864151898D-01,  9.238195120237386D-01,  9.266737007306744D-04, &
 9.960955981451255D-01, -1.323322402607845D-02,  2.563511060458582D-03, &
 9.977169911523626D-01, -5.459548078849698D-01,  1.239809456010988D-03, &
 9.980230789357751D-01,  2.518043976244231D-01,  1.843703555135520D-03, &
 9.980850962629690D-01, -9.781664509229353D-01,  3.796649877334044D-04, &
 9.982000639809739D-01, -3.046004953209935D-01,  1.439841751685133D-03, &
 9.991322806157538D-01,  7.967757949667039D-01,  8.678616486509684D-04 /)

  return
end
subroutine smr44 ( xyw )

!*****************************************************************************80
!
!! SMR44 returns the SMR rule of degree 44.
!
!  Discussion:
!
!    DEGREE: 44
!    POINTS CARDINALITY: 353
!    NORM INF MOMS. RESIDUAL: 1.39699e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*353), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*353)

  xyw = (/ &
 -9.984320392366739D-01, -8.069907738631789D-01,  9.129188297919674D-04, &
 -9.983184531837725D-01,  9.305063618730227D-01,  5.320673982755963D-04, &
 -9.978244272094350D-01,  2.010518994335128D-01,  1.598745058561678D-03, &
 -9.974547076089806D-01,  4.442097888110615D-01,  1.587226283438206D-03, &
 -9.971550888623897D-01, -5.768131021729579D-02,  1.901977649434094D-03, &
 -9.967647638775373D-01,  8.058203134817903D-01,  1.263686704072662D-03, &
 -9.963702759402693D-01,  9.957226369845009D-01,  1.818612016165590D-04, &
 -9.963181710633270D-01, -6.304189998071564D-01,  1.671127161151113D-03, &
 -9.961268807224163D-01,  6.456711899254686D-01,  1.750825399677425D-03, &
 -9.957522090105495D-01, -9.275216968816482D-01,  8.507815083388259D-04, &
 -9.951693924758787D-01, -2.761138658566978D-01,  2.436900445069140D-03, &
 -9.950054666513565D-01, -9.849707705106929D-01,  4.757246968341718D-04, &
 -9.946541882949513D-01, -4.583314062976532D-01,  2.366650251412720D-03, &
 -9.887114315163458D-01,  9.660230724784559D-01,  8.879418773849759D-04, &
 -9.846991374239497D-01,  7.976665855520176D-02,  5.012110624120673D-03, &
 -9.844761515180129D-01,  3.207459712592796D-01,  4.876181551671285D-03, &
 -9.842610329585771D-01, -8.709872191992893D-01,  2.295666225344954D-03, &
 -9.839028036500266D-01, -7.269350704556350D-01,  3.598356544188341D-03, &
 -9.834521968435078D-01,  8.788181549694504D-01,  2.662295402621843D-03, &
 -9.825404996126923D-01,  5.377600798078346D-01,  4.243392110291322D-03, &
 -9.791830807570596D-01,  7.300801609052650D-01,  4.174881751974668D-03, &
 -9.789536888169472D-01, -1.541839686056489D-01,  5.635575613152338D-03, &
 -9.754623934517895D-01, -9.985001905507400D-01,  3.451126367359588D-04, &
 -9.754074605989603D-01, -5.489105297220782D-01,  5.119253227374393D-03, &
 -9.743732738644221D-01, -9.576680228121058D-01,  1.885947698906212D-03, &
 -9.727071455292210D-01,  9.854153480279049D-01,  9.090447956991166D-04, &
 -9.724216540568620D-01, -3.604921321100248D-01,  5.763676619977396D-03, &
 -9.613138962914113D-01, -8.110561453053367D-01,  3.754018364329767D-03, &
 -9.569550751753445D-01,  9.321525496230852D-01,  3.154552805737187D-03, &
 -9.556428656633877D-01,  2.033112164565538D-01,  8.655618940100654D-03, &
 -9.549267697092383D-01,  4.267664542473830D-01,  7.666973204798044D-03, &
 -9.533681225680328D-01, -1.542928806337710D-02,  8.164452383475256D-03, &
 -9.527049674156014D-01,  6.174677639259242D-01,  6.608979468596846D-03, &
 -9.515654916231491D-01,  8.125776987261066D-01,  5.354225267337657D-03, &
 -9.490456638939141D-01, -6.481440018182706D-01,  6.672612545168258D-03, &
 -9.458175364481419D-01, -9.060068746246541D-01,  4.013235135085827D-03, &
 -9.440126918917942D-01,  9.976234060121431D-01,  5.680139121819110D-04, &
 -9.437045246883812D-01, -4.180391499005318D-01,  4.052305718583254D-03, &
 -9.416958977488444D-01, -9.832610660242087D-01,  1.644473802134468D-03, &
 -9.406877057002140D-01, -2.319813480159833D-01,  8.705386624332852D-03, &
 -9.296781480094017D-01, -7.566364668417300D-01,  4.783429752162442D-03, &
 -9.248302265385766D-01, -4.861577371922396D-01,  7.748939834534853D-03, &
 -9.202441950236100D-01,  9.674488696318712D-01,  2.660205689239971D-03, &
 -9.178390013250890D-01,  7.064362568998120D-01,  7.919583195340947D-03, &
 -9.135758448462131D-01,  8.754421512868488D-01,  5.404549032231900D-03, &
 -9.119456444341953D-01,  3.233647958995216D-01,  1.083291124444676D-02, &
 -9.079717560919897D-01, -8.773647290343602D-02,  9.522960144764343D-03, &
 -9.067025869022671D-01,  1.076010187739800D-01,  1.170317912042211D-02, &
 -9.051126411361261D-01,  5.170998371398160D-01,  1.099643030005613D-02, &
 -9.001351500517843D-01, -9.461649530258005D-01,  4.028247494909381D-03, &
 -9.000620333263829D-01, -8.422658056671526D-01,  6.586062353219417D-03, &
 -8.994849690542454D-01, -9.938608373644522D-01,  9.520566362941994D-04, &
 -8.941680642100808D-01, -3.104307200910414D-01,  9.898803205596610D-03, &
 -8.932311675008094D-01, -5.876846915824177D-01,  7.570892945063220D-03, &
 -8.795126005531750D-01, -7.053987104996297D-01,  8.491984407075194D-03, &
 -8.784492099639224D-01,  9.883243937096547D-01,  1.809730927741861D-03, &
 -8.693740466112758D-01,  9.210068898056959D-01,  4.897281085790932D-03, &
 -8.693401894440411D-01,  7.856297245279599D-01,  9.261454593228968D-03, &
 -8.562011220892315D-01, -3.962460994060516D-01,  9.981754074698595D-03, &
 -8.548549835925230D-01,  2.399548122908549D-01,  1.209333227731901D-02, &
 -8.532888443992166D-01,  6.222509726831481D-01,  1.233013730701336D-02, &
 -8.528074077558421D-01, -1.579638544671366D-01,  1.324588980901926D-02, &
 -8.444113766994861D-01, -9.992229866877739D-01,  4.723975132108903D-04, &
 -8.432057487089938D-01,  3.235108142044065D-02,  1.319558395099830D-02, &
 -8.430373389996317D-01, -8.928430380538469D-01,  6.787529444568871D-03, &
 -8.425055028423227D-01, -5.289098324323593D-01,  8.580086025567452D-03, &
 -8.396012261206522D-01, -9.728858072059390D-01,  3.439212998921980D-03, &
 -8.382826128298011D-01,  4.169643647390908D-01,  1.529603938770566D-02, &
 -8.216846795004334D-01, -7.826199200643963D-01,  1.066116384062461D-02, &
 -8.180509590829773D-01,  9.976706498590422D-01,  8.622182721712620D-04, &
 -8.168446401782580D-01,  9.569871415452944D-01,  4.642547532189030D-03, &
 -8.059705646063106D-01,  8.562279695272285D-01,  9.713220584480500D-03, &
 -7.985378237516410D-01, -6.361943884365141D-01,  1.288799983989059D-02, &
 -7.874963351816394D-01,  7.136737011098295D-01,  1.328855758833727D-02, &
 -7.873181180776506D-01,  1.717693790572155D-01,  1.456745869621430D-02, &
 -7.867043322440256D-01, -2.603635734391026D-01,  1.766717913659451D-02, &
 -7.837010537620064D-01, -4.338871119370292D-01,  1.153873491612521D-02, &
 -7.718371515252632D-01, -9.328817815076849D-01,  6.466448787081487D-03, &
 -7.714891987669056D-01, -4.239834940027459D-02,  1.628468473942501D-02, &
 -7.713192309659846D-01,  5.319196451075733D-01,  1.658253232258541D-02, &
 -7.617253581469365D-01, -9.897388221915862D-01,  2.488625548037977D-03, &
 -7.506982895864639D-01,  3.204233011897250D-01,  1.685029450873451D-02, &
 -7.448534415599564D-01,  9.829922539741698D-01,  3.520796639776173D-03, &
 -7.421873132631707D-01, -8.453867233878035D-01,  1.088288447448831D-02, &
 -7.293425876035039D-01,  9.154064068042572D-01,  8.936809305882937D-03, &
 -7.223446846603496D-01, -7.141244471949223D-01,  1.414814648905025D-02, &
 -7.219135429448188D-01, -5.263185876605118D-01,  1.575035952702964D-02, &
 -7.098617300046203D-01,  7.947984896859370D-01,  1.339686789384787D-02, &
 -6.988495988698514D-01,  4.052943040220409D-01,  9.837663715320634D-03, &
 -6.984909504155071D-01, -1.429846401852013D-01,  1.896573077123497D-02, &
 -6.975652345893874D-01,  9.525558491386997D-02,  2.060322580221702D-02, &
 -6.900736961878055D-01,  6.326479337076335D-01,  1.728656050260011D-02, &
 -6.869058806489352D-01, -3.499362651285792D-01,  2.042431472019608D-02, &
 -6.838451466610610D-01, -9.632238434827868D-01,  5.536575368407264D-03, &
 -6.601354229220036D-01, -9.978926285407612D-01,  1.118308079993473D-03, &
 -6.591611069246858D-01,  9.972971332925751D-01,  1.393373155547319D-03, &
 -6.496630709138930D-01, -8.968850821145237D-01,  9.867235398314472D-03, &
 -6.435615255682987D-01,  4.745725306260367D-01,  1.695728879109135D-02, &
 -6.382152417385206D-01,  9.593302235740115D-01,  6.948544515653850D-03, &
 -6.368057767453273D-01, -6.105621900036199D-01,  1.773677383165920D-02, &
 -6.352930402436240D-01,  2.440334398061165D-01,  2.247199576089053D-02, &
 -6.302597734646941D-01, -7.836990702094097D-01,  1.442675294839290D-02, &
 -6.222316612499560D-01,  8.650945015472389D-01,  1.244266398906457D-02, &
 -6.142105393288021D-01, -3.115349747226613D-02,  1.267213816470802D-02, &
 -5.999445700339456D-01,  7.231403345609435D-01,  1.705107902581306D-02, &
 -5.985364302471942D-01, -2.220826177325775D-01,  2.068460393331641D-02, &
 -5.874715162971924D-01, -4.537860718695650D-01,  2.256935531509155D-02, &
 -5.805876391669599D-01,  1.164148986297675D-02,  1.455966199822115D-02, &
 -5.761875109801690D-01, -9.834901963379014D-01,  4.021379301366000D-03, &
 -5.536892203872140D-01,  5.713476331182120D-01,  2.021949241318215D-02, &
 -5.482191724466468D-01, -9.351120650991530D-01,  7.900752509637180D-03, &
 -5.443795454192639D-01,  3.668375708005358D-01,  2.231767290088453D-02, &
 -5.356710284369979D-01, -6.904452102919497D-01,  1.837686099829941D-02, &
 -5.352962150371631D-01,  9.876776882519422D-01,  4.155389888548638D-03, &
 -5.257781590187137D-01, -8.445781803925743D-01,  1.356203757752880D-02, &
 -5.248342428534777D-01,  9.219407641844128D-01,  1.026387297173803D-02, &
 -5.174066557246780D-01,  1.518777346465177D-01,  2.518880761805230D-02, &
 -5.036594510447880D-01,  8.035723784673375D-01,  1.586067262933542D-02, &
 -5.034025143249927D-01, -3.126938402863565D-01,  2.210632272995924D-02, &
 -4.806633025223544D-01, -1.069134743166169D-01,  2.522706612518943D-02, &
 -4.768202265102032D-01, -5.503872364548488D-01,  2.284324106026750D-02, &
 -4.646325900518826D-01, -9.961732199116691D-01,  1.946334569341992D-03, &
 -4.547884920410544D-01,  6.649539370735507D-01,  1.931316094733287D-02, &
 -4.421806574347436D-01, -9.613324393854693D-01,  6.002473078471003D-03, &
 -4.394327628517760D-01,  4.730023882906435D-01,  2.198395890845260D-02, &
 -4.232998688209890D-01,  2.883435479068856D-01,  2.182550754053004D-02, &
 -4.226231099797195D-01, -7.634216829847481D-01,  1.777618548814907D-02, &
 -4.220890965407914D-01,  9.630811547877729D-01,  6.855160079679186D-03, &
 -4.112420604475592D-01, -8.937882050869647D-01,  1.158849916478484D-02, &
 -4.024593442610409D-01,  8.726238717970590D-01,  1.358874265349387D-02, &
 -4.002269679736949D-01, -4.051442349677620D-01,  2.393039425904835D-02, &
 -3.993267478943860D-01,  5.176385479657997D-02,  2.702588719348437D-02, &
 -3.923849152916527D-01,  9.981789733855365D-01,  1.591517314127669D-03, &
 -3.906313798231402D-01, -1.840437971511796D-01,  1.351522769629539D-02, &
 -3.582740394972692D-01,  7.469437554790193D-01,  1.688419511612995D-02, &
 -3.576445111330830D-01, -6.381016019538316D-01,  2.217271254303683D-02, &
 -3.471390596376763D-01,  9.751558114236266D-01,  1.414687365431868D-03, &
 -3.410270978511928D-01,  5.659016258527511D-01,  1.929118341000195D-02, &
 -3.395129208825403D-01, -9.824778005139284D-01,  4.415576863417267D-03, &
 -3.331346997723381D-01,  2.223766929597974D-01,  1.646772259494828D-02, &
 -3.252463389952233D-01, -2.451189274367319D-01,  2.240870404470034D-02, &
 -3.009376392714923D-01, -8.266673670128765D-01,  1.591461362539792D-02, &
 -2.981870657864640D-01,  3.966510337158281D-01,  2.346801013649629D-02, &
 -2.952430335911029D-01,  9.272338125092218D-01,  1.052839956257688D-02, &
 -2.925795365681464D-01, -9.317251622707681D-01,  9.101328501500838D-03, &
 -2.837411558415489D-01, -4.979776736270173D-01,  2.506976148361703D-02, &
 -2.806344135463510D-01, -4.809162882996374D-02,  2.782770459634624D-02, &
 -2.656701164804061D-01,  8.179772293299151D-01,  1.481544909528898D-02, &
 -2.542370551980483D-01,  9.856209199785680D-01,  4.824829120437116D-03, &
 -2.521259754556285D-01, -9.973002828723974D-01,  1.620836943142523D-03, &
 -2.497736261853112D-01,  6.474134806850792D-01,  1.852942792640709D-02, &
 -2.494952225569154D-01,  1.582011504522273D-01,  2.190214882403085D-02, &
 -2.324705240257510D-01, -7.170067419800342D-01,  2.080073547457119D-02, &
 -2.104466559805069D-01, -3.406566669476734D-01,  2.720075219951604D-02, &
 -2.099261409117430D-01,  4.786906023524469D-01,  1.185954144951369D-02, &
 -1.861486176729608D-01, -9.634767979371285D-01,  6.737017697973697D-03, &
 -1.756023068664000D-01, -8.797164554325823D-01,  1.312819960371862D-02, &
 -1.662816084102881D-01,  8.799028024337228D-01,  1.284862663386604D-02, &
 -1.657193846143792D-01,  3.172098063693634D-01,  2.614101117655917D-02, &
 -1.615402128474088D-01, -1.512617629404641D-01,  2.870683831769700D-02, &
 -1.562119970212992D-01, -5.878544646273842D-01,  2.490102418715279D-02, &
 -1.534073739178984D-01,  7.313740308801530D-01,  1.907865171993343D-02, &
 -1.468820128344276D-01,  7.454986763836169D-02,  2.515116960979389D-02, &
 -1.456132526020360D-01,  9.547929947534334D-01,  8.009904149647161D-03, &
 -1.411022235577947D-01,  5.402822094147779D-01,  1.985276171591949D-02, &
 -1.145203437993708D-01,  9.971336236185711D-01,  1.976988745961730D-03, &
 -1.083747697202039D-01, -9.898130243123879D-01,  3.355317427073141D-03, &
 -1.034956048479747D-01, -7.889452083356127D-01,  1.855933599799289D-02, &
 -9.518052933052586D-02, -4.313306509695957D-01,  2.120680416955437D-02, &
 -5.764780880949349D-02, -9.255412926001291D-01,  1.041178057147584D-02, &
 -4.945963945071411D-02,  8.139429446246940D-01,  1.695154845553709D-02, &
 -4.694483372115068D-02,  2.260246749730705D-01,  2.750563040286702D-02, &
 -3.710556308317932D-02, -2.550849012394165D-01,  2.916267630869709D-02, &
 -3.589386545922083D-02, -2.053720558161740D-02,  2.801912438135100D-02, &
 -3.529301810325418D-02,  4.374449384609287D-01,  2.490206851452144D-02, &
 -3.174169125194722D-02,  6.397258205734582D-01,  2.335214947901313D-02, &
 -2.807946922203877D-02,  9.747008686677923D-01,  4.510619199652917D-03, &
 -2.585228714382427D-02, -6.752836809385544D-01,  2.280749223644548D-02, &
 -1.289238997994259D-02, -4.843864246438258D-01,  1.556053198827482D-02, &
 -1.223860458201907D-02,  9.149372658820439D-01,  1.142835906607102D-02, &
 -1.086355028359328D-02, -9.753777328721651D-01,  3.249297484258564D-03, &
 2.708179220842590D-02, -8.547719772455804D-01,  1.569718188959173D-02, &
 4.149479523966346D-02, -9.979599963961665D-01,  1.565335881756029D-03, &
 5.689776414251970D-02,  9.891551358091155D-01,  3.282255117781437D-03, &
 6.075582703243104D-02, -5.668334256989663D-01,  1.153844244336376D-02, &
 7.101224496756312D-02, -9.575012140957714D-01,  6.335543760258588D-03, &
 7.535912927721751D-02,  1.235303669187323D-01,  2.997948351699728D-02, &
 7.592224478984431D-02,  7.415381032881689D-01,  2.029679101450883D-02, &
 7.750653209648602D-02,  3.539562134043134D-01,  2.426431231808029D-02, &
 8.652690668833830D-02, -1.247447983933045D-01,  2.991558956158543D-02, &
 9.446479482059529D-02, -3.553535264925528D-01,  2.880322792020771D-02, &
 9.779012576626916D-02,  5.494194161163839D-01,  2.608420815396981D-02, &
 1.012772299308512D-01, -7.581900569606719D-01,  1.947312434746350D-02, &
 1.030203458432020D-01,  8.661062919924195D-01,  1.346630675248675D-02, &
 1.062220246130106D-01, -5.577336014290080D-01,  1.363056491610594D-02, &
 1.327284751168050D-01,  9.519418660538810D-01,  9.110450516946341D-03, &
 1.563331097859266D-01, -9.095402453421066D-01,  1.228782579110563D-02, &
 1.701527767472629D-01,  9.984157843452909D-01,  1.295448963991591D-03, &
 1.741393635207433D-01, -9.854144027813655D-01,  4.755824748909084D-03, &
 1.879938370487562D-01,  2.630174862645962D-01,  2.621178775149382D-02, &
 2.002223207104934D-01, -6.587656605309330D-01,  2.189481233525649D-02, &
 2.033135424032844D-01,  1.226680906571880D-02,  3.091880266293206D-02, &
 2.073867973374402D-01,  6.656736012079840D-01,  2.289758057394497D-02, &
 2.165364146034749D-01,  8.131469595412018D-01,  1.546367066744115D-02, &
 2.186815288972714D-01, -2.296610279178752D-01,  2.995732867358852D-02, &
 2.218162837289157D-01, -4.581289072758777D-01,  2.642830689906846D-02, &
 2.263761239474323D-01,  4.557960959181672D-01,  2.667293537062659D-02, &
 2.289231298283811D-01, -8.289790576270621D-01,  1.613294129345465D-02, &
 2.527251024651854D-01,  9.135017973841686D-01,  1.092935602260977D-02, &
 2.621462888782247D-01,  9.816181546275472D-01,  5.528965474505003D-03, &
 2.823739032553990D-01, -9.532140949241149D-01,  8.906935903531529D-03, &
 2.955081211245678D-01,  1.689963046033540D-01,  2.153510784480399D-02, &
 2.985636391106877D-01, -9.974664868313298D-01,  1.671486096091834D-03, &
 3.232078531359192D-01, -7.439006988246658D-01,  1.855709405036384D-02, &
 3.279464627695976D-01, -5.713898766443788D-01,  2.281029102796516D-02, &
 3.338179507930596D-01,  5.793637325547847D-01,  2.428395685755850D-02, &
 3.362148410933743D-01, -9.818025366828656D-02,  3.019903785775920D-02, &
 3.385127772310140D-01,  7.540230240429753D-01,  1.856265624620952D-02, &
 3.419562637644176D-01, -3.435538342382597D-01,  2.733858964505634D-02, &
 3.471461374896801D-01,  3.553265509457362D-01,  2.648696947548793D-02, &
 3.502303936426706D-01, -8.883940691302195D-01,  1.279371820180086D-02, &
 3.556091773799562D-01,  8.707051502073961D-01,  1.047555741127083D-02, &
 3.556899139550058D-01,  1.128080696436079D-01,  1.321188723958388D-02, &
 3.841288497521308D-01,  9.553718729947618D-01,  8.119912907486298D-03, &
 3.946422029579690D-01,  9.964039498775228D-01,  2.112349660084158D-03, &
 4.050330117544253D-01, -9.814927725279841D-01,  5.157104944908028D-03, &
 4.362849601968560D-01,  9.019016117216835D-01,  2.940968659036344D-03, &
 4.379541949910271D-01, -6.683641513610455D-01,  1.846439396156306D-02, &
 4.420456441645449D-01, -4.713347319581990D-01,  2.365595165327062D-02, &
 4.472336730065484D-01, -8.167105914183533D-01,  1.590868587912039D-02, &
 4.492188628877602D-01,  3.464784069711753D-02,  2.599642724440654D-02, &
 4.516598503772268D-01, -2.248848786742561D-01,  2.605750990330061D-02, &
 4.534848886303145D-01,  4.821787086314744D-01,  2.470370157097336D-02, &
 4.558094575502872D-01,  6.776999314380787D-01,  2.063485603141766D-02, &
 4.597299209841112D-01,  2.512300079082298D-01,  2.520816228387497D-02, &
 4.664792245356821D-01, -9.343321639127969D-01,  9.316460572589282D-03, &
 4.676049536388429D-01,  8.280983665613982D-01,  1.378155136701219D-02, &
 5.125021470312456D-01, -9.961912026741276D-01,  1.787642568838215D-03, &
 5.134945143382650D-01,  9.255730990320611D-01,  8.514600636975230D-03, &
 5.166884966564118D-01,  9.825109005210685D-01,  5.038395003621559D-03, &
 5.363347257603982D-01, -1.095695413413886D-01,  1.941023977299713D-02, &
 5.399965994699566D-01, -5.859352676802068D-01,  1.854304744927082D-02, &
 5.464942478849923D-01, -3.640970433686203D-01,  2.338117168332904D-02, &
 5.581611838771341D-01, -7.440467570644548D-01,  1.656347514164712D-02, &
 5.627502014020098D-01, -8.788042385170552D-01,  1.221723450900345D-02, &
 5.642272201418791D-01,  3.770370382758487D-01,  2.374317220254762D-02, &
 5.673319233898169D-01,  5.874729567335129D-01,  2.128053054223834D-02, &
 5.674460469518047D-01,  1.540150684251285D-01,  2.257605869396812D-02, &
 5.707186911322696D-01,  7.641772183668017D-01,  1.625295655282468D-02, &
 5.742168074270232D-01, -9.682555557935811D-01,  5.994073320670981D-03, &
 5.959490795665168D-01, -1.948187074408299D-02,  1.530634182479124D-02, &
 6.062396124913686D-01,  8.797986377073432D-01,  1.088748308713618D-02, &
 6.229319420659956D-01,  9.975455983379399D-01,  1.521861509028911D-03, &
 6.295610198351687D-01, -4.991220308747384D-01,  1.739885853059415D-02, &
 6.324276873199660D-01, -2.471665977726898D-01,  2.093917940469638D-02, &
 6.355497887094055D-01, -9.952129871832354D-01,  1.099875629037961D-03, &
 6.410901541595502D-01,  9.583614862393586D-01,  7.156911768526562D-03, &
 6.605190644019022D-01, -6.630669125378098D-01,  1.682341496394070D-02, &
 6.618975494369205D-01, -8.156394553988217D-01,  1.300052108247076D-02, &
 6.673842000772493D-01,  2.749077536864489D-01,  2.067282662025163D-02, &
 6.680484006462090D-01, -9.288814872355221D-01,  8.563893166362068D-03, &
 6.686812125950333D-01,  4.866788467643654D-01,  2.039892342110449D-02, &
 6.700985984918092D-01,  6.842265838658567D-01,  1.713021812997701D-02, &
 6.769960821664744D-01,  8.318062288950726D-02,  1.684726166034979D-02, &
 6.859697885605170D-01, -1.260093282101731D-01,  1.484254174402420D-02, &
 6.926497230416636D-01, -9.859783123599433D-01,  2.705348861376380D-03, &
 6.959863573791213D-01,  8.238747062055407D-01,  1.204055197449034D-02, &
 6.977679871466710D-01, -4.161601763333563D-01,  1.335373628024542D-02, &
 7.368622503416473D-01,  9.864017859775360D-01,  3.620239739614126D-03, &
 7.375774852972609D-01,  9.169799988402917D-01,  8.825252453784535D-03, &
 7.438254372505340D-01, -3.279021941386523D-01,  1.463105332863874D-02, &
 7.440253522657176D-01, -1.400891582182774D-02,  1.425466175849190D-02, &
 7.495595182168627D-01, -5.717554727395397D-01,  1.640815363214294D-02, &
 7.530771473618030D-01, -7.446510104634911D-01,  1.295670791695812D-02, &
 7.544901018164238D-01, -8.766498669907319D-01,  9.526725213141853D-03, &
 7.587437942011223D-01,  5.908863410878806D-01,  1.647006558144315D-02, &
 7.593851565749156D-01,  3.839941762215441D-01,  1.723107403577913D-02, &
 7.639885454115690D-01,  1.980228289731446D-01,  1.519597994741737D-02, &
 7.685687728456019D-01, -9.630400573145438D-01,  5.001848985499082D-03, &
 7.770428027301898D-01, -9.982843164373418D-01,  8.745652562061165D-04, &
 7.772871884934368D-01,  7.542035650256003D-01,  1.251996742574017D-02, &
 7.825025147503595D-01, -1.834533183514675D-01,  1.579709193200259D-02, &
 8.150533231289440D-01,  1.014695483551139D-01,  1.256924687457834D-02, &
 8.181863818318679D-01, -4.606542231051104D-01,  1.549715675497659D-02, &
 8.193847399280907D-01,  8.611191119341332D-01,  9.398125531125533D-03, &
 8.207989728131910D-01,  9.591480451070792D-01,  5.279791002982384D-03, &
 8.297368239121403D-01, -6.631813144059097D-01,  1.224002342014436D-02, &
 8.320106005459350D-01, -8.152569987720697D-01,  9.323523497601202D-03, &
 8.320408056110908D-01,  9.977249436063439D-01,  1.033282992509946D-03, &
 8.329105693070811D-01,  4.871128705837552D-01,  1.348907133473504D-02, &
 8.365337282424045D-01, -9.243522188950283D-01,  6.014070108326465D-03, &
 8.434092146075628D-01, -5.376676824572151D-02,  1.449901864773636D-02, &
 8.449004755072183D-01,  3.093947633052660D-01,  1.245158207072536D-02, &
 8.465147750656848D-01,  6.700666235615695D-01,  1.175161455116867D-02, &
 8.478350019505928D-01, -2.985362344057802D-01,  1.366010228359022D-02, &
 8.496498343126059D-01, -9.871021978521631D-01,  2.415904636287212D-03, &
 8.796260274253024D-01,  2.138443454392648D-01,  9.339618669988453D-03, &
 8.845751363465439D-01,  7.907698638866625D-01,  8.893129746809459D-03, &
 8.866321017241603D-01, -5.623269734279417D-01,  1.150129922332423D-02, &
 8.882047697517171D-01,  9.164586294991613D-01,  5.951354500731454D-03, &
 8.938627976408585D-01, -7.430539467366774D-01,  8.289403676208404D-03, &
 8.949156789984212D-01,  5.661161599991380D-01,  8.566550012330865D-03, &
 8.954010799494210D-01, -8.753539964754327D-01,  5.837845483486322D-03, &
 8.973716972615503D-01,  9.833889194543620D-01,  2.511910121955958D-03, &
 9.001148478941252D-01, -1.724880329303405D-01,  1.268999061952536D-02, &
 9.023269610303840D-01,  6.533036389509404D-02,  1.173221023616003D-02, &
 9.023726303973623D-01, -9.609883325303766D-01,  3.360315770311110D-03, &
 9.081093855357991D-01, -3.974545530931652D-01,  1.116292038350684D-02, &
 9.082458364338479D-01,  4.160787215946197D-01,  9.411679613649818D-03, &
 9.201288583031026D-01, -9.973298211676691D-01,  7.257268851225051D-04, &
 9.288000531532276D-01,  7.013943012440006D-01,  7.037823616626887D-03, &
 9.329884007773763D-01,  3.304494336614532D-01,  5.904281068176790D-03, &
 9.384251860650527D-01,  8.571626242598636D-01,  5.623306077628070D-03, &
 9.387709463419280D-01, -6.569247138091421D-01,  7.505461254587439D-03, &
 9.390362481895664D-01, -8.140965237093258D-01,  4.977781534664430D-03, &
 9.431435157432486D-01,  5.870360626983142D-01,  5.191324447454316D-03, &
 9.450773084819802D-01, -9.221219392424895D-01,  3.393763295106028D-03, &
 9.453915273808479D-01,  1.895221840939932D-01,  8.348594654611519D-03, &
 9.456536724677754D-01,  9.539239527027603D-01,  3.022785644899445D-03, &
 9.473577935390517D-01, -5.193485262434305D-02,  9.670046203567387D-03, &
 9.489719119922718D-01,  9.971737186812124D-01,  6.141238201223769D-04, &
 9.513861085801828D-01, -2.782244198545041D-01,  9.083776210637055D-03, &
 9.524619245554554D-01, -5.009630638627496D-01,  7.585592261208418D-03, &
 9.570396759412962D-01, -9.818217124953741D-01,  1.504963278061301D-03, &
 9.651084193076095D-01,  4.764381514817677D-01,  6.804854306822511D-03, &
 9.673991604949321D-01,  7.692810312148867D-01,  4.520963014240378D-03, &
 9.730917870009820D-01, -7.458190017187750D-01,  4.241383153444730D-03, &
 9.734392697290727D-01, -8.673592113403571D-01,  2.810476896561892D-03, &
 9.763607543792061D-01,  3.048040261918404D-01,  5.276457875981873D-03, &
 9.768475228065115D-01,  9.082588824000043D-01,  2.643888308901319D-03, &
 9.782469107965639D-01,  7.857190536343943D-02,  6.186986811631052D-03, &
 9.798711093359943D-01,  6.455315254229357D-01,  4.130331043787127D-03, &
 9.801558211147705D-01,  9.831284518138658D-01,  1.028657890512397D-03, &
 9.817934561418729D-01, -6.004957048608559D-01,  4.153182683219009D-03, &
 9.822023634787357D-01, -9.520064075525696D-01,  1.488447743427078D-03, &
 9.824823278531268D-01, -1.588192490530472D-01,  5.597811173658705D-03, &
 9.824823551297321D-01, -3.937517188889684D-01,  5.138454426652030D-03, &
 9.866504547608295D-01, -9.955835634824257D-01,  3.961208092085676D-04, &
 9.905327362354205D-01,  8.309506492911954D-01,  2.069825511375866D-03, &
 9.942355332758673D-01,  3.974103619286143D-01,  2.413263541158905D-03, &
 9.945084471405289D-01,  5.494932527943799D-01,  2.193364858292885D-03, &
 9.945305554986960D-01, -8.135327323625892D-01,  1.514406390792948D-03, &
 9.947615068172242D-01,  9.545658333888697D-01,  7.423836783813612D-04, &
 9.949517157579387D-01, -9.067668333653325D-01,  9.864959809811758D-04, &
 9.957818259075973D-01,  1.993953840265955D-01,  2.396827736651728D-03, &
 9.962141216868449D-01, -6.903174371098946D-01,  1.476800783658664D-03, &
 9.968687603178163D-01, -2.875773812112470D-02,  2.072108287711335D-03, &
 9.971393163063961D-01,  7.214186037213960D-01,  1.344741266208887D-03, &
 9.972431159527100D-01, -5.064881469083564D-01,  1.610896725802623D-03, &
 9.974246740827564D-01,  9.967061334165134D-01,  1.310709895846009D-04, &
 9.974788575004648D-01, -2.791676769769759D-01,  1.765107353951216D-03, &
 9.989309477716464D-01, -9.759800757253289D-01,  2.868352447506991D-04, &
 9.999408488515129D-01,  8.953088235569292D-01,  3.456123608241670D-04 /)

  return
end
subroutine smr45 ( xyw )

!*****************************************************************************80
!
!! SMR45 returns the SMR rule of degree 45.
!
!  Discussion:
!
!    DEGREE: 45
!    SYMMETRY: (X,  Y),  (-X, -Y).
!    POINTS CARDINALITY: 359
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*359), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*359)

  xyw = (/ &
 -9.987809239831112D-01,  9.748368623655366D-01,  2.993356033786765D-04, &
 -9.985808631696838D-01, -8.990756328646153D-01,  5.055415778287732D-04, &
 -9.985157152594889D-01, -9.971971012987678D-01,  9.821637011466654D-05, &
 -9.976075303722897D-01,  2.495954379536609D-01,  1.726273349986223D-03, &
 -9.975896723770977D-01, -7.481282641542352D-01,  1.186765908765057D-03, &
 -9.970359077153589D-01, -4.973042782590862D-03,  1.976200444087838D-03, &
 -9.970034303329453D-01,  4.805125358625656D-01,  1.717119689979895D-03, &
 -9.961579504388610D-01, -2.339319461038794D-01,  2.197631276825098D-03, &
 -9.959759411587524D-01,  8.966138075526434D-01,  9.460145783264427D-04, &
 -9.955607724070924D-01,  6.629654417179892D-01,  1.734396121578630D-03, &
 -9.944882643568679D-01, -5.822713014974841D-01,  2.130704201950450D-03, &
 -9.944839549832385D-01, -4.305503528241359D-01,  2.332655357182134D-03, &
 -9.943103084508153D-01, -9.589447862560037D-01,  7.154329251248137D-04, &
 -9.942971011761540D-01,  7.923589246102194D-01,  1.676928772166950D-03, &
 -9.879109700683048D-01, -8.401442342078335D-01,  2.254477068544381D-03, &
 -9.871570448287768D-01,  9.953040717606414D-01,  4.014919822858868D-04, &
 -9.834657898675960D-01,  9.464917816489062D-01,  1.606043238725865D-03, &
 -9.833305319309631D-01,  1.263457021753157D-01,  5.419689142545006D-03, &
 -9.826246063168834D-01,  3.638393037687699D-01,  5.148686860161606D-03, &
 -9.810868050137430D-01, -9.856276869865556D-01,  8.700281868935982D-04, &
 -9.802648322311707D-01, -6.750032224988851D-01,  3.955250863364047D-03, &
 -9.799852473516794D-01,  5.711769167233038D-01,  4.435133168562443D-03, &
 -9.796202659342652D-01, -1.139693876952825D-01,  5.831373899382246D-03, &
 -9.771712814502167D-01, -3.337491350874086D-01,  5.138702967736385D-03, &
 -9.753612107572261D-01,  8.542575822594997D-01,  2.939880020404475D-03, &
 -9.750871880034563D-01, -9.181022714139108D-01,  2.418384903446744D-03, &
 -9.712009645368384D-01,  7.236074445113848D-01,  4.632318546295927D-03, &
 -9.664706318878840D-01, -5.062808601831001D-01,  6.514641073677681D-03, &
 -9.635773411406924D-01, -7.811935286068071D-01,  4.341305455620128D-03, &
 -9.592551721099858D-01,  9.800077457957908D-01,  1.583793112109460D-03, &
 -9.527470555424390D-01,  2.452206198184587D-01,  8.934499397490152D-03, &
 -9.512217505973695D-01, -9.975809114133117D-01,  5.139248565810932D-04, &
 -9.509238027788980D-01,  4.671808125048466D-01,  7.778845637088972D-03, &
 -9.502795953661248D-01,  1.665956085226044D-02,  9.244882696179383D-03, &
 -9.483846862528557D-01,  9.121585564057219D-01,  3.515812117215462D-03, &
 -9.464214946937899D-01, -2.174055880473181D-01,  8.183789662861353D-03, &
 -9.462416352500443D-01, -9.599078291538412D-01,  2.602348449588172D-03, &
 -9.419837071661598D-01, -6.127904283944557D-01,  5.775655266427641D-03, &
 -9.391238991374505D-01,  7.989714235337833D-01,  5.179018142204592D-03, &
 -9.378086513718291D-01, -8.695603466712696D-01,  5.169665843353311D-03, &
 -9.370137281757169D-01,  6.282649414142087D-01,  7.623356356150477D-03, &
 -9.356961338262859D-01, -3.645584063625137D-01,  6.010631113438040D-03, &
 -9.253974646921507D-01, -7.190198240417008D-01,  6.336440252338264D-03, &
 -9.248470794804491D-01,  9.972632014604238D-01,  7.216535092722727D-04, &
 -9.102216394091136D-01,  9.552115242137005D-01,  3.429119254261080D-03, &
 -9.090014113055961D-01, -4.456272486278706D-01,  9.085459391365453D-03, &
 -9.077061721157841D-01,  3.609878414025458D-01,  1.119544980789453D-02, &
 -9.044718083850251D-01, -9.248380504679798D-02,  1.138730334189965D-02, &
 -9.041052183788196D-01,  1.370275081676114D-01,  1.231280001099448D-02, &
 -9.003272138921747D-01, -9.855131239038005D-01,  2.142261107197177D-03, &
 -8.998267130073949D-01,  8.611867551994773D-01,  5.652454680674074D-03, &
 -8.964517879623641D-01,  7.184571948644249D-01,  8.121078281162448D-03, &
 -8.906894622641233D-01, -5.845154566197192D-01,  8.308665412941993D-03, &
 -8.897286914429898D-01, -9.254565139699565D-01,  5.359918872844426D-03, &
 -8.856328610403172D-01,  5.303622802964915D-01,  1.168547747268816D-02, &
 -8.854742809240306D-01, -8.063045923419880D-01,  8.148233321624298D-03, &
 -8.834346561856141D-01, -2.466770217389220D-01,  9.493619529933141D-03, &
 -8.629850430376032D-01,  9.846794003258130D-01,  2.528739364876000D-03, &
 -8.506693908403453D-01,  9.125903996034499D-01,  5.849578632842550D-03, &
 -8.492900289400127D-01,  2.609008872385714D-01,  1.361563690700432D-02, &
 -8.474472786288211D-01, -6.901503323404313D-01,  1.100649739704037D-02, &
 -8.464217718205864D-01,  2.909630308393418D-02,  1.381846696789304D-02, &
 -8.459950759889058D-01, -3.370889407226870D-01,  1.214993895881173D-02, &
 -8.408627217827968D-01,  7.927942230163550D-01,  9.201701596927991D-03, &
 -8.370863536953854D-01, -9.980212613540562D-01,  8.867352167594041D-04, &
 -8.323965789758532D-01,  6.377990761410410D-01,  1.217271062025909D-02, &
 -8.314738798895785D-01, -5.062045685366845D-01,  1.274593131055984D-02, &
 -8.240227041551308D-01, -9.642226450420159D-01,  4.656297575580126D-03, &
 -8.233464165343024D-01, -8.728783340437961D-01,  8.558990866905701D-03, &
 -8.220591736941830D-01, -1.243862989299787D-01,  1.244606872559087D-02, &
 -8.188844823185363D-01,  4.261617662513782D-01,  1.558630923706844D-02, &
 -7.969896207737629D-01,  9.976480667995195D-01,  9.937781058818520D-04, &
 -7.918069891410763D-01,  9.552496571182889D-01,  5.247432489034864D-03, &
 -7.839313303459738D-01,  1.577452094536468D-01,  1.531782499550762D-02, &
 -7.808186099816705D-01, -7.721253866618816D-01,  1.174558344919606D-02, &
 -7.735975996435843D-01,  8.594993334079274D-01,  9.569255855638928D-03, &
 -7.673513409414942D-01, -2.186521333866828D-01,  1.604398689184609D-02, &
 -7.634767876646369D-01, -6.119083101507623D-01,  1.551125361015980D-02, &
 -7.604924395747599D-01, -4.040521641808663D-01,  1.640483106687547D-02, &
 -7.598303762668254D-01,  7.223972889507986D-01,  1.294995516437059D-02, &
 -7.546147648023375D-01,  5.450635784714123D-01,  1.627134395977775D-02, &
 -7.477268693062509D-01, -1.178617906350497D-03,  1.534766967987536D-02, &
 -7.441981398623979D-01, -9.248122192057350D-01,  7.952214175998626D-03, &
 -7.411794309655517D-01, -9.883378955524539D-01,  3.149005459627492D-03, &
 -7.396577473534641D-01,  3.065734892201429D-01,  1.696772838146242D-02, &
 -7.173231621338175D-01,  9.835540032598186D-01,  3.576914417052623D-03, &
 -7.013275658365165D-01, -8.389991135422733D-01,  1.116556601175833D-02, &
 -6.972792709156885D-01,  9.171883050550365D-01,  8.783301477841914D-03, &
 -6.889056647928331D-01,  4.105476960488628D-01,  1.322143695866550D-02, &
 -6.791491171576957D-01, -9.973182946735697D-02,  1.835334682967442D-02, &
 -6.785344806438597D-01, -7.028760007459759D-01,  1.603405486470507D-02, &
 -6.778885853526038D-01,  7.985598896411525D-01,  1.305296371184325D-02, &
 -6.767414083720775D-01,  1.216983833611472D-01,  1.702881131982138D-02, &
 -6.767037258823436D-01, -5.089593879681761D-01,  1.929956845223450D-02, &
 -6.693168433164310D-01, -2.985847484238517D-01,  2.053896928599153D-02, &
 -6.681575030734345D-01,  6.391753535023200D-01,  1.675821395824656D-02, &
 -6.490686401640144D-01, -9.624589736537986D-01,  6.433329913117225D-03, &
 -6.299677977917032D-01,  9.975283667931077D-01,  1.307683705358367D-03, &
 -6.269567681651597D-01,  4.853810354287711D-01,  1.557881532766953D-02, &
 -6.251430706398415D-01, -9.977234181855117D-01,  1.373432556349576D-03, &
 -6.246231931149462D-01,  2.373991342623364D-01,  1.859631127917601D-02, &
 -6.135737153470906D-01, -8.913530795649121D-01,  9.807279239964804D-03, &
 -6.099509227115107D-01,  9.609069768683841D-01,  6.626684869311525D-03, &
 -5.906682339894699D-01,  8.667890507859654D-01,  1.214231245428204D-02, &
 -5.902315633378371D-01,  7.656704700409119D-03,  1.553617180174587D-02, &
 -5.827340699533451D-01, -7.799185004279106D-01,  1.506550662060840D-02, &
 -5.800597214330994D-01, -6.076368281751579D-01,  1.994641910743171D-02, &
 -5.731297492992956D-01,  7.245305917039069D-01,  1.666027168900788D-02, &
 -5.720751096895411D-01, -1.782643294102043D-01,  2.248088421841022D-02, &
 -5.704963535556302D-01, -4.059198759788438D-01,  2.319074978994265D-02, &
 -5.499812366523558D-01,  3.491130804137083D-01,  2.143412266902755D-02, &
 -5.413499891114516D-01,  5.699276014351697D-01,  1.818656471958422D-02, &
 -5.404313099098355D-01,  7.035913506382468D-02,  1.450685080017977D-02, &
 -5.241201775879956D-01, -9.836142249086132D-01,  4.533301530515161D-03, &
 -5.211800788850269D-01, -9.318333678975942D-01,  7.829122810295861D-03, &
 -5.091471437000489D-01,  9.883443269909445D-01,  3.852866247300155D-03, &
 -4.999904832068175D-01,  9.243318111693436D-01,  9.722335283461081D-03, &
 -4.827891808826871D-01, -8.404726014611830D-01,  1.259532628864143D-02, &
 -4.758599005186578D-01,  8.031297625877543D-01,  1.563421315582868D-02, &
 -4.739367439717606D-01, -6.948299595246461D-01,  1.902025287597122D-02, &
 -4.725182717643259D-01,  1.906085429772531D-01,  2.556026449129186D-02, &
 -4.685979592711882D-01, -2.811429587683000D-01,  2.475198280486229D-02, &
 -4.617764304558508D-01, -5.116467385712951D-01,  2.392689042225338D-02, &
 -4.543098644742484D-01, -6.357162836142750D-02,  2.429812363005727D-02, &
 -4.514514457659036D-01,  4.524814600085829D-01,  2.178659688025009D-02, &
 -4.454674266029482D-01, -9.088658429301943D-01,  1.921862701385430D-03, &
 -4.442220408374918D-01,  6.539255470454639D-01,  1.815962112706960D-02, &
 -4.037641494006043D-01, -9.963492843723524D-01,  2.019937935352191D-03, &
 -3.994965424916097D-01,  9.652033889320616D-01,  6.696722911338705D-03, &
 -3.949679284272561D-01, -9.580785434262290D-01,  7.330895788726833D-03, &
 -3.839587310522242D-01,  8.749726658353748D-01,  1.286006475529313D-02, &
 -3.774779250407504D-01, -8.809520347205344D-01,  9.629793742675348D-03, &
 -3.724254271641495D-01,  3.180527134728118D-01,  2.421744890018692D-02, &
 -3.706962390305071D-01, -1.391738691222885D-01,  1.415158967598348D-02, &
 -3.635222351976187D-01,  9.976906542407633D-01,  1.690203137096647D-03, &
 -3.634271195533723D-01, -7.666438656111270D-01,  1.659518137533172D-02, &
 -3.588134811520187D-01, -3.863706837941547D-01,  2.562066896160286D-02, &
 -3.511410895989978D-01,  7.598657097017213D-02,  2.910832017440310D-02, &
 -3.466859823064926D-01,  7.342599349174546D-01,  1.755602838304911D-02, &
 -3.437157470820955D-01, -6.085084561101284D-01,  2.330640521520084D-02, &
 -3.427496011843691D-01,  5.493351398103018D-01,  2.167791054401352D-02, &
 -2.977464025093953D-01, -2.106175113605862D-01,  2.369155711000212D-02, &
 -2.841131225980947D-01,  2.454441303908954D-01,  1.128244322556367D-02, &
 -2.838181184983802D-01,  9.294716603915232D-01,  9.657842880004704D-03, &
 -2.734308898435502D-01, -9.821535582823072D-01,  5.186520389550382D-03, &
 -2.686875707529910D-01, -9.183318465397052D-01,  1.013872822805395D-02, &
 -2.659505623760141D-01,  9.790699184449342D-01,  2.972586627418943D-03, &
 -2.597785379692306D-01,  8.165639824525108D-01,  1.545056567597512D-02, &
 -2.524367426587176D-01,  4.306497620594896D-01,  2.413813532250804D-02, &
 -2.521254582882448D-01, -8.208877915065049D-01,  1.380175215808280D-02, &
 -2.416100067508830D-01, -4.864539918350533D-01,  2.540579845521675D-02, &
 -2.295904421272411D-01,  6.423345387430144D-01,  2.156902469663802D-02, &
 -2.257486484336952D-01, -3.648215238588141D-02,  2.987778176615610D-02, &
 -2.220343030041925D-01,  1.957161674328358D-01,  2.195717424950444D-02, &
 -2.179684508686903D-01, -6.927362944979131D-01,  2.155320590936663D-02, &
 -2.125785431554086D-01,  9.877070401926165D-01,  3.018182936437289D-03, &
 -1.882237242340730D-01, -9.986463574985669D-01,  1.183175228276184D-03, &
 -1.861290129251524D-01, -3.113784253755371D-01,  2.679220781431789D-02, &
 -1.612964698946688D-01,  8.840734468407453D-01,  1.245957990550999D-02, &
 -1.460578395314807D-01, -9.538340166911464D-01,  8.610066632546907D-03, &
 -1.453751285806197D-01,  5.230712405315956D-01,  1.269762461159384D-02, &
 -1.367296766455244D-01,  7.427957482907744D-01,  1.891959592837709D-02, &
 -1.361199669288722D-01, -8.678102051101638D-01,  1.300544655252503D-02, &
 -1.297519722477037D-01,  3.446333134156687D-01,  2.525956832091458D-02, &
 -1.260626917855079D-01,  9.523539560424874D-01,  7.832872314688318D-03, &
 -1.171007843208515D-01, -5.778453790284559D-01,  2.438894687265387D-02, &
 -1.122739223228800D-01,  1.017082445961973D-01,  2.710215456491743D-02, &
 -1.036241515184341D-01, -1.486588557732932D-01,  2.899957751330600D-02, &
 -9.450221416605288D-02,  5.591570240316848D-01,  1.413344321715599D-02, &
 -9.300307584944975D-02,  9.974712889340351D-01,  1.727683826252121D-03, &
 -8.814000629237449D-02, -7.646007397219974D-01,  1.862769502398370D-02, &
 -7.747007763111526D-02, -4.031347072028282D-01,  2.085048513843114D-02, &
 -7.227524974688553D-02, -9.894515397095711D-01,  3.355911821480428D-03, &
 -4.023801246392568D-02,  8.277576362873151D-01,  1.555793756126800D-02, &
 -2.080615617949091D-02,  9.742774768032481D-01,  4.593636973363114D-03, &
 -1.411339171791895D-02,  2.524618422545646D-01,  2.675098480014549D-02, &
 -1.258443439627821D-02, -9.143387117035456D-01,  1.160220639371127D-02, &
 -9.858909067684239D-03,  6.635856125497768D-01,  2.179583092424484D-02, &
 -9.552055799839686D-03,  4.656768245300902D-01,  1.833743720043940D-02, &
 0.000000000000000D+00,  0.000000000000000D+00,  2.726382862976956D-02, &
 9.552055799839686D-03, -4.656768245300902D-01,  1.833743720043940D-02, &
 9.858909067684239D-03, -6.635856125497768D-01,  2.179583092424484D-02, &
 1.258443439627821D-02,  9.143387117035456D-01,  1.160220639371127D-02, &
 1.411339171791895D-02, -2.524618422545646D-01,  2.675098480014549D-02, &
 2.080615617949091D-02, -9.742774768032481D-01,  4.593636973363114D-03, &
 4.023801246392568D-02, -8.277576362873151D-01,  1.555793756126800D-02, &
 7.227524974688553D-02,  9.894515397095711D-01,  3.355911821480428D-03, &
 7.747007763111526D-02,  4.031347072028282D-01,  2.085048513843114D-02, &
 8.814000629237449D-02,  7.646007397219974D-01,  1.862769502398370D-02, &
 9.300307584944975D-02, -9.974712889340351D-01,  1.727683826252121D-03, &
 9.450221416605288D-02, -5.591570240316848D-01,  1.413344321715599D-02, &
 1.036241515184341D-01,  1.486588557732932D-01,  2.899957751330600D-02, &
 1.122739223228800D-01, -1.017082445961973D-01,  2.710215456491743D-02, &
 1.171007843208515D-01,  5.778453790284559D-01,  2.438894687265387D-02, &
 1.260626917855079D-01, -9.523539560424874D-01,  7.832872314688318D-03, &
 1.297519722477037D-01, -3.446333134156687D-01,  2.525956832091458D-02, &
 1.361199669288722D-01,  8.678102051101638D-01,  1.300544655252503D-02, &
 1.367296766455244D-01, -7.427957482907744D-01,  1.891959592837709D-02, &
 1.453751285806197D-01, -5.230712405315956D-01,  1.269762461159384D-02, &
 1.460578395314807D-01,  9.538340166911464D-01,  8.610066632546907D-03, &
 1.612964698946688D-01, -8.840734468407453D-01,  1.245957990550999D-02, &
 1.861290129251524D-01,  3.113784253755371D-01,  2.679220781431789D-02, &
 1.882237242340730D-01,  9.986463574985669D-01,  1.183175228276184D-03, &
 2.125785431554086D-01, -9.877070401926165D-01,  3.018182936437289D-03, &
 2.179684508686903D-01,  6.927362944979131D-01,  2.155320590936663D-02, &
 2.220343030041925D-01, -1.957161674328358D-01,  2.195717424950444D-02, &
 2.257486484336952D-01,  3.648215238588141D-02,  2.987778176615610D-02, &
 2.295904421272411D-01, -6.423345387430144D-01,  2.156902469663802D-02, &
 2.416100067508830D-01,  4.864539918350533D-01,  2.540579845521675D-02, &
 2.521254582882448D-01,  8.208877915065049D-01,  1.380175215808280D-02, &
 2.524367426587176D-01, -4.306497620594896D-01,  2.413813532250804D-02, &
 2.597785379692306D-01, -8.165639824525108D-01,  1.545056567597512D-02, &
 2.659505623760141D-01, -9.790699184449342D-01,  2.972586627418943D-03, &
 2.686875707529910D-01,  9.183318465397052D-01,  1.013872822805395D-02, &
 2.734308898435502D-01,  9.821535582823072D-01,  5.186520389550382D-03, &
 2.838181184983802D-01, -9.294716603915232D-01,  9.657842880004704D-03, &
 2.841131225980947D-01, -2.454441303908954D-01,  1.128244322556367D-02, &
 2.977464025093953D-01,  2.106175113605862D-01,  2.369155711000212D-02, &
 3.427496011843691D-01, -5.493351398103018D-01,  2.167791054401352D-02, &
 3.437157470820955D-01,  6.085084561101284D-01,  2.330640521520084D-02, &
 3.466859823064926D-01, -7.342599349174546D-01,  1.755602838304911D-02, &
 3.511410895989978D-01, -7.598657097017213D-02,  2.910832017440310D-02, &
 3.588134811520187D-01,  3.863706837941547D-01,  2.562066896160286D-02, &
 3.634271195533723D-01,  7.666438656111270D-01,  1.659518137533172D-02, &
 3.635222351976187D-01, -9.976906542407633D-01,  1.690203137096647D-03, &
 3.706962390305071D-01,  1.391738691222885D-01,  1.415158967598348D-02, &
 3.724254271641495D-01, -3.180527134728118D-01,  2.421744890018692D-02, &
 3.774779250407504D-01,  8.809520347205344D-01,  9.629793742675348D-03, &
 3.839587310522242D-01, -8.749726658353748D-01,  1.286006475529313D-02, &
 3.949679284272561D-01,  9.580785434262290D-01,  7.330895788726833D-03, &
 3.994965424916097D-01, -9.652033889320616D-01,  6.696722911338705D-03, &
 4.037641494006043D-01,  9.963492843723524D-01,  2.019937935352191D-03, &
 4.442220408374918D-01, -6.539255470454639D-01,  1.815962112706960D-02, &
 4.454674266029482D-01,  9.088658429301943D-01,  1.921862701385430D-03, &
 4.514514457659036D-01, -4.524814600085829D-01,  2.178659688025009D-02, &
 4.543098644742484D-01,  6.357162836142750D-02,  2.429812363005727D-02, &
 4.617764304558508D-01,  5.116467385712951D-01,  2.392689042225338D-02, &
 4.685979592711882D-01,  2.811429587683000D-01,  2.475198280486229D-02, &
 4.725182717643259D-01, -1.906085429772531D-01,  2.556026449129186D-02, &
 4.739367439717606D-01,  6.948299595246461D-01,  1.902025287597122D-02, &
 4.758599005186578D-01, -8.031297625877543D-01,  1.563421315582868D-02, &
 4.827891808826871D-01,  8.404726014611830D-01,  1.259532628864143D-02, &
 4.999904832068175D-01, -9.243318111693436D-01,  9.722335283461081D-03, &
 5.091471437000489D-01, -9.883443269909445D-01,  3.852866247300155D-03, &
 5.211800788850269D-01,  9.318333678975942D-01,  7.829122810295861D-03, &
 5.241201775879956D-01,  9.836142249086132D-01,  4.533301530515161D-03, &
 5.404313099098355D-01, -7.035913506382468D-02,  1.450685080017977D-02, &
 5.413499891114516D-01, -5.699276014351697D-01,  1.818656471958422D-02, &
 5.499812366523558D-01, -3.491130804137083D-01,  2.143412266902755D-02, &
 5.704963535556302D-01,  4.059198759788438D-01,  2.319074978994265D-02, &
 5.720751096895411D-01,  1.782643294102043D-01,  2.248088421841022D-02, &
 5.731297492992956D-01, -7.245305917039069D-01,  1.666027168900788D-02, &
 5.800597214330994D-01,  6.076368281751579D-01,  1.994641910743171D-02, &
 5.827340699533451D-01,  7.799185004279106D-01,  1.506550662060840D-02, &
 5.902315633378371D-01, -7.656704700409119D-03,  1.553617180174587D-02, &
 5.906682339894699D-01, -8.667890507859654D-01,  1.214231245428204D-02, &
 6.099509227115107D-01, -9.609069768683841D-01,  6.626684869311525D-03, &
 6.135737153470906D-01,  8.913530795649121D-01,  9.807279239964804D-03, &
 6.246231931149462D-01, -2.373991342623364D-01,  1.859631127917601D-02, &
 6.251430706398415D-01,  9.977234181855117D-01,  1.373432556349576D-03, &
 6.269567681651597D-01, -4.853810354287711D-01,  1.557881532766953D-02, &
 6.299677977917032D-01, -9.975283667931077D-01,  1.307683705358367D-03, &
 6.490686401640144D-01,  9.624589736537986D-01,  6.433329913117225D-03, &
 6.681575030734345D-01, -6.391753535023200D-01,  1.675821395824656D-02, &
 6.693168433164310D-01,  2.985847484238517D-01,  2.053896928599153D-02, &
 6.767037258823436D-01,  5.089593879681761D-01,  1.929956845223450D-02, &
 6.767414083720775D-01, -1.216983833611472D-01,  1.702881131982138D-02, &
 6.778885853526038D-01, -7.985598896411525D-01,  1.305296371184325D-02, &
 6.785344806438597D-01,  7.028760007459759D-01,  1.603405486470507D-02, &
 6.791491171576957D-01,  9.973182946735697D-02,  1.835334682967442D-02, &
 6.889056647928331D-01, -4.105476960488628D-01,  1.322143695866550D-02, &
 6.972792709156885D-01, -9.171883050550365D-01,  8.783301477841914D-03, &
 7.013275658365165D-01,  8.389991135422733D-01,  1.116556601175833D-02, &
 7.173231621338175D-01, -9.835540032598186D-01,  3.576914417052623D-03, &
 7.396577473534641D-01, -3.065734892201429D-01,  1.696772838146242D-02, &
 7.411794309655517D-01,  9.883378955524539D-01,  3.149005459627492D-03, &
 7.441981398623979D-01,  9.248122192057350D-01,  7.952214175998626D-03, &
 7.477268693062509D-01,  1.178617906350497D-03,  1.534766967987536D-02, &
 7.546147648023375D-01, -5.450635784714123D-01,  1.627134395977775D-02, &
 7.598303762668254D-01, -7.223972889507986D-01,  1.294995516437059D-02, &
 7.604924395747599D-01,  4.040521641808663D-01,  1.640483106687547D-02, &
 7.634767876646369D-01,  6.119083101507623D-01,  1.551125361015980D-02, &
 7.673513409414942D-01,  2.186521333866828D-01,  1.604398689184609D-02, &
 7.735975996435843D-01, -8.594993334079274D-01,  9.569255855638928D-03, &
 7.808186099816705D-01,  7.721253866618816D-01,  1.174558344919606D-02, &
 7.839313303459738D-01, -1.577452094536468D-01,  1.531782499550762D-02, &
 7.918069891410763D-01, -9.552496571182889D-01,  5.247432489034864D-03, &
 7.969896207737629D-01, -9.976480667995195D-01,  9.937781058818520D-04, &
 8.188844823185363D-01, -4.261617662513782D-01,  1.558630923706844D-02, &
 8.220591736941830D-01,  1.243862989299787D-01,  1.244606872559087D-02, &
 8.233464165343024D-01,  8.728783340437961D-01,  8.558990866905701D-03, &
 8.240227041551308D-01,  9.642226450420159D-01,  4.656297575580126D-03, &
 8.314738798895785D-01,  5.062045685366845D-01,  1.274593131055984D-02, &
 8.323965789758532D-01, -6.377990761410410D-01,  1.217271062025909D-02, &
 8.370863536953854D-01,  9.980212613540562D-01,  8.867352167594041D-04, &
 8.408627217827968D-01, -7.927942230163550D-01,  9.201701596927991D-03, &
 8.459950759889058D-01,  3.370889407226870D-01,  1.214993895881173D-02, &
 8.464217718205864D-01, -2.909630308393418D-02,  1.381846696789304D-02, &
 8.474472786288211D-01,  6.901503323404313D-01,  1.100649739704037D-02, &
 8.492900289400127D-01, -2.609008872385714D-01,  1.361563690700432D-02, &
 8.506693908403453D-01, -9.125903996034499D-01,  5.849578632842550D-03, &
 8.629850430376032D-01, -9.846794003258130D-01,  2.528739364876000D-03, &
 8.834346561856141D-01,  2.466770217389220D-01,  9.493619529933141D-03, &
 8.854742809240306D-01,  8.063045923419880D-01,  8.148233321624298D-03, &
 8.856328610403172D-01, -5.303622802964915D-01,  1.168547747268816D-02, &
 8.897286914429898D-01,  9.254565139699565D-01,  5.359918872844426D-03, &
 8.906894622641233D-01,  5.845154566197192D-01,  8.308665412941993D-03, &
 8.964517879623641D-01, -7.184571948644249D-01,  8.121078281162448D-03, &
 8.998267130073949D-01, -8.611867551994773D-01,  5.652454680674074D-03, &
 9.003272138921747D-01,  9.855131239038005D-01,  2.142261107197177D-03, &
 9.041052183788196D-01, -1.370275081676114D-01,  1.231280001099448D-02, &
 9.044718083850251D-01,  9.248380504679798D-02,  1.138730334189965D-02, &
 9.077061721157841D-01, -3.609878414025458D-01,  1.119544980789453D-02, &
 9.090014113055961D-01,  4.456272486278706D-01,  9.085459391365453D-03, &
 9.102216394091136D-01, -9.552115242137005D-01,  3.429119254261080D-03, &
 9.248470794804491D-01, -9.972632014604238D-01,  7.216535092722727D-04, &
 9.253974646921507D-01,  7.190198240417008D-01,  6.336440252338264D-03, &
 9.356961338262859D-01,  3.645584063625137D-01,  6.010631113438040D-03, &
 9.370137281757169D-01, -6.282649414142087D-01,  7.623356356150477D-03, &
 9.378086513718291D-01,  8.695603466712696D-01,  5.169665843353311D-03, &
 9.391238991374505D-01, -7.989714235337833D-01,  5.179018142204592D-03, &
 9.419837071661598D-01,  6.127904283944557D-01,  5.775655266427641D-03, &
 9.462416352500443D-01,  9.599078291538412D-01,  2.602348449588172D-03, &
 9.464214946937899D-01,  2.174055880473181D-01,  8.183789662861353D-03, &
 9.483846862528557D-01, -9.121585564057219D-01,  3.515812117215462D-03, &
 9.502795953661248D-01, -1.665956085226044D-02,  9.244882696179383D-03, &
 9.509238027788980D-01, -4.671808125048466D-01,  7.778845637088972D-03, &
 9.512217505973695D-01,  9.975809114133117D-01,  5.139248565810932D-04, &
 9.527470555424390D-01, -2.452206198184587D-01,  8.934499397490152D-03, &
 9.592551721099858D-01, -9.800077457957908D-01,  1.583793112109460D-03, &
 9.635773411406924D-01,  7.811935286068071D-01,  4.341305455620128D-03, &
 9.664706318878840D-01,  5.062808601831001D-01,  6.514641073677681D-03, &
 9.712009645368384D-01, -7.236074445113848D-01,  4.632318546295927D-03, &
 9.750871880034563D-01,  9.181022714139108D-01,  2.418384903446744D-03, &
 9.753612107572261D-01, -8.542575822594997D-01,  2.939880020404475D-03, &
 9.771712814502167D-01,  3.337491350874086D-01,  5.138702967736385D-03, &
 9.796202659342652D-01,  1.139693876952825D-01,  5.831373899382246D-03, &
 9.799852473516794D-01, -5.711769167233038D-01,  4.435133168562443D-03, &
 9.802648322311707D-01,  6.750032224988851D-01,  3.955250863364047D-03, &
 9.810868050137430D-01,  9.856276869865556D-01,  8.700281868935982D-04, &
 9.826246063168834D-01, -3.638393037687699D-01,  5.148686860161606D-03, &
 9.833305319309631D-01, -1.263457021753157D-01,  5.419689142545006D-03, &
 9.834657898675960D-01, -9.464917816489062D-01,  1.606043238725865D-03, &
 9.871570448287768D-01, -9.953040717606414D-01,  4.014919822858868D-04, &
 9.879109700683048D-01,  8.401442342078335D-01,  2.254477068544381D-03, &
 9.942971011761540D-01, -7.923589246102194D-01,  1.676928772166950D-03, &
 9.943103084508153D-01,  9.589447862560037D-01,  7.154329251248137D-04, &
 9.944839549832385D-01,  4.305503528241359D-01,  2.332655357182134D-03, &
 9.944882643568679D-01,  5.822713014974841D-01,  2.130704201950450D-03, &
 9.955607724070924D-01, -6.629654417179892D-01,  1.734396121578630D-03, &
 9.959759411587524D-01, -8.966138075526434D-01,  9.460145783264427D-04, &
 9.961579504388610D-01,  2.339319461038794D-01,  2.197631276825098D-03, &
 9.970034303329453D-01, -4.805125358625656D-01,  1.717119689979895D-03, &
 9.970359077153589D-01,  4.973042782590862D-03,  1.976200444087838D-03, &
 9.975896723770977D-01,  7.481282641542352D-01,  1.186765908765057D-03, &
 9.976075303722897D-01, -2.495954379536609D-01,  1.726273349986223D-03, &
 9.985157152594889D-01,  9.971971012987678D-01,  9.821637011466654D-05, &
 9.985808631696838D-01,  8.990756328646153D-01,  5.055415778287732D-04, &
 9.987809239831112D-01, -9.748368623655366D-01,  2.993356033786765D-04 /)

  return
end
subroutine smr46 ( xyw )

!*****************************************************************************80
!
!! SMR46 returns the SMR rule of degree 46.
!
!  Discussion:
!
!    DEGREE: 46
!    POINTS CARDINALITY: 387
!    NORM INF MOMS. RESIDUAL: 2.03396e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*387), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*387)

  xyw = (/ &
 -9.983111423300403D-01,  5.288463379177194D-01,  1.077877162071936D-03, &
 -9.980165536240384D-01,  9.771577113964515D-01,  3.358785950069629D-04, &
 -9.980057366593107D-01,  8.627358726346877D-01,  6.003479857328445D-04, &
 -9.979683379344829D-01, -6.942209080688336D-01,  1.101994373218053D-03, &
 -9.978846063972665D-01,  7.248634355141237D-01,  9.622706165518573D-04, &
 -9.976343783636701D-01, -4.901932224780105D-01,  1.459301786243793D-03, &
 -9.975456640840761D-01,  3.145719096243388D-01,  1.435508298339834D-03, &
 -9.974305941584383D-01, -8.537788458635189D-01,  8.063821753970214D-04, &
 -9.963467450618418D-01, -9.821437303584432D-01,  4.013000811661125D-04, &
 -9.963009121112316D-01, -2.704146437985034D-01,  2.094359395819190D-03, &
 -9.962806106099757D-01,  1.123075934443736D-01,  1.888774287809683D-03, &
 -9.940902248165704D-01, -9.316901409499205D-01,  8.495707747103506D-04, &
 -9.938933215260991D-01, -7.079039559931181D-02,  2.912153811018539D-03, &
 -9.917585881160206D-01,  9.225449661005339D-01,  1.208278868867505D-03, &
 -9.877765791917548D-01,  6.288297749314813D-01,  3.125282998079219D-03, &
 -9.868078584857646D-01,  8.017653629554962D-01,  2.384264480882027D-03, &
 -9.864405958010823D-01, -7.802922340742308D-01,  2.766257703102030D-03, &
 -9.861374381057205D-01,  4.302599938856595D-01,  3.896596604742260D-03, &
 -9.860561184001005D-01,  9.959625949335185D-01,  3.768462609684377D-04, &
 -9.851999106336341D-01, -5.993676873167308D-01,  3.897179923118708D-03, &
 -9.823744385328851D-01,  2.224305198952116D-01,  4.389361116586368D-03, &
 -9.823717033752213D-01, -3.922448187993621D-01,  4.866053077993799D-03, &
 -9.816324879121784D-01, -9.972824585879037D-01,  3.539318490028104D-04, &
 -9.808402316764249D-01, -8.969081857937120D-01,  1.430112081567521D-03, &
 -9.755886861073786D-01,  9.593223831278707D-01,  1.537597902797862D-03, &
 -9.743498206750085D-01, -1.814564543728963D-01,  6.160694758533645D-03, &
 -9.723572538186456D-01, -9.608004605969592D-01,  1.775385419876353D-03, &
 -9.722382292526556D-01,  4.575052264951963D-02,  6.359444615009903D-03, &
 -9.674256064855085D-01,  8.719589137075090D-01,  3.343864470517355D-03, &
 -9.655171991563514D-01,  7.180035091780340D-01,  4.785905400994727D-03, &
 -9.624420464882796D-01, -8.488914199258957D-01,  3.342352186086261D-03, &
 -9.624375637065791D-01,  5.378256410738799D-01,  6.214733942070574D-03, &
 -9.609564853325729D-01, -6.987107790974231D-01,  5.634701956686364D-03, &
 -9.582534487467066D-01,  3.329644217027720D-01,  6.778705946888507D-03, &
 -9.553330912989174D-01, -5.085340714542828D-01,  7.366493334985202D-03, &
 -9.513324008400423D-01,  9.856312840827730D-01,  1.330643418748665D-03, &
 -9.462216299986661D-01, -3.074523531561095D-01,  8.518829293626153D-03, &
 -9.423577772939717D-01, -9.868227254586934D-01,  1.516125769939738D-03, &
 -9.393806145622896D-01, -6.393001117132881D-02,  9.254712550028325D-03, &
 -9.380581290975274D-01, -9.143951836207059D-01,  3.592402661502303D-03, &
 -9.370997481849076D-01,  9.247112445714407D-01,  3.596998195741029D-03, &
 -9.370408950027029D-01,  1.701035315993199D-01,  9.761731824542692D-03, &
 -9.331125695054737D-01,  7.991178696492102D-01,  6.010555876145078D-03, &
 -9.264553050234512D-01,  6.367471939422996D-01,  8.013247394678898D-03, &
 -9.257833020863018D-01, -7.851138118520632D-01,  6.465654027360096D-03, &
 -9.232295614388404D-01,  4.373930707289740D-01,  8.924951728810733D-03, &
 -9.169304968245420D-01, -6.173156236169133D-01,  9.176842979353183D-03, &
 -9.158461010077630D-01,  9.983551814323244D-01,  5.272476313713648D-04, &
 -9.051276758776533D-01, -4.239566904643302D-01,  1.072046479438868D-02, &
 -9.032419077912952D-01, -9.530184538306384D-01,  3.182051544793368D-03, &
 -9.021102524547485D-01, -1.916184311444890D-01,  1.130998717609783D-02, &
 -8.980961459025067D-01,  9.646542499645536D-01,  3.178751154593399D-03, &
 -8.930078393151207D-01, -9.981508615033944D-01,  6.570920554362360D-04, &
 -8.906744958940082D-01,  5.331652102117236D-02,  1.270902532675199D-02, &
 -8.905389004793887D-01,  8.675870875563284D-01,  6.336364651974894D-03, &
 -8.886387309148650D-01,  2.919115286844978D-01,  1.269563275681320D-02, &
 -8.854149145655548D-01, -8.605083285679000D-01,  6.622620311336960D-03, &
 -8.793037622856232D-01,  7.261357982998039D-01,  9.242333645649367D-03, &
 -8.771808942835173D-01,  5.369791516940807D-01,  1.078396362232102D-02, &
 -8.678439739737586D-01, -7.154028908195939D-01,  1.017271142495267D-02, &
 -8.547339766301599D-01, -9.781932956431606D-01,  2.678930288181945D-03, &
 -8.537315103377962D-01, -5.343331860669793D-01,  1.242332352924924D-02, &
 -8.520164840234268D-01, -3.094551247900096D-01,  1.305829147586281D-02, &
 -8.488681825198992D-01,  9.896255593087030D-01,  2.002616403722711D-03, &
 -8.416507788252385D-01, -8.265115783740917D-02,  1.490207091803921D-02, &
 -8.392425787263469D-01,  9.232660535378425D-01,  5.881955508762292D-03, &
 -8.354077924594627D-01, -9.142725948542541D-01,  5.674810428887848D-03, &
 -8.308359345629498D-01,  1.725487547473738D-01,  1.533431714809703D-02, &
 -8.274841967106447D-01,  4.088159141245927D-01,  1.501736541467763D-02, &
 -8.238115079964703D-01,  8.060487501731384D-01,  9.429758324133860D-03, &
 -8.197373702496686D-01,  6.306005588539771D-01,  1.221854856004642D-02, &
 -8.119207537103786D-01, -8.024258568330985D-01,  1.017584060240601D-02, &
 -7.934808337088018D-01, -6.360553805785052D-01,  1.319241564428063D-02, &
 -7.914436664499496D-01, -4.207932036862586D-01,  1.447292693321381D-02, &
 -7.887191070259210D-01, -9.936283345929116D-01,  1.752216334037365D-03, &
 -7.817594477527704D-01,  9.649444494603818D-01,  4.403270919820491D-03, &
 -7.806968676724935D-01, -2.127005818706033D-01,  1.590915338247300D-02, &
 -7.787206463899139D-01, -9.502131272522223D-01,  4.429611018981373D-03, &
 -7.729716977649312D-01,  3.504231727683854D-02,  1.730216063737120D-02, &
 -7.615475168534998D-01,  9.970713335225059D-01,  1.105751104522964D-03, &
 -7.613774270772271D-01,  8.732384669131723D-01,  8.765009909401999D-03, &
 -7.605658209205032D-01,  2.873715524000673D-01,  1.724853309888603D-02, &
 -7.545102898776130D-01,  5.185064654385597D-01,  1.653260406179394D-02, &
 -7.543179046928901D-01,  7.203533180047458D-01,  1.279648077347124D-02, &
 -7.462096105686143D-01, -8.716832704900178D-01,  8.965204163025747D-03, &
 -7.297551839636630D-01, -7.294705145359583D-01,  1.257733002011545D-02, &
 -7.242201288685997D-01, -5.260417553686566D-01,  1.491064590305035D-02, &
 -7.111976203431433D-01, -3.418767681380177D-01,  1.372933284312857D-02, &
 -7.108504678954995D-01, -1.039300655680135D-01,  1.688080640592963D-02, &
 -7.080091377554032D-01, -9.738542524510675D-01,  3.832949073991781D-03, &
 -6.993005032215379D-01,  9.292838315386169D-01,  6.854783787218264D-03, &
 -6.945010624970885D-01,  1.490753875762792D-01,  1.908181406615000D-02, &
 -6.829539157895229D-01,  3.943661912129811D-01,  1.775227360298309D-02, &
 -6.824522164896524D-01,  9.828020464230726D-01,  3.461480537140765D-03, &
 -6.811161448382028D-01,  8.009485101920445D-01,  1.247548617968576D-02, &
 -6.740874841537527D-01, -9.203828537769473D-01,  6.499214840639783D-03, &
 -6.740590762912708D-01,  6.234582056824679D-01,  1.710880207528098D-02, &
 -6.667283792866656D-01, -9.966870351134982D-01,  1.345631389649490D-03, &
 -6.627500062251878D-01, -2.629897031536784D-01,  1.253500094538003D-02, &
 -6.622225214428993D-01, -8.059108267523946D-01,  1.065281011757487D-02, &
 -6.557914154525895D-01, -6.273988439708652D-01,  1.444872151803694D-02, &
 -6.348709267896325D-01, -4.673203468046226D-01,  1.172736214570953D-02, &
 -6.328413233255047D-01, -6.452211008886946D-04,  1.869025751288091D-02, &
 -6.118719359252214D-01,  8.762829386426818D-01,  1.033274390128391D-02, &
 -6.110556896889493D-01,  2.560001034291458D-01,  1.917352404679710D-02, &
 -6.092675868512063D-01,  9.974932063614328D-01,  1.111770360271985D-03, &
 -6.089001735150132D-01,  4.894606407282653D-01,  1.493304221615996D-02, &
 -5.957728962033498D-01, -9.442775669731837D-01,  5.152774389043164D-03, &
 -5.934378260544972D-01, -8.618789798012082D-01,  8.671109578031069D-03, &
 -5.919685431225901D-01,  9.532093633373470D-01,  6.000008339596521D-03, &
 -5.919111534153291D-01, -3.881929105751961D-01,  1.404997546066828D-02, &
 -5.877361965725245D-01, -1.659039454745879D-01,  1.965458127599791D-02, &
 -5.877226304090875D-01,  7.189942447153720D-01,  1.660443704063239D-02, &
 -5.853917259329147D-01, -7.157079059870500D-01,  1.335893581504478D-02, &
 -5.787373200325358D-01, -9.819349338509461D-01,  3.724690335082629D-03, &
 -5.515089331602092D-01, -5.600319273292009D-01,  1.459416036801704D-02, &
 -5.469704321502723D-01,  5.581230180424370D-01,  1.320231485769863D-02, &
 -5.448756607377084D-01,  1.052883744135819D-01,  2.111827618977989D-02, &
 -5.340427010083240D-01,  3.528051735252741D-01,  1.689752990450137D-02, &
 -5.315744106126522D-01,  9.832382229796701D-01,  2.995609026491748D-03, &
 -5.148064070837848D-01,  8.147217984009684D-01,  1.345617174772626D-02, &
 -5.087680119024051D-01, -2.788763652823787D-01,  1.994337766154448D-02, &
 -5.061581233455268D-01, -7.892496183565814D-01,  1.286508149092348D-02, &
 -5.012203894259853D-01, -8.990231192240392D-01,  8.956058330470088D-03, &
 -4.936349963135775D-01, -9.968369463719365D-01,  1.575947703548631D-03, &
 -4.911326875959225D-01,  9.149214659234989D-01,  9.293367007494500D-03, &
 -4.879661301700524D-01, -4.800056817263576D-02,  2.227718283981051D-02, &
 -4.847914361880020D-01, -4.546071876863588D-01,  1.526526777579720D-02, &
 -4.846822250085249D-01, -6.418342427755345D-01,  1.219156161879653D-02, &
 -4.760256114114479D-01,  6.375375872806944D-01,  1.720769987743707D-02, &
 -4.621007151616755D-01, -9.579502546478819D-01,  6.554088731066456D-03, &
 -4.612967110110002D-01,  9.966660407011948D-01,  1.217481758961742D-03, &
 -4.569206283268340D-01,  4.345123071178997D-01,  1.839698391377606D-02, &
 -4.496803127775477D-01,  2.202902900476915D-01,  2.241266821911760D-02, &
 -4.278915134934840D-01,  9.671114926361384D-01,  5.191064069034339D-03, &
 -4.146363040355858D-01,  7.473511052485697D-01,  1.508362820205234D-02, &
 -4.076400871388755D-01, -7.062801223113114D-01,  1.443945184922928D-02, &
 -4.070553182360229D-01, -1.526895844070415D-01,  2.047617240956142D-02, &
 -4.022172104649683D-01, -3.511189153921571D-01,  1.888641854799721D-02, &
 -4.005903401571346D-01, -8.436497390055564D-01,  1.164332051477943D-02, &
 -3.942704527579263D-01, -5.429006006269239D-01,  1.763233210715006D-02, &
 -3.920322092784385D-01,  8.675390012920151D-01,  1.041096047388326D-02, &
 -3.846660086832624D-01,  8.917470150450708D-02,  1.892693797908766D-02, &
 -3.729863115263242D-01, -9.859184869614498D-01,  4.095961239144511D-03, &
 -3.716740791814342D-01,  5.310297213894640D-01,  2.083126621383546D-02, &
 -3.486558657245032D-01, -9.194138838445431D-01,  9.698505131349492D-03, &
 -3.433349546665356D-01,  3.230449465905588D-01,  2.374293118970489D-02, &
 -3.344389712170940D-01,  9.921091261971137D-01,  2.869305970347512D-03, &
 -3.339313518662538D-01,  9.384366607395505D-01,  7.681016742585266D-03, &
 -3.325417016336327D-01,  1.286602408259136D-02,  1.557157921087293D-02, &
 -3.282638864870970D-01, -7.785798295099498D-01,  9.483406458745599D-03, &
 -3.219994475413112D-01,  6.704477854046392D-01,  1.550078134528658D-02, &
 -3.159420291185248D-01,  8.270797065832005D-01,  8.524811430984630D-03, &
 -3.092399396317421D-01, -2.277117057375501D-01,  2.112662086798820D-02, &
 -2.968279429238752D-01, -4.396378070292698D-01,  2.129314196872056D-02, &
 -2.905204845049371D-01, -6.277035890195538D-01,  1.949076619182426D-02, &
 -2.660737641019463D-01,  4.255724500180151D-01,  1.406940792473095D-02, &
 -2.657259347700068D-01, -9.983145161338485D-01,  1.297107633585316D-03, &
 -2.557040513029764D-01, -9.607724968354249D-01,  7.076847711496876D-03, &
 -2.507469864960903D-01,  1.885266112795361D-01,  2.719835405580567D-02, &
 -2.465621618464433D-01, -6.302324636139266D-02,  2.220715080388317D-02, &
 -2.422173156650345D-01,  7.716949471630073D-01,  1.461225419981911D-02, &
 -2.397259575954650D-01, -7.537162650009356D-01,  1.272707785511618D-02, &
 -2.382433304389768D-01, -8.636962693408693D-01,  1.314939728605020D-02, &
 -2.348523931292380D-01,  5.954466740476743D-01,  1.696950549956305D-02, &
 -2.302678163192251D-01,  8.980662833826019D-01,  1.075143067263782D-02, &
 -2.280326790666749D-01,  9.731664665061597D-01,  5.788926660667668D-03, &
 -2.067449089627632D-01, -3.142157476434185D-01,  2.065950705760577D-02, &
 -1.998822841751484D-01,  4.556559275603105D-01,  1.452445159282058D-02, &
 -1.780348710790272D-01, -5.294356781067937D-01,  2.293930129672077D-02, &
 -1.729154221323040D-01,  8.947634588886424D-02,  9.633358448521607D-03, &
 -1.679785686773150D-01,  9.977004810664578D-01,  1.580660537042458D-03, &
 -1.513615578790225D-01, -1.408023440657114D-01,  1.999321020575889D-02, &
 -1.510049533511834D-01, -9.857568554875824D-01,  4.171489211283228D-03, &
 -1.397908366129535D-01, -6.831910361461173D-01,  1.843457361864874D-02, &
 -1.388453696223859D-01, -9.202453076597740D-01,  1.063712403558069D-02, &
 -1.364042879497747D-01,  3.148557325219815D-01,  2.642864804518861D-02, &
 -1.357676378587967D-01, -3.700839091893132D-01,  1.007003471287555D-02, &
 -1.341336818342906D-01,  6.962786900689967D-01,  1.930661907444524D-02, &
 -1.268063328385695D-01,  8.405755822951979D-01,  1.421554079635553D-02, &
 -1.159584802313210D-01,  6.193763651449499D-02,  2.189180449837289D-02, &
 -1.136601056222965D-01,  9.411644534061605D-01,  8.852548392145691D-03, &
 -1.021809090852591D-01, -8.116890139416293D-01,  1.638446296121459D-02, &
 -9.957974534510225D-02,  5.465537117483713D-01,  1.936985897602384D-02, &
 -6.013303858641021D-02, -2.228487583791975D-01,  2.265701874040998D-02, &
 -5.169586652442786D-02,  9.835122859254263D-01,  4.824215443618791D-03, &
 -5.139510564692561D-02, -4.291434980038135D-01,  2.272752478914381D-02, &
 -3.882804828978392D-02, -9.973934768928572D-01,  1.457851894270487D-03, &
 -3.342710705704959D-02,  2.161596108865151D-01,  2.137936125066629D-02, &
 -3.218752249323631D-02, -9.607936917182006D-01,  7.314373566869228D-03, &
 -3.017152289296703D-02, -5.994190919388979D-01,  2.040979936959506D-02, &
 -1.867008238226461D-02,  4.362811533647392D-01,  2.208258553134326D-02, &
 -1.343806034595350D-02,  7.734825117081163D-01,  1.719967834300143D-02, &
 -1.185114610879654D-02, -3.481367504384966D-02,  2.423341772064624D-02, &
 -7.919342463364545D-04,  8.945837010426477D-01,  1.232847827313112D-02, &
 4.919452919873997D-03, -8.809812407295396D-01,  1.354090072320326D-02, &
 1.305827593618624D-02,  6.297679760756248D-01,  2.008240810469282D-02, &
 1.779271432032194D-02, -7.377081209970429D-01,  1.876486052772664D-02, &
 4.884160865441580D-02,  1.507066653383158D-01,  1.871250815547388D-02, &
 5.990126302514630D-02,  9.969795355703539D-01,  1.692710307507148D-03, &
 6.006717209602051D-02, -3.083136689294216D-01,  2.565724966279625D-02, &
 6.393909219067830D-02,  3.594993165616777D-01,  1.509548787122363D-02, &
 7.175408292024850D-02,  9.554637730216967D-01,  8.306658405607603D-03, &
 7.525461672292501D-02, -5.160683941502094D-01,  1.874790249909374D-02, &
 8.110183649610606D-02, -9.867585187826022D-01,  4.076210204008766D-03, &
 8.141967150319139D-02, -1.189705745248058D-01,  2.032608743176999D-02, &
 1.124880105553899D-01, -9.359171673996224D-01,  9.571932927888115D-03, &
 1.165489339636398D-01,  8.367961024670041D-01,  1.506162267493892D-02, &
 1.210277013276357D-01,  7.092707728848469D-01,  1.701632734469468D-02, &
 1.226974308970525D-01,  5.269692986000968D-01,  2.428603200993640D-02, &
 1.229083911931521D-01, -8.182540440119128D-01,  1.570235696766660D-02, &
 1.350112470613993D-01, -6.538504393209962D-01,  2.030628583177083D-02, &
 1.399181256835766D-01,  3.015348908887893D-01,  2.019291503816718D-02, &
 1.404257985465581D-01,  6.092746217029241D-02,  2.461307617903064D-02, &
 1.537383644071319D-01, -4.285399646581668D-01,  1.729562302093782D-02, &
 1.793831484355051D-01,  9.848486617613754D-01,  4.373304719358010D-03, &
 1.885276528802143D-01, -1.946570197424425D-01,  2.437822908681812D-02, &
 1.913490446236383D-01,  9.136669626572853D-01,  1.136057870401207D-02, &
 1.950733760684369D-01, -9.988883757089664D-01,  1.115917379491008D-03, &
 2.202349038604578D-01, -8.872502852695510D-01,  1.183870475738118D-02, &
 2.266103135304583D-01, -9.724019023500025D-01,  6.089563321336039D-03, &
 2.334514056216084D-01,  2.100250708586558D-01,  2.242983008197881D-02, &
 2.346890297758962D-01, -7.430696053291979D-01,  1.611144382586636D-02, &
 2.371854897054120D-01,  6.277158377811654D-01,  1.998985840392359D-02, &
 2.381551058710785D-01, -2.728024275968237D-02,  1.867617065182177D-02, &
 2.403845626744464D-01, -5.494371080987960D-01,  1.919163292548581D-02, &
 2.406566753219083D-01,  7.709850451400717D-01,  1.548587357826445D-02, &
 2.437892485634663D-01,  4.312692590040306D-01,  2.500208999773301D-02, &
 2.457113471217321D-01, -3.504488987179999D-01,  2.076259214573411D-02, &
 2.787975217317672D-01,  9.987709148054594D-01,  1.074439970173681D-03, &
 2.874526689515157D-01,  9.610687558161728D-01,  6.639643775994492D-03, &
 3.050701074537157D-01,  8.576858834243071D-01,  1.330354503175670D-02, &
 3.079020816595327D-01, -6.341747220801298D-01,  1.232930413128336D-02, &
 3.129207107515677D-01, -8.153811415487545D-01,  1.088352641587536D-02, &
 3.235238534770942D-01, -9.348385551501034D-01,  8.405733683243891D-03, &
 3.249461420324165D-01,  1.195055866712430D-01,  2.059445277234703D-02, &
 3.259332646765282D-01, -8.115322717293480D-02,  1.921450979679603D-02, &
 3.418019449964280D-01, -9.921627760081128D-01,  2.876179862337243D-03, &
 3.441463742468578D-01, -2.507586930846943D-01,  2.246920139880491D-02, &
 3.454157311797964D-01,  3.196442608280841D-01,  1.949168155726703D-02, &
 3.522858087462989D-01,  5.473292954828115D-01,  2.052211824025522D-02, &
 3.550612724894830D-01, -4.622644021251900D-01,  2.237322821452582D-02, &
 3.628206389441777D-01,  6.996588792810672D-01,  1.611470867455308D-02, &
 3.803124073211717D-01,  9.267629522530908D-01,  7.864925821108384D-03, &
 3.837527955162833D-01, -7.107409299987680D-01,  1.416444264486913D-02, &
 3.851917500153872D-01,  9.887591655242265D-01,  3.339189896709617D-03, &
 3.854269547410605D-01, -8.618469546717433D-01,  9.610742279852392D-03, &
 4.019225793782901D-01,  4.016798585964549D-01,  1.012917154681300D-02, &
 4.127391066428609D-01,  7.903342236233291D-01,  1.269130304446248D-02, &
 4.206237377241268D-01, -9.659761107125491D-01,  5.178093920336236D-03, &
 4.299310943181327D-01, -5.994572508065145D-01,  1.557080469778748D-02, &
 4.307413834300436D-01,  4.658662181207777D-02,  2.219196980426284D-02, &
 4.405340685608884D-01,  2.335295068344127D-01,  1.865946407826078D-02, &
 4.489137849532947D-01, -1.476957002369098D-01,  2.137580876989588D-02, &
 4.553257248925679D-01, -3.592620025020420D-01,  2.194266456909868D-02, &
 4.596003509315073D-01,  8.854184724628273D-01,  8.841941691903296D-03, &
 4.709725837444826D-01,  4.828558460588853D-01,  1.704907169399865D-02, &
 4.739134209792026D-01, -9.952544731037134D-01,  1.384022073294283D-03, &
 4.744311818429655D-01, -9.091663251538931D-01,  9.407209766944927D-03, &
 4.754339111432121D-01,  9.677012363182328D-01,  5.151968481850169D-03, &
 4.756400085409440D-01, -7.846592391745022D-01,  1.479999552925989D-02, &
 4.797722514467903D-01,  6.266312294749810D-01,  1.517363837511235D-02, &
 5.100902189441707D-01, -5.204709881652611D-01,  1.794265819609321D-02, &
 5.114213495330481D-01,  7.063838369295402D-01,  9.385769008220548D-03, &
 5.154702873160621D-01,  9.970261558990023D-01,  1.418938295959134D-03, &
 5.206787479692746D-01, -9.804693890194831D-01,  2.602127396219503D-03, &
 5.248386664133297D-01,  8.240594713994390D-01,  1.015762604252224D-02, &
 5.292261493359739D-01,  3.532128983853009D-01,  1.761372213704019D-02, &
 5.412455238586017D-01,  1.663089169562654D-01,  1.981488239826455D-02, &
 5.422636874412113D-01, -3.888952643040450D-02,  2.029645493692368D-02, &
 5.490686000308411D-01, -6.800871557244708D-01,  1.778082318788007D-02, &
 5.506497016063064D-01, -2.569823972423157D-01,  2.040618638507255D-02, &
 5.558484982602493D-01,  9.370085805481705D-01,  6.860313942207178D-03, &
 5.730289132425076D-01, -8.539043933599846D-01,  1.199840964520873D-02, &
 5.743172499325917D-01, -9.493748534639627D-01,  6.446458905888820D-03, &
 5.933561550270604D-01, -9.973165046518369D-01,  1.106220941881708D-03, &
 5.958409370787153D-01,  5.800079660836041D-01,  1.671078508710501D-02, &
 5.988069851863091D-01,  7.502260051414449D-01,  1.282898642169325D-02, &
 5.990481942679082D-01, -4.246825001870817D-01,  1.984169743778542D-02, &
 6.005986331257841D-01,  4.554769692975677D-01,  1.334287115720346D-02, &
 6.040160922907698D-01,  9.854671530856786D-01,  2.994287695803976D-03, &
 6.148479609092942D-01,  8.841220860695742D-01,  9.043118053822746D-03, &
 6.290329677665637D-01,  6.473056660736756D-02,  1.770611661233833D-02, &
 6.357508149775565D-01,  2.792335526293019D-01,  1.792883669549749D-02, &
 6.359115381229695D-01, -1.533221513721983D-01,  1.866471728653944D-02, &
 6.428347625670869D-01, -5.860865379095112D-01,  1.800068148760219D-02, &
 6.431770915314418D-01, -7.673033465075149D-01,  1.415629485620442D-02, &
 6.629470916951145D-01, -9.814101628847763D-01,  3.828055463736441D-03, &
 6.635620751159940D-01,  9.669552929922944D-01,  3.573941812000668D-03, &
 6.662663601364237D-01, -9.116551120171078D-01,  8.464264999754742D-03, &
 6.826809651786937D-01,  6.740553403014049D-01,  1.482537895685379D-02, &
 6.841894614722424D-01,  9.991626816274169D-01,  6.403585593440745D-04, &
 6.879813211979059D-01, -3.164327346746020D-01,  1.950390211841089D-02, &
 6.895381114908021D-01,  8.244385950006391D-01,  1.107283514053267D-02, &
 6.951293081922316D-01,  3.848652923305114D-01,  1.205406495559543D-02, &
 7.071941862038644D-01,  1.557551547343111D-01,  1.487157194009795D-02, &
 7.088392130891149D-01,  9.311081105556229D-01,  6.403186257497955D-03, &
 7.103489145184514D-01,  5.128671353459157D-01,  1.447349152743848D-02, &
 7.112523777541994D-01, -5.343627919039270D-02,  1.622337417018616D-02, &
 7.269363794433283D-01, -6.840991876519299D-01,  1.435100659999861D-02, &
 7.279049704858229D-01, -8.426704238412119D-01,  1.045402040085113D-02, &
 7.285342993988090D-01, -4.839061792889138D-01,  1.728103414529436D-02, &
 7.452814605775970D-01, -9.968228546357361D-01,  1.246345264724730D-03, &
 7.453280291188794D-01,  9.911483462347401D-01,  1.772175614234971D-03, &
 7.500124480157498D-01, -9.547637231472251D-01,  5.631122806171691D-03, &
 7.660136246691086D-01,  2.540733190060072D-01,  1.368648950065803D-02, &
 7.691308291829931D-01,  7.612449038860015D-01,  1.157990272462695D-02, &
 7.695653758500861D-01, -2.017051775800784D-01,  1.788941594689514D-02, &
 7.757855546099112D-01,  6.120139510322031D-01,  1.234795524473133D-02, &
 7.783422194325996D-01,  8.857643892793224D-01,  8.021465975032427D-03, &
 7.794925507276567D-01,  3.834881273142750D-02,  1.394353531135586D-02, &
 7.881718171116056D-01,  3.986996175544144D-01,  1.286848339449679D-02, &
 7.897308006236938D-01,  9.695228604931504D-01,  3.758196130226270D-03, &
 8.005617072950878D-01, -7.714759314806717D-01,  1.082717845154526D-02, &
 8.014647958275422D-01, -5.914754924105888D-01,  1.372540088894792D-02, &
 8.048586654976113D-01, -3.760191806026097D-01,  1.578196274558745D-02, &
 8.074198214828329D-01, -9.002944432867208D-01,  7.509326689239254D-03, &
 8.229471194855432D-01, -9.844354012048210D-01,  2.780744450891915D-03, &
 8.350468397869657D-01,  5.190039957049550D-01,  1.164754105169609D-02, &
 8.365299137297749D-01,  1.412585586299757D-01,  1.308242784832346D-02, &
 8.413421178380436D-01, -8.484860532171155D-02,  1.504535328855272D-02, &
 8.458961337160322D-01,  6.994870213051259D-01,  1.009460273201535D-02, &
 8.469985537754668D-01,  8.338344678958003D-01,  8.168632261528704D-03, &
 8.488085430055092D-01,  9.947858132674051D-01,  1.443650552126127D-03, &
 8.500645149945468D-01,  9.373507720718434D-01,  5.137934922700379D-03, &
 8.546242903977276D-01,  3.051629507870270D-01,  1.089091512734386D-02, &
 8.641763900405030D-01, -6.889448486764105D-01,  1.039249251041895D-02, &
 8.659703474188424D-01, -4.920675442015341D-01,  1.232231682369118D-02, &
 8.693776571618932D-01, -9.487224468680494D-01,  4.354062518153025D-03, &
 8.694914780269520D-01, -2.629599405001600D-01,  1.349510193140824D-02, &
 8.700002668817390D-01, -8.383123670557577D-01,  7.781670768080279D-03, &
 8.855489975037527D-01, -9.979953692358957D-01,  7.195696835960152D-04, &
 8.915724133557099D-01,  4.333952149598865D-01,  9.718531146073172D-03, &
 8.968125829421709D-01,  6.154154698482395D-01,  9.130732879751960D-03, &
 8.995352955639010D-01,  3.727433236704860D-02,  1.210455078959554D-02, &
 9.044176738266044D-01,  9.759589325906001D-01,  2.784595965114452D-03, &
 9.047127613663705D-01,  2.206198562862635D-01,  8.552543877154380D-03, &
 9.068881151497454D-01,  7.787953338368784D-01,  7.037593396418797D-03, &
 9.083011281987010D-01,  8.960176782874899D-01,  5.423153331182166D-03, &
 9.173132897326095D-01, -5.972448898522749D-01,  9.084632723408663D-03, &
 9.175159859708392D-01, -9.030480944892180D-01,  4.616231117242107D-03, &
 9.181461241031550D-01, -3.851974576496667D-01,  1.023307955068548D-02, &
 9.208135196421833D-01, -1.434373337472792D-01,  1.050231657558337D-02, &
 9.217303926670013D-01, -7.644491631725594D-01,  7.188933837018584D-03, &
 9.227515342181415D-01, -9.791268272110957D-01,  2.161611001412200D-03, &
 9.390812942639490D-01,  3.458046057721214D-01,  8.001729417607994D-03, &
 9.391736486952373D-01,  5.304895199343252D-01,  7.122316398716251D-03, &
 9.430600573892549D-01,  9.966709231907848D-01,  7.129053481620616D-04, &
 9.454576615044328D-01,  7.052920398449620D-01,  6.071748103577099D-03, &
 9.496345360898582D-01,  1.521627208076305D-01,  7.676594864205592D-03, &
 9.524245393681409D-01,  9.458296922698042D-01,  3.034421018413787D-03, &
 9.549490689468429D-01,  8.452832051303726D-01,  4.625534494986953D-03, &
 9.549952747196216D-01, -8.482826904953155D-01,  3.945366388858040D-03, &
 9.561903566881326D-01, -2.674325744283451D-01,  7.592688481937286D-03, &
 9.574313570023540D-01, -4.955636512788343D-01,  7.063311775228204D-03, &
 9.589118653680453D-01, -9.459098456977220D-01,  2.498821388791289D-03, &
 9.592027558752809D-01, -2.347640435515468D-02,  7.496102409709891D-03, &
 9.609958781667891D-01, -6.801431473140105D-01,  5.715602788126438D-03, &
 9.627398206459263D-01, -9.951247808234173D-01,  6.592649205000905D-04, &
 9.728989108861091D-01,  4.499381661270909D-01,  5.032786439355391D-03, &
 9.740714589903327D-01,  6.233281153298854D-01,  4.526374604487227D-03, &
 9.768548600134053D-01, -7.949632055922030D-01,  2.082313300604911D-03, &
 9.782650771098491D-01,  2.726194163361467D-01,  5.185181641231907D-03, &
 9.786925055378212D-01,  9.827582996544191D-01,  1.141047824238659D-03, &
 9.822091362390636D-01,  7.746068528251591D-01,  3.392981026324791D-03, &
 9.828825653139780D-01, -3.788927753616619D-01,  4.587476394453676D-03, &
 9.831832567744532D-01, -1.495359315198227D-01,  4.796541548146330D-03, &
 9.845823512703257D-01,  9.041799806417141D-01,  2.254648011248501D-03, &
 9.848729561355289D-01, -9.008616462537060D-01,  2.041681903834455D-03, &
 9.858543382964763D-01, -9.755482569442001D-01,  9.339547720854347D-04, &
 9.862811960229013D-01, -5.856501611199811D-01,  3.641915309288278D-03, &
 9.864821493614616D-01,  8.874301057952583D-02,  4.193190248767370D-03, &
 9.891882478301796D-01, -7.505304865321339D-01,  1.890478947988027D-03, &
 9.940951241861832D-01,  5.432137582110499D-01,  2.245016939288178D-03, &
 9.953374929604664D-01,  3.836092124240039D-01,  2.043871336953785D-03, &
 9.960416279394205D-01,  9.972986154465028D-01,  1.461982700921600D-04, &
 9.961174988510967D-01, -9.950835645943196D-01,  1.717741433409342D-04, &
 9.961527671803110D-01,  6.918580060078352D-01,  1.525847569674391D-03, &
 9.966559754610508D-01,  9.557295127448442D-01,  6.302051569265952D-04, &
 9.970214929502554D-01, -2.644098315766063D-01,  1.749852740750748D-03, &
 9.973200872809646D-01, -3.826590124697109D-02,  1.645309636276182D-03, &
 9.973259273035801D-01, -8.408771000383591D-01,  8.974177017096658D-04, &
 9.974702963631498D-01, -4.748457085080076D-01,  1.419898311116791D-03, &
 9.979804912008889D-01,  2.058903880121162D-01,  1.332855555539681D-03, &
 9.980187128543290D-01,  8.423741210647242D-01,  8.934394663320126D-04, &
 9.983634077785508D-01, -9.445962296620326D-01,  4.424225813983324D-04, &
 9.983713812941385D-01, -6.766009567160710D-01,  9.089763434524134D-04 /)

  return
end
subroutine smr47 ( xyw )

!*****************************************************************************80
!
!! SMR47 returns the SMR rule of degree 47.
!
!  Discussion:
!
!    DEGREE: 47
!    SYMMETRY: (X,  Y),  (-X, -Y).
!    POINTS CARDINALITY: 396
!    NORM INF MOMS. RESIDUAL: 1.56234e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*396), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*396)

  xyw = (/ &
 -9.988860641396040D-01, -2.373189065242698D-01,  1.059226498023405D-03, &
 -9.984308298705356D-01,  6.810115040142974D-01,  8.742573242503645D-04, &
 -9.982849649115821D-01,  9.436218579698744D-01,  4.239310404841323D-04, &
 -9.975891711682796D-01, -9.308337785182597D-01,  5.005025838481359D-04, &
 -9.975758902464168D-01, -8.292104265892648D-01,  8.758182348185454D-04, &
 -9.975527094081703D-01, -6.722468138431469D-01,  1.228393951475139D-03, &
 -9.975229416008712D-01,  8.411146681674510D-01,  8.259054712338016D-04, &
 -9.974354703237893D-01, -9.972347569712511D-01,  1.178428627156954D-04, &
 -9.973323543291763D-01,  4.909591129622543D-01,  1.363609590112511D-03, &
 -9.971337685886393D-01,  7.632359805747738D-02,  1.695014196901724D-03, &
 -9.969508496154019D-01,  9.951320518801803D-01,  1.406624476607038D-04, &
 -9.967221454497780D-01,  2.967880150220837D-01,  1.788242723078713D-03, &
 -9.958488160214992D-01, -4.963853591618409D-01,  1.871218692254807D-03, &
 -9.922776511892646D-01, -3.473204119330540D-01,  2.073619684302503D-03, &
 -9.908388235274806D-01, -8.317660908501920D-02,  3.661061584693876D-03, &
 -9.904720670548077D-01, -9.710213211789278D-01,  8.475646284885832D-04, &
 -9.888702332586248D-01,  7.575946249394171D-01,  2.014228686820058D-03, &
 -9.874342455637046D-01,  9.765233090751630D-01,  8.334380630773419D-04, &
 -9.862543531528728D-01,  5.965690502576685D-01,  3.417223744136484D-03, &
 -9.858704720189189D-01,  9.012846007723281D-01,  1.872665686706367D-03, &
 -9.844078028285480D-01, -7.576106510429415D-01,  3.160151211848773D-03, &
 -9.842497345754406D-01, -8.869330623714193D-01,  2.084899867143594D-03, &
 -9.830502038887345D-01,  1.855914572695679D-01,  4.596336081266426D-03, &
 -9.817085463008139D-01,  4.080671844783566D-01,  4.517002995396259D-03, &
 -9.808958789729733D-01, -5.936214063681421D-01,  4.206620288925534D-03, &
 -9.763487274404036D-01,  8.040608258571258D-01,  1.735576449905203D-03, &
 -9.758618568064553D-01, -4.021500807907098D-01,  4.191420631437088D-03, &
 -9.739747222412156D-01, -2.170070835355472D-01,  5.848357083847142D-03, &
 -9.698875102419363D-01, -9.910520236356811D-01,  8.725558215646179D-04, &
 -9.668937072725421D-01,  9.958238219074350D-01,  5.454007647675571D-04, &
 -9.667753163257026D-01,  3.477910291429498D-02,  6.924394568068183D-03, &
 -9.629858793094620D-01, -9.381408744361764D-01,  2.554368802597983D-03, &
 -9.625096668136147D-01,  9.481536769647175D-01,  2.281103018635964D-03, &
 -9.621099147673235D-01,  6.897553564879744D-01,  5.294641784299885D-03, &
 -9.575259606392211D-01,  8.526222258903702D-01,  3.522351032086693D-03, &
 -9.565093211986069D-01, -8.285414929426780D-01,  4.524164566301950D-03, &
 -9.560668264177599D-01,  2.992407743127743D-01,  7.187486995447770D-03, &
 -9.551892905468934D-01,  5.215279150021472D-01,  6.895698107002057D-03, &
 -9.529413061166492D-01, -6.848663302380273D-01,  6.115869631822169D-03, &
 -9.499379163273817D-01, -4.990544089847970D-01,  7.157918511939649D-03, &
 -9.417225429447996D-01, -1.010399506491120D-01,  8.545115482104066D-03, &
 -9.376385227666459D-01, -3.149592118756698D-01,  8.640152266819899D-03, &
 -9.296009678982454D-01,  1.579161826917062D-01,  1.000831611323566D-02, &
 -9.294596181015237D-01,  9.813684731390790D-01,  1.920664927315008D-03, &
 -9.278797101416244D-01, -9.706959780392181D-01,  2.420070122891078D-03, &
 -9.250982605210959D-01,  7.735956141038276D-01,  6.643173932293495D-03, &
 -9.231065278766845D-01,  9.076886759912991D-01,  4.277169811976498D-03, &
 -9.217831985976003D-01, -9.985289666041468D-01,  5.078696283821862D-04, &
 -9.195935562112217D-01, -8.913327000110681D-01,  5.052649337869474D-03, &
 -9.181270575285391D-01,  4.122328505086459D-01,  9.601387120539102D-03, &
 -9.148831482219597D-01,  6.224206774261293D-01,  8.741538710357355D-03, &
 -9.106078414366331D-01, -7.633798877459725D-01,  7.390023577666990D-03, &
 -9.082567296294581D-01, -5.961320469495873D-01,  9.396878139328617D-03, &
 -8.956547894973423D-01, -1.969077394197896D-01,  1.052048363646446D-02, &
 -8.947837985257842D-01,  1.554349304099888D-02,  1.207505504176275D-02, &
 -8.934682220664112D-01, -4.216540388538755D-01,  1.073747532386832D-02, &
 -8.887805555572472D-01,  9.980469645264131D-01,  6.927987848988626D-04, &
 -8.788480167168854D-01,  2.792330855544344D-01,  1.282453595081661D-02, &
 -8.781614570655271D-01,  9.532957838212304D-01,  3.986319116448455D-03, &
 -8.763285336755390D-01,  8.465920091250118D-01,  7.228076122988736D-03, &
 -8.707970024861261D-01, -9.370668393694276D-01,  4.607127648721668D-03, &
 -8.676827987392443D-01,  5.159125990270553D-01,  1.149515499866792D-02, &
 -8.651527837557776D-01, -9.866988624485060D-01,  2.118506810134428D-03, &
 -8.624098290914860D-01,  7.126189995166746D-01,  9.861047155006141D-03, &
 -8.592237506008711D-01, -8.341324721077372D-01,  7.928559898856604D-03, &
 -8.522596697975072D-01, -6.840670787785538D-01,  1.062952046635244D-02, &
 -8.422263654558482D-01, -3.015292326049363D-01,  1.287800406757572D-02, &
 -8.373962094750010D-01, -5.186387354716220D-01,  1.230119470881243D-02, &
 -8.369983523769275D-01,  1.347222940319437D-01,  1.460708731761451D-02, &
 -8.357310902097985D-01, -9.723800805043467D-02,  1.374148019748794D-02, &
 -8.269374328956414D-01,  9.850869495918245D-01,  2.648428928686930D-03, &
 -8.179672372442700D-01,  9.076223036675563D-01,  6.892206214578204D-03, &
 -8.148639002101447D-01,  3.932890823416910D-01,  1.520502153610768D-02, &
 -8.058634520423256D-01,  6.117159879145377D-01,  1.279254088338618D-02, &
 -8.004833550779242D-01,  7.919528617574970D-01,  1.006437035257496D-02, &
 -7.983956784496398D-01, -8.914942533713631D-01,  7.267362334258530D-03, &
 -7.966190004094728D-01, -9.968334127996725D-01,  1.036781499468538D-03, &
 -7.957314634069883D-01, -9.607527680221649D-01,  4.059074074883998D-03, &
 -7.862399052534020D-01, -7.635989572508247D-01,  1.120659033007899D-02, &
 -7.766600189797701D-01, -4.041663776132322D-01,  1.451699415444131D-02, &
 -7.752582668662442D-01,  1.137400097769025D-02,  1.483822376274713D-02, &
 -7.718688019814154D-01, -6.087164044214350D-01,  1.281755532683666D-02, &
 -7.664905651113335D-01, -2.123608448367788D-01,  1.521536630069221D-02, &
 -7.658473206792390D-01,  2.470075232375816D-01,  1.699291241018386D-02, &
 -7.570188231121615D-01,  9.562983797766917D-01,  5.269367781364454D-03, &
 -7.480114600555077D-01,  9.967592933390678D-01,  1.243409201000067D-03, &
 -7.391128608011459D-01,  5.011842297262301D-01,  1.677675545049549D-02, &
 -7.344946046482385D-01,  7.002770707813594D-01,  1.339498521201928D-02, &
 -7.331498071508773D-01,  8.596337901924931D-01,  9.291892667177389D-03, &
 -7.258177950289607D-01, -9.805030048690940D-01,  2.984765845250313D-03, &
 -7.157802360889779D-01, -8.336762449322652D-01,  1.012482548177606D-02, &
 -7.072078419693140D-01, -9.234919823555481D-01,  6.841723221210096D-03, &
 -7.053541655207917D-01,  1.073889554567113D-01,  1.602910466636588D-02, &
 -7.052090371098516D-01, -1.119584635184487D-01,  1.420955705467702D-02, &
 -7.011205173485494D-01, -5.092216197809605D-01,  1.524066877662247D-02, &
 -6.978846262070233D-01, -3.414874362228780D-01,  1.076367185856306D-02, &
 -6.960765595225886D-01, -6.880190026120154D-01,  1.357698223373921D-02, &
 -6.857267249496155D-01,  3.551782556666386D-01,  1.835639998551701D-02, &
 -6.718996078310749D-01,  9.187863739753772D-01,  7.227260623084868D-03, &
 -6.688694553842166D-01, -9.962634726340323D-01,  1.299102531809083D-03, &
 -6.680438282278643D-01,  9.807419818799499D-01,  3.734416537582896D-03, &
 -6.562162894928593D-01,  7.813381408111647D-01,  1.314356882014099D-02, &
 -6.539068033827653D-01,  6.025223400436617D-01,  1.747705500021484D-02, &
 -6.508182477278392D-01, -2.656608209143835D-01,  1.482527461108588D-02, &
 -6.371638788293418D-01, -2.566889805750509D-02,  1.632793168239773D-02, &
 -6.291434547685805D-01,  2.023189788534562D-01,  1.795321661628254D-02, &
 -6.285276641730166D-01, -9.557558207146426D-01,  5.222692046521106D-03, &
 -6.243785655726330D-01, -7.677131072866508D-01,  1.213021892933221D-02, &
 -6.153035647870176D-01, -4.406604449329651D-01,  1.315774503238905D-02, &
 -6.101810791749840D-01, -8.730802950223981D-01,  9.810988876956505D-03, &
 -6.058276827683423D-01,  9.969104641392599D-01,  1.067957112281833D-03, &
 -6.050277497663656D-01, -5.991789076131454D-01,  1.720383270245636D-02, &
 -6.010977897838671D-01,  4.554853809841653D-01,  1.796395971673612D-02, &
 -5.862984837774434D-01,  8.612555834742029D-01,  1.061579515310207D-02, &
 -5.768270943940413D-01,  9.454129989500087D-01,  5.910967881352096D-03, &
 -5.750197447578449D-01, -9.850659057962179D-01,  3.114356971775973D-03, &
 -5.702248508469594D-01, -1.587490643869126D-01,  2.016275464017900D-02, &
 -5.631550904449273D-01,  6.970949553808866D-01,  1.710763838261802D-02, &
 -5.506357337723290D-01,  7.306393615078814D-02,  2.031057229536963D-02, &
 -5.479124054422221D-01,  9.758854402340520D-01,  2.479427756255549D-03, &
 -5.470345570052684D-01, -3.529314403402576D-01,  1.664817380826956D-02, &
 -5.440713379383119D-01,  3.006296094832735D-01,  1.989408266036578D-02, &
 -5.285706246264491D-01, -9.197245554796940D-01,  7.615187153561376D-03, &
 -5.252972416610120D-01, -7.002954752760404D-01,  1.432680033700977D-02, &
 -5.217907594059557D-01,  5.400272741858242D-01,  1.528186481468926D-02, &
 -5.089619423128140D-01, -5.059056477462620D-01,  1.501904216932111D-02, &
 -5.078115420044046D-01, -8.111235694116724D-01,  1.195709426495920D-02, &
 -4.969587258871904D-01,  8.017211919716127D-01,  1.201247603705383D-02, &
 -4.968199837157944D-01, -9.980749914312900D-01,  1.166586821104947D-03, &
 -4.959353636879837D-01,  9.946393860645547D-01,  1.686433249616119D-03, &
 -4.730248940935154D-01,  9.059843124829209D-01,  9.865671699789467D-03, &
 -4.695306511179968D-01, -4.012372094823102D-02,  2.020512288389702D-02, &
 -4.684490949568364D-01, -9.635515324500772D-01,  5.666260551094232D-03, &
 -4.662090360870560D-01, -2.413919218504774D-01,  1.957608008114237D-02, &
 -4.507847851393222D-01,  1.821342046391818D-01,  2.224205809945713D-02, &
 -4.504408392645829D-01,  6.157745693132981D-01,  1.569673318119340D-02, &
 -4.495408838986024D-01,  3.997386347652018D-01,  2.144177767812802D-02, &
 -4.494943818222650D-01, -6.112785695796794D-01,  1.388627516731650D-02, &
 -4.395708346821193D-01,  9.678474058357293D-01,  5.077033132428894D-03, &
 -4.321562916730266D-01, -4.268668982636962D-01,  1.400797089606991D-02, &
 -4.307037407356070D-01, -8.725201945024389D-01,  9.278527778245265D-03, &
 -4.168964278432936D-01,  7.450104874315282D-01,  1.219395278659381D-02, &
 -3.874730976670355D-01, -7.119235377808760D-01,  1.294126106740710D-02, &
 -3.805985421896226D-01, -1.079747078834100D-01,  1.723299400705402D-02, &
 -3.785199405738555D-01, -9.876371778523105D-01,  3.684675193016349D-03, &
 -3.775068034484436D-01, -7.905403853269520D-01,  1.033847725718908D-02, &
 -3.734584665565494D-01,  8.558256846730252D-01,  1.067328374347898D-02, &
 -3.655903961329190D-01, -3.266752580040530D-01,  1.908074633576273D-02, &
 -3.612230477553254D-01, -9.267019889154319D-01,  8.280449836489664D-03, &
 -3.611495490628304D-01,  8.388928253840910D-02,  1.815199832909277D-02, &
 -3.544575658069047D-01,  9.925869383206430D-01,  2.882266155274377D-03, &
 -3.523952800132275D-01,  5.022785378730914D-01,  2.168828448212548D-02, &
 -3.522817929012660D-01, -5.348680504702295D-01,  1.723090656172525D-02, &
 -3.413724045500098D-01,  2.868713230288657D-01,  2.351641706301941D-02, &
 -3.376590699608993D-01,  6.730406677101659D-01,  1.510911918727652D-02, &
 -3.363380915928801D-01,  9.381057218930409D-01,  8.380841067557760D-03, &
 -3.054308661239457D-01,  8.161565054705295D-01,  7.871489934535132D-03, &
 -2.911339093732676D-01, -1.871048424026023D-01,  2.156968793388712D-02, &
 -2.909958284611122D-01, -6.500113551280087D-01,  1.132941951059163D-02, &
 -2.866402453607698D-01,  2.784499095490639D-02,  1.703845446866903D-02, &
 -2.781698350684899D-01, -8.610025448278995D-01,  1.244171703315526D-02, &
 -2.687238931740498D-01, -9.617339692504230D-01,  6.543696094444514D-03, &
 -2.646563355865805D-01, -9.979985340168123D-01,  1.301749448971297D-03, &
 -2.616214122538829D-01, -4.278716843777844D-01,  2.187272120725739D-02, &
 -2.497917994325549D-01,  3.866154000884120D-01,  1.753377798849834D-02, &
 -2.407157278594363D-01, -7.680657426891803D-01,  1.428720407246563D-02, &
 -2.382131093495637D-01, -6.122566385532253D-01,  1.138418395778662D-02, &
 -2.374961081733647D-01,  5.896199791481574D-01,  1.985721981262199D-02, &
 -2.368860581759901D-01,  9.742068851942397D-01,  5.931341045087387D-03, &
 -2.366505826732369D-01,  7.562399666814275D-01,  1.546898361371274D-02, &
 -2.265278487364104D-01,  8.931328439685737D-01,  1.159210102063848D-02, &
 -2.209747362024745D-01,  1.884122436616868D-01,  2.568250169412151D-02, &
 -1.950442902755774D-01, -2.811626958807719D-01,  2.058667944338659D-02, &
 -1.887947955157539D-01, -5.488181437676766D-02,  2.412519217314849D-02, &
 -1.874042727370219D-01,  9.985870256064080D-01,  1.332128559441302D-03, &
 -1.811513910117983D-01,  4.469187039158583D-01,  1.435518386826230D-02, &
 -1.692436690540040D-01, -9.152720547405664D-01,  1.114841347262132D-02, &
 -1.607696194805920D-01, -9.844697592632383D-01,  4.214417557364065D-03, &
 -1.460884104029156D-01, -5.230400107152748D-01,  2.273359239371198D-02, &
 -1.354171446842564D-01, -6.995287211759852D-01,  1.740459683896718D-02, &
 -1.250146267020614D-01,  6.790330316810501D-01,  1.950903133230569D-02, &
 -1.229292048107615D-01,  8.290159292480069D-01,  1.515992221010223D-02, &
 -1.200344097155717D-01,  9.404504623511184D-01,  9.138948896183798D-03, &
 -1.126043088126702D-01,  1.039969994189184D-01,  1.948734738016160D-02, &
 -1.098342248198241D-01, -8.290702847459517D-01,  1.543693536615040D-02, &
 -1.062616019354709D-01, -3.544622956747235D-01,  1.741587972206798D-02, &
 -1.054516940373236D-01,  3.111820934533777D-01,  2.489503857532097D-02, &
 -9.124174526481066D-02, -1.510286762878782D-01,  2.131519019223245D-02, &
 -8.948050655152551D-02,  5.281952357331835D-01,  2.017160434945273D-02, &
 -6.799375882563330D-02,  9.851240571486062D-01,  4.627482783799522D-03, &
 -5.194154553379345D-02, -9.566399970108974D-01,  8.026920571106742D-03, &
 -5.040318666219792D-02, -9.971099379170584D-01,  1.609275224242142D-03, &
 -3.734302745905130D-02,  3.768691967771551D-02,  1.732149882179709D-02, &
 -2.601415514808519D-02, -6.149995401127395D-01,  2.079979843878833D-02, &
 -1.166789681045224D-02, -4.291998918000027D-01,  2.197612010503848D-02, &
 -8.044650945002080D-03,  7.582402904728758D-01,  1.762484494418019D-02, &
 -7.099519309103105D-03,  8.900638838242294D-01,  1.286870713319578D-02, &
 -1.955928951485019D-03, -2.282207401564467D-01,  2.008962148147744D-02, &
 1.955928951485019D-03,  2.282207401564467D-01,  2.008962148147744D-02, &
 7.099519309103105D-03, -8.900638838242294D-01,  1.286870713319578D-02, &
 8.044650945002080D-03, -7.582402904728758D-01,  1.762484494418019D-02, &
 1.166789681045224D-02,  4.291998918000027D-01,  2.197612010503848D-02, &
 2.601415514808519D-02,  6.149995401127395D-01,  2.079979843878833D-02, &
 3.734302745905130D-02, -3.768691967771551D-02,  1.732149882179709D-02, &
 5.040318666219792D-02,  9.971099379170584D-01,  1.609275224242142D-03, &
 5.194154553379345D-02,  9.566399970108974D-01,  8.026920571106742D-03, &
 6.799375882563330D-02, -9.851240571486062D-01,  4.627482783799522D-03, &
 8.948050655152551D-02, -5.281952357331835D-01,  2.017160434945273D-02, &
 9.124174526481066D-02,  1.510286762878782D-01,  2.131519019223245D-02, &
 1.054516940373236D-01, -3.111820934533777D-01,  2.489503857532097D-02, &
 1.062616019354709D-01,  3.544622956747235D-01,  1.741587972206798D-02, &
 1.098342248198241D-01,  8.290702847459517D-01,  1.543693536615040D-02, &
 1.126043088126702D-01, -1.039969994189184D-01,  1.948734738016160D-02, &
 1.200344097155717D-01, -9.404504623511184D-01,  9.138948896183798D-03, &
 1.229292048107615D-01, -8.290159292480069D-01,  1.515992221010223D-02, &
 1.250146267020614D-01, -6.790330316810501D-01,  1.950903133230569D-02, &
 1.354171446842564D-01,  6.995287211759852D-01,  1.740459683896718D-02, &
 1.460884104029156D-01,  5.230400107152748D-01,  2.273359239371198D-02, &
 1.607696194805920D-01,  9.844697592632383D-01,  4.214417557364065D-03, &
 1.692436690540040D-01,  9.152720547405664D-01,  1.114841347262132D-02, &
 1.811513910117983D-01, -4.469187039158583D-01,  1.435518386826230D-02, &
 1.874042727370219D-01, -9.985870256064080D-01,  1.332128559441302D-03, &
 1.887947955157539D-01,  5.488181437676766D-02,  2.412519217314849D-02, &
 1.950442902755774D-01,  2.811626958807719D-01,  2.058667944338659D-02, &
 2.209747362024745D-01, -1.884122436616868D-01,  2.568250169412151D-02, &
 2.265278487364104D-01, -8.931328439685737D-01,  1.159210102063848D-02, &
 2.366505826732369D-01, -7.562399666814275D-01,  1.546898361371274D-02, &
 2.368860581759901D-01, -9.742068851942397D-01,  5.931341045087387D-03, &
 2.374961081733647D-01, -5.896199791481574D-01,  1.985721981262199D-02, &
 2.382131093495637D-01,  6.122566385532253D-01,  1.138418395778662D-02, &
 2.407157278594363D-01,  7.680657426891803D-01,  1.428720407246563D-02, &
 2.497917994325549D-01, -3.866154000884120D-01,  1.753377798849834D-02, &
 2.616214122538829D-01,  4.278716843777844D-01,  2.187272120725739D-02, &
 2.646563355865805D-01,  9.979985340168123D-01,  1.301749448971297D-03, &
 2.687238931740498D-01,  9.617339692504230D-01,  6.543696094444514D-03, &
 2.781698350684899D-01,  8.610025448278995D-01,  1.244171703315526D-02, &
 2.866402453607698D-01, -2.784499095490639D-02,  1.703845446866903D-02, &
 2.909958284611122D-01,  6.500113551280087D-01,  1.132941951059163D-02, &
 2.911339093732676D-01,  1.871048424026023D-01,  2.156968793388712D-02, &
 3.054308661239457D-01, -8.161565054705295D-01,  7.871489934535132D-03, &
 3.363380915928801D-01, -9.381057218930409D-01,  8.380841067557760D-03, &
 3.376590699608993D-01, -6.730406677101659D-01,  1.510911918727652D-02, &
 3.413724045500098D-01, -2.868713230288657D-01,  2.351641706301941D-02, &
 3.522817929012660D-01,  5.348680504702295D-01,  1.723090656172525D-02, &
 3.523952800132275D-01, -5.022785378730914D-01,  2.168828448212548D-02, &
 3.544575658069047D-01, -9.925869383206430D-01,  2.882266155274377D-03, &
 3.611495490628304D-01, -8.388928253840910D-02,  1.815199832909277D-02, &
 3.612230477553254D-01,  9.267019889154319D-01,  8.280449836489664D-03, &
 3.655903961329190D-01,  3.266752580040530D-01,  1.908074633576273D-02, &
 3.734584665565494D-01, -8.558256846730252D-01,  1.067328374347898D-02, &
 3.775068034484436D-01,  7.905403853269520D-01,  1.033847725718908D-02, &
 3.785199405738555D-01,  9.876371778523105D-01,  3.684675193016349D-03, &
 3.805985421896226D-01,  1.079747078834100D-01,  1.723299400705402D-02, &
 3.874730976670355D-01,  7.119235377808760D-01,  1.294126106740710D-02, &
 4.168964278432936D-01, -7.450104874315282D-01,  1.219395278659381D-02, &
 4.307037407356070D-01,  8.725201945024389D-01,  9.278527778245265D-03, &
 4.321562916730266D-01,  4.268668982636962D-01,  1.400797089606991D-02, &
 4.395708346821193D-01, -9.678474058357293D-01,  5.077033132428894D-03, &
 4.494943818222650D-01,  6.112785695796794D-01,  1.388627516731650D-02, &
 4.495408838986024D-01, -3.997386347652018D-01,  2.144177767812802D-02, &
 4.504408392645829D-01, -6.157745693132981D-01,  1.569673318119340D-02, &
 4.507847851393222D-01, -1.821342046391818D-01,  2.224205809945713D-02, &
 4.662090360870560D-01,  2.413919218504774D-01,  1.957608008114237D-02, &
 4.684490949568364D-01,  9.635515324500772D-01,  5.666260551094232D-03, &
 4.695306511179968D-01,  4.012372094823102D-02,  2.020512288389702D-02, &
 4.730248940935154D-01, -9.059843124829209D-01,  9.865671699789467D-03, &
 4.959353636879837D-01, -9.946393860645547D-01,  1.686433249616119D-03, &
 4.968199837157944D-01,  9.980749914312900D-01,  1.166586821104947D-03, &
 4.969587258871904D-01, -8.017211919716127D-01,  1.201247603705383D-02, &
 5.078115420044046D-01,  8.111235694116724D-01,  1.195709426495920D-02, &
 5.089619423128140D-01,  5.059056477462620D-01,  1.501904216932111D-02, &
 5.217907594059557D-01, -5.400272741858242D-01,  1.528186481468926D-02, &
 5.252972416610120D-01,  7.002954752760404D-01,  1.432680033700977D-02, &
 5.285706246264491D-01,  9.197245554796940D-01,  7.615187153561376D-03, &
 5.440713379383119D-01, -3.006296094832735D-01,  1.989408266036578D-02, &
 5.470345570052684D-01,  3.529314403402576D-01,  1.664817380826956D-02, &
 5.479124054422221D-01, -9.758854402340520D-01,  2.479427756255549D-03, &
 5.506357337723290D-01, -7.306393615078814D-02,  2.031057229536963D-02, &
 5.631550904449273D-01, -6.970949553808866D-01,  1.710763838261802D-02, &
 5.702248508469594D-01,  1.587490643869126D-01,  2.016275464017900D-02, &
 5.750197447578449D-01,  9.850659057962179D-01,  3.114356971775973D-03, &
 5.768270943940413D-01, -9.454129989500087D-01,  5.910967881352096D-03, &
 5.862984837774434D-01, -8.612555834742029D-01,  1.061579515310207D-02, &
 6.010977897838671D-01, -4.554853809841653D-01,  1.796395971673612D-02, &
 6.050277497663656D-01,  5.991789076131454D-01,  1.720383270245636D-02, &
 6.058276827683423D-01, -9.969104641392599D-01,  1.067957112281833D-03, &
 6.101810791749840D-01,  8.730802950223981D-01,  9.810988876956505D-03, &
 6.153035647870176D-01,  4.406604449329651D-01,  1.315774503238905D-02, &
 6.243785655726330D-01,  7.677131072866508D-01,  1.213021892933221D-02, &
 6.285276641730166D-01,  9.557558207146426D-01,  5.222692046521106D-03, &
 6.291434547685805D-01, -2.023189788534562D-01,  1.795321661628254D-02, &
 6.371638788293418D-01,  2.566889805750509D-02,  1.632793168239773D-02, &
 6.508182477278392D-01,  2.656608209143835D-01,  1.482527461108588D-02, &
 6.539068033827653D-01, -6.025223400436617D-01,  1.747705500021484D-02, &
 6.562162894928593D-01, -7.813381408111647D-01,  1.314356882014099D-02, &
 6.680438282278643D-01, -9.807419818799499D-01,  3.734416537582896D-03, &
 6.688694553842166D-01,  9.962634726340323D-01,  1.299102531809083D-03, &
 6.718996078310749D-01, -9.187863739753772D-01,  7.227260623084868D-03, &
 6.857267249496155D-01, -3.551782556666386D-01,  1.835639998551701D-02, &
 6.960765595225886D-01,  6.880190026120154D-01,  1.357698223373921D-02, &
 6.978846262070233D-01,  3.414874362228780D-01,  1.076367185856306D-02, &
 7.011205173485494D-01,  5.092216197809605D-01,  1.524066877662247D-02, &
 7.052090371098516D-01,  1.119584635184487D-01,  1.420955705467702D-02, &
 7.053541655207917D-01, -1.073889554567113D-01,  1.602910466636588D-02, &
 7.072078419693140D-01,  9.234919823555481D-01,  6.841723221210096D-03, &
 7.157802360889779D-01,  8.336762449322652D-01,  1.012482548177606D-02, &
 7.258177950289607D-01,  9.805030048690940D-01,  2.984765845250313D-03, &
 7.331498071508773D-01, -8.596337901924931D-01,  9.291892667177389D-03, &
 7.344946046482385D-01, -7.002770707813594D-01,  1.339498521201928D-02, &
 7.391128608011459D-01, -5.011842297262301D-01,  1.677675545049549D-02, &
 7.480114600555077D-01, -9.967592933390678D-01,  1.243409201000067D-03, &
 7.570188231121615D-01, -9.562983797766917D-01,  5.269367781364454D-03, &
 7.658473206792390D-01, -2.470075232375816D-01,  1.699291241018386D-02, &
 7.664905651113335D-01,  2.123608448367788D-01,  1.521536630069221D-02, &
 7.718688019814154D-01,  6.087164044214350D-01,  1.281755532683666D-02, &
 7.752582668662442D-01, -1.137400097769025D-02,  1.483822376274713D-02, &
 7.766600189797701D-01,  4.041663776132322D-01,  1.451699415444131D-02, &
 7.862399052534020D-01,  7.635989572508247D-01,  1.120659033007899D-02, &
 7.957314634069883D-01,  9.607527680221649D-01,  4.059074074883998D-03, &
 7.966190004094728D-01,  9.968334127996725D-01,  1.036781499468538D-03, &
 7.983956784496398D-01,  8.914942533713631D-01,  7.267362334258530D-03, &
 8.004833550779242D-01, -7.919528617574970D-01,  1.006437035257496D-02, &
 8.058634520423256D-01, -6.117159879145377D-01,  1.279254088338618D-02, &
 8.148639002101447D-01, -3.932890823416910D-01,  1.520502153610768D-02, &
 8.179672372442700D-01, -9.076223036675563D-01,  6.892206214578204D-03, &
 8.269374328956414D-01, -9.850869495918245D-01,  2.648428928686930D-03, &
 8.357310902097985D-01,  9.723800805043467D-02,  1.374148019748794D-02, &
 8.369983523769275D-01, -1.347222940319437D-01,  1.460708731761451D-02, &
 8.373962094750010D-01,  5.186387354716220D-01,  1.230119470881243D-02, &
 8.422263654558482D-01,  3.015292326049363D-01,  1.287800406757572D-02, &
 8.522596697975072D-01,  6.840670787785538D-01,  1.062952046635244D-02, &
 8.592237506008711D-01,  8.341324721077372D-01,  7.928559898856604D-03, &
 8.624098290914860D-01, -7.126189995166746D-01,  9.861047155006141D-03, &
 8.651527837557776D-01,  9.866988624485060D-01,  2.118506810134428D-03, &
 8.676827987392443D-01, -5.159125990270553D-01,  1.149515499866792D-02, &
 8.707970024861261D-01,  9.370668393694276D-01,  4.607127648721668D-03, &
 8.763285336755390D-01, -8.465920091250118D-01,  7.228076122988736D-03, &
 8.781614570655271D-01, -9.532957838212304D-01,  3.986319116448455D-03, &
 8.788480167168854D-01, -2.792330855544344D-01,  1.282453595081661D-02, &
 8.887805555572472D-01, -9.980469645264131D-01,  6.927987848988626D-04, &
 8.934682220664112D-01,  4.216540388538755D-01,  1.073747532386832D-02, &
 8.947837985257842D-01, -1.554349304099888D-02,  1.207505504176275D-02, &
 8.956547894973423D-01,  1.969077394197896D-01,  1.052048363646446D-02, &
 9.082567296294581D-01,  5.961320469495873D-01,  9.396878139328617D-03, &
 9.106078414366331D-01,  7.633798877459725D-01,  7.390023577666990D-03, &
 9.148831482219597D-01, -6.224206774261293D-01,  8.741538710357355D-03, &
 9.181270575285391D-01, -4.122328505086459D-01,  9.601387120539102D-03, &
 9.195935562112217D-01,  8.913327000110681D-01,  5.052649337869474D-03, &
 9.217831985976003D-01,  9.985289666041468D-01,  5.078696283821862D-04, &
 9.231065278766845D-01, -9.076886759912991D-01,  4.277169811976498D-03, &
 9.250982605210959D-01, -7.735956141038276D-01,  6.643173932293495D-03, &
 9.278797101416244D-01,  9.706959780392181D-01,  2.420070122891078D-03, &
 9.294596181015237D-01, -9.813684731390790D-01,  1.920664927315008D-03, &
 9.296009678982454D-01, -1.579161826917062D-01,  1.000831611323566D-02, &
 9.376385227666459D-01,  3.149592118756698D-01,  8.640152266819899D-03, &
 9.417225429447996D-01,  1.010399506491120D-01,  8.545115482104066D-03, &
 9.499379163273817D-01,  4.990544089847970D-01,  7.157918511939649D-03, &
 9.529413061166492D-01,  6.848663302380273D-01,  6.115869631822169D-03, &
 9.551892905468934D-01, -5.215279150021472D-01,  6.895698107002057D-03, &
 9.560668264177599D-01, -2.992407743127743D-01,  7.187486995447770D-03, &
 9.565093211986069D-01,  8.285414929426780D-01,  4.524164566301950D-03, &
 9.575259606392211D-01, -8.526222258903702D-01,  3.522351032086693D-03, &
 9.621099147673235D-01, -6.897553564879744D-01,  5.294641784299885D-03, &
 9.625096668136147D-01, -9.481536769647175D-01,  2.281103018635964D-03, &
 9.629858793094620D-01,  9.381408744361764D-01,  2.554368802597983D-03, &
 9.667753163257026D-01, -3.477910291429498D-02,  6.924394568068183D-03, &
 9.668937072725421D-01, -9.958238219074350D-01,  5.454007647675571D-04, &
 9.698875102419363D-01,  9.910520236356811D-01,  8.725558215646179D-04, &
 9.739747222412156D-01,  2.170070835355472D-01,  5.848357083847142D-03, &
 9.758618568064553D-01,  4.021500807907098D-01,  4.191420631437088D-03, &
 9.763487274404036D-01, -8.040608258571258D-01,  1.735576449905203D-03, &
 9.808958789729733D-01,  5.936214063681421D-01,  4.206620288925534D-03, &
 9.817085463008139D-01, -4.080671844783566D-01,  4.517002995396259D-03, &
 9.830502038887345D-01, -1.855914572695679D-01,  4.596336081266426D-03, &
 9.842497345754406D-01,  8.869330623714193D-01,  2.084899867143594D-03, &
 9.844078028285480D-01,  7.576106510429415D-01,  3.160151211848773D-03, &
 9.858704720189189D-01, -9.012846007723281D-01,  1.872665686706367D-03, &
 9.862543531528728D-01, -5.965690502576685D-01,  3.417223744136484D-03, &
 9.874342455637046D-01, -9.765233090751630D-01,  8.334380630773419D-04, &
 9.888702332586248D-01, -7.575946249394171D-01,  2.014228686820058D-03, &
 9.904720670548077D-01,  9.710213211789278D-01,  8.475646284885832D-04, &
 9.908388235274806D-01,  8.317660908501920D-02,  3.661061584693876D-03, &
 9.922776511892646D-01,  3.473204119330540D-01,  2.073619684302503D-03, &
 9.958488160214992D-01,  4.963853591618409D-01,  1.871218692254807D-03, &
 9.967221454497780D-01, -2.967880150220837D-01,  1.788242723078713D-03, &
 9.969508496154019D-01, -9.951320518801803D-01,  1.406624476607038D-04, &
 9.971337685886393D-01, -7.632359805747738D-02,  1.695014196901724D-03, &
 9.973323543291763D-01, -4.909591129622543D-01,  1.363609590112511D-03, &
 9.974354703237893D-01,  9.972347569712511D-01,  1.178428627156954D-04, &
 9.975229416008712D-01, -8.411146681674510D-01,  8.259054712338016D-04, &
 9.975527094081703D-01,  6.722468138431469D-01,  1.228393951475139D-03, &
 9.975758902464168D-01,  8.292104265892648D-01,  8.758182348185454D-04, &
 9.975891711682796D-01,  9.308337785182597D-01,  5.005025838481359D-04, &
 9.982849649115821D-01, -9.436218579698744D-01,  4.239310404841323D-04, &
 9.984308298705356D-01, -6.810115040142974D-01,  8.742573242503645D-04, &
 9.988860641396040D-01,  2.373189065242698D-01,  1.059226498023405D-03 /)

  return
end
subroutine smr48 ( xyw )

!*****************************************************************************80
!
!! SMR48 returns the SMR rule of degree 48.
!
!  Discussion:
!
!    DEGREE: 48
!    POINTS CARDINALITY: 417
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*417), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*417)

  xyw = (/ &
 -9.990552580516567D-01, -7.479254608809505D-01,  4.845844320013029D-04, &
 -9.988760883998153D-01,  2.568938088751835D-01,  8.877453242046397D-04, &
 -9.986091048294213D-01,  1.475403353286808D-02,  8.040816649406732D-04, &
 -9.985122425173576D-01, -5.059783159128129D-01,  1.125983578847775D-03, &
 -9.984530690329705D-01, -9.196817917920462D-01,  3.211292464713594D-04, &
 -9.982842816947866D-01,  4.893019742012896D-01,  8.282364851453019D-04, &
 -9.982520488850405D-01,  9.821235324863609D-01,  2.422927481790814D-04, &
 -9.973280389800840D-01,  6.756520485620866D-01,  8.237504025536671D-04, &
 -9.967449468871785D-01,  7.716874829711365D-01,  7.452334436535652D-04, &
 -9.964365335122727D-01,  8.681515615582738D-01,  8.902528711682726D-04, &
 -9.962098577937705D-01, -2.857266397360828D-01,  1.937344458762579D-03, &
 -9.957795050622651D-01, -9.876433080318017D-01,  3.429533984696887D-04, &
 -9.946778211699915D-01, -8.474215921378356D-01,  1.194026452801634D-03, &
 -9.945109495244129D-01, -6.711427250073166D-01,  1.419745783388957D-03, &
 -9.940837925205557D-01, -1.077708304941221D-01,  2.223464254615778D-03, &
 -9.925155388861520D-01,  9.388248000765870D-01,  1.047480811500816D-03, &
 -9.919901944290620D-01,  5.686557912949334D-01,  1.838793597622181D-03, &
 -9.917306363878621D-01, -9.478395921965526D-01,  7.802173870853395D-04, &
 -9.910822911638744D-01,  1.331031266923891D-01,  2.938508672222513D-03, &
 -9.908515335539425D-01,  3.685202933287459D-01,  2.830526597142672D-03, &
 -9.866307668467350D-01,  9.966272831969996D-01,  2.933195451028031D-04, &
 -9.858792923413487D-01, -4.118290444180076D-01,  3.755509131978820D-03, &
 -9.855194095112306D-01,  7.159397591374761D-01,  1.535917055011706D-03, &
 -9.837772596137903D-01, -5.934253159283669D-01,  3.377108351701475D-03, &
 -9.819497692855043D-01, -7.782643779166490D-01,  2.756877484994091D-03, &
 -9.812266425695817D-01,  8.130580129104829D-01,  2.309363670601080D-03, &
 -9.771749693182564D-01, -9.984960207754501D-01,  2.822482441259009D-04, &
 -9.763974116368401D-01, -1.934951329958478D-01,  5.027497830243744D-03, &
 -9.759936629550091D-01, -8.954485094924929D-01,  2.449068285191341D-03, &
 -9.754641485200377D-01,  8.434179079015775D-03,  5.273299242251507D-03, &
 -9.741421449181825D-01,  6.292753411868561D-01,  3.568019735683563D-03, &
 -9.730819722375790D-01,  9.724521292180650D-01,  1.382948896073604D-03, &
 -9.730789870204469D-01,  2.472883400161374D-01,  5.460293273811428D-03, &
 -9.726640066871888D-01,  4.651672305117452D-01,  4.813551654491207D-03, &
 -9.717010087770350D-01, -9.703771901004872D-01,  1.394234729269292D-03, &
 -9.714960642729723D-01,  8.970281595932642D-01,  2.562951198781977D-03, &
 -9.617362473444955D-01, -7.027703241908005D-01,  4.605971076568484D-03, &
 -9.607210672269872D-01, -3.322709269921182D-01,  5.431302361324639D-03, &
 -9.602445514242340D-01,  7.612260341568599D-01,  2.456698577190253D-03, &
 -9.579948900288462D-01, -5.112746901351274D-01,  6.253400316621933D-03, &
 -9.484290775926218D-01, -8.341736274933066D-01,  4.531225726400182D-03, &
 -9.451917183607923D-01,  1.238808781931126D-01,  8.201814840229081D-03, &
 -9.432653194808177D-01, -8.861458353897265D-02,  8.008713660300900D-03, &
 -9.428586367673794D-01,  9.934004622465014D-01,  9.547156202731789D-04, &
 -9.428418829683745D-01,  7.043511955026499D-01,  4.669981461123601D-03, &
 -9.427846854068982D-01,  3.530751008963562D-01,  7.832254190109047D-03, &
 -9.414741499351150D-01,  5.507528104239781D-01,  6.583790177049798D-03, &
 -9.405199230043805D-01, -9.336896767870310D-01,  3.192075832607225D-03, &
 -9.398430171859361D-01,  9.410585382180106D-01,  2.918746684002447D-03, &
 -9.380601617332789D-01,  8.443007256893251D-01,  4.531934577547019D-03, &
 -9.357722262152627D-01, -9.892798298875611D-01,  1.357757734504045D-03, &
 -9.297135605148458D-01, -6.291547793730226D-01,  6.754868314277823D-03, &
 -9.287300178800064D-01, -2.543930308185366D-01,  7.243849160815757D-03, &
 -9.161728844949248D-01, -4.239962588280450D-01,  9.299369071546468D-03, &
 -9.122999452276054D-01, -7.650962839278904D-01,  6.505328730774483D-03, &
 -9.027195651058045D-01,  2.343213824631600D-01,  1.070153334345670D-02, &
 -9.002481970024863D-01,  1.787948642362641D-02,  1.028208803766175D-02, &
 -8.994716034464636D-01,  4.509467480279049D-01,  9.722518509241976D-03, &
 -8.993299181171596D-01,  6.366994301022654D-01,  8.088190471646505D-03, &
 -8.989185508841521D-01,  9.746279357779196D-01,  2.489656257649104D-03, &
 -8.973598832577063D-01, -8.839606479669895D-01,  5.558455108410310D-03, &
 -8.960324839944227D-01,  7.780412959093933D-01,  6.945480690212927D-03, &
 -8.937261594542628D-01,  8.990377097685573D-01,  4.960137962212837D-03, &
 -8.894524278225060D-01, -9.645087195310335D-01,  3.234691525597815D-03, &
 -8.852845185346627D-01, -1.644249224842236D-01,  1.054311506523360D-02, &
 -8.832749949602599D-01, -5.540463681956116D-01,  9.519966984097020D-03, &
 -8.763116175834303D-01, -9.976476645275696D-01,  7.363515432897181D-04, &
 -8.681923940787308D-01,  9.972359969871393D-01,  8.113364667770608D-04, &
 -8.668394917625060D-01, -6.993705565874477D-01,  7.872179533786066D-03, &
 -8.613634360731458D-01, -3.261475318345773D-01,  1.232507953462154D-02, &
 -8.509299252626037D-01,  1.169899980428923D-01,  1.136757785818936D-02, &
 -8.482538929392435D-01,  3.393726360408879D-01,  1.267378157246283D-02, &
 -8.451523222407388D-01,  5.453005687235306D-01,  1.130491811792810D-02, &
 -8.449087456035432D-01, -8.224590938386219D-01,  8.042605075076493D-03, &
 -8.412671406367855D-01,  9.446888202667849D-01,  4.514535531844399D-03, &
 -8.389136147784579D-01,  8.439972605417678D-01,  7.433693180569364D-03, &
 -8.388809490720153D-01,  7.089485738913401D-01,  9.353324994663370D-03, &
 -8.309124445900310D-01, -9.265465930991434D-01,  5.703635540067962D-03, &
 -8.274670608886809D-01, -6.041854831216104D-02,  1.386142916565396D-02, &
 -8.236973795101074D-01, -4.667582208856409D-01,  1.279580075793840D-02, &
 -8.174330288251811D-01, -9.840873060176719D-01,  2.642923071487787D-03, &
 -8.120012776170108D-01, -6.342612806052523D-01,  1.021716402717029D-02, &
 -8.050460479697321D-01,  9.843510759586377D-01,  2.619831715043517D-03, &
 -7.963298579913790D-01,  2.091194063771606D-01,  1.291867519635318D-02, &
 -7.946735264586758D-01, -2.195828771062506D-01,  1.512054362089480D-02, &
 -7.827811955363804D-01,  4.402675008295936D-01,  1.430859367414026D-02, &
 -7.808856870805703D-01, -7.574581885514182D-01,  9.891673069466232D-03, &
 -7.745104986488009D-01,  6.271495747138331D-01,  1.211509248039978D-02, &
 -7.742852249721359D-01,  9.016812565623727D-01,  7.058444102029891D-03, &
 -7.712501309180960D-01,  7.818205620509094D-01,  9.871384023520356D-03, &
 -7.644957465687958D-01, -8.749115601199623D-01,  8.398169418965080D-03, &
 -7.569201207717521D-01,  5.030282021695773D-02,  1.660514828868849D-02, &
 -7.523794410765668D-01, -3.660105878543244D-01,  1.584334374567671D-02, &
 -7.455561476506094D-01, -9.573278361059363D-01,  5.090662283402881D-03, &
 -7.449421292184407D-01, -9.968633522754683D-01,  1.161090043869617D-03, &
 -7.446132349955634D-01, -5.547266254690082D-01,  1.386801984803096D-02, &
 -7.369394855016965D-01,  9.975277318664320D-01,  1.006571180791874D-03, &
 -7.314430658691584D-01,  9.585376926340167D-01,  4.835999288723090D-03, &
 -7.300796275468885D-01,  3.048033260490218D-01,  1.561003081144107D-02, &
 -7.168671655213190D-01, -1.074176336475728D-01,  1.755811473136017D-02, &
 -7.109858048794567D-01, -6.930842326296686D-01,  1.103274111420899D-02, &
 -7.042131099438929D-01,  5.325994952276727D-01,  1.503724999824317D-02, &
 -6.966126002275308D-01,  7.081800737356690D-01,  1.259320917995288D-02, &
 -6.964513605087373D-01,  8.482976774714664D-01,  9.697594807909158D-03, &
 -6.865327730089299D-01, -8.144546391445805D-01,  1.072836825388296D-02, &
 -6.753051999581515D-01,  1.623967218674537D-01,  1.866107345822792D-02, &
 -6.704437071455894D-01, -2.555701283341775D-01,  1.828130593919578D-02, &
 -6.688090823093042D-01, -9.158922580375838D-01,  7.745824340518855D-03, &
 -6.654346461416878D-01, -4.581318541855599D-01,  1.715362559535030D-02, &
 -6.622715641926926D-01, -9.815849224623253D-01,  3.264022763125851D-03, &
 -6.569729367129702D-01,  9.843252854264678D-01,  3.107653612709843D-03, &
 -6.490814825652859D-01,  9.219379527553472D-01,  7.273589045997255D-03, &
 -6.490772877820512D-01,  4.032488941882870D-01,  1.750178260989192D-02, &
 -6.403967267747678D-01, -6.234176969692687D-01,  1.335506042885241D-02, &
 -6.321887611571272D-01, -9.956439648928699D-01,  7.346686354790276D-04, &
 -6.290834033601033D-01,  7.216244083470421D-03,  1.947776642467306D-02, &
 -6.171162584505504D-01,  6.223647914691047D-01,  1.549230086365143D-02, &
 -6.112516621704388D-01,  7.831776557256033D-01,  1.255020376848972D-02, &
 -5.985853482566683D-01, -7.497385410641988D-01,  1.263727710129047D-02, &
 -5.869424988010886D-01,  9.973980234326894D-01,  1.017364927160106D-03, &
 -5.839168637130311D-01, -8.616887542657947D-01,  9.710010662354636D-03, &
 -5.838249969862671D-01,  2.718839290695758D-01,  1.987995004105253D-02, &
 -5.785506719608396D-01, -1.394134201304520D-01,  2.006270434602024D-02, &
 -5.776106646583016D-01, -3.488508238645545D-01,  1.954400064690151D-02, &
 -5.759454975927832D-01, -9.501573801694301D-01,  5.909368816766506D-03, &
 -5.641159090423106D-01,  9.599854139458381D-01,  5.586746910682514D-03, &
 -5.633216281680778D-01,  8.755125598060366D-01,  9.255164778582764D-03, &
 -5.607747764243531D-01, -5.381763644015136D-01,  1.699095923630616D-02, &
 -5.600305973998688D-01, -9.806167661958205D-01,  1.262483548230043D-03, &
 -5.567454205492522D-01,  5.026048129003556D-01,  1.827080325916463D-02, &
 -5.341810753346672D-01, -9.969266028026199D-01,  1.301907496370608D-03, &
 -5.329787205184003D-01,  1.215536852040537D-01,  2.056858991083391D-02, &
 -5.216420701735659D-01,  7.059660023740130D-01,  1.551296508436025D-02, &
 -5.172659165257237D-01, -6.815002930550295D-01,  1.311160294691172D-02, &
 -5.149399834555580D-01, -8.911544014546450D-01,  3.106710974499213D-03, &
 -4.954671722032739D-01,  9.877262447568889D-01,  2.704444947872211D-03, &
 -4.865772270036066D-01,  3.790795935677761D-01,  2.015371460883953D-02, &
 -4.820537324578744D-01, -2.316193655903357D-01,  2.104746654078359D-02, &
 -4.809419330248884D-01,  8.244191675015446D-01,  1.014591526088192D-02, &
 -4.787129350153638D-01, -1.934329117484134D-02,  2.070508811124076D-02, &
 -4.782751005587915D-01, -8.029894135918636D-01,  1.336764814038257D-02, &
 -4.770175275669148D-01, -9.699883462880337D-01,  3.399274611185233D-03, &
 -4.724003494477093D-01, -4.356324025404807D-01,  1.986953131882142D-02, &
 -4.689391598576622D-01,  9.240111512762571D-01,  7.965383957108562D-03, &
 -4.658911980881860D-01, -9.126526757581364D-01,  7.367814824582447D-03, &
 -4.549738262686863D-01,  5.964200891972189D-01,  1.827733026219556D-02, &
 -4.416949290061132D-01, -6.094657082125391D-01,  1.513501533289796D-02, &
 -4.308781935067766D-01,  2.346747589224954D-01,  2.059752932220561D-02, &
 -4.237214429183968D-01,  9.988429740989183D-01,  7.468909138370148D-04, &
 -4.162231798125762D-01, -9.881086636947707D-01,  2.889752971892923D-03, &
 -4.039955476728034D-01,  7.698207973252635D-01,  1.213731648511270D-02, &
 -4.022743536629942D-01,  9.678771998474882D-01,  4.855326691856050D-03, &
 -3.856816592054024D-01, -1.046220184544868D-01,  1.985451526323344D-02, &
 -3.842028783258495D-01,  4.782357222377692D-01,  1.944910685094546D-02, &
 -3.786287262961593D-01, -7.317696143997668D-01,  1.545284771037087D-02, &
 -3.774042657220710D-01,  1.071473163945458D-01,  1.828035198356040D-02, &
 -3.767581689748362D-01, -3.215686449173350D-01,  2.187073763613115D-02, &
 -3.751374240015725D-01,  8.801101468531496D-01,  9.395413302507984D-03, &
 -3.683490409041832D-01, -9.428181074008333D-01,  6.588189243834728D-03, &
 -3.629438583461049D-01, -8.569398241270274D-01,  1.243551011498686D-02, &
 -3.588340459663644D-01, -5.198877431352260D-01,  1.898803694431077D-02, &
 -3.464473861083704D-01,  6.804932722717799D-01,  1.665356435051682D-02, &
 -3.299311445310920D-01,  3.361312544479299D-01,  1.885441897381050D-02, &
 -3.219997348518502D-01,  9.895504501564032D-01,  2.761328697047235D-03, &
 -3.198808254382448D-01, -9.980928088447467D-01,  1.234974434831144D-03, &
 -3.037501615875154D-01,  9.368481435389949D-01,  7.207594725661396D-03, &
 -3.001889723102260D-01,  3.829984631352593D-02,  1.749110699980297D-02, &
 -2.952842276415655D-01, -1.831220068752724D-01,  1.884429765898816D-02, &
 -2.933788342322968D-01, -6.564781732148162D-01,  1.409372395800510D-02, &
 -2.896454119116090D-01,  8.350902239498463D-01,  1.042215860220357D-02, &
 -2.813733871881473D-01, -9.706700162800450D-01,  5.210254763353661D-03, &
 -2.803796107520479D-01,  5.666580371271599D-01,  1.769551985203818D-02, &
 -2.646649728993916D-01, -4.140438773807713D-01,  2.201548097535621D-02, &
 -2.558406082629252D-01,  2.189136718964751D-01,  2.131050014957573D-02, &
 -2.512104300954118D-01, -7.918292212992303D-01,  1.562248186161317D-02, &
 -2.488917545593868D-01, -9.038959168898448D-01,  1.025510969508195D-02, &
 -2.438092787887342D-01,  4.188288491033791D-01,  1.475732864033983D-02, &
 -2.346445346959175D-01,  7.613261048327971D-01,  1.455391668451701D-02, &
 -2.271156542693553D-01, -5.887245648490607D-01,  1.434999190758240D-02, &
 -2.247073731789063D-01,  9.979933451517716D-01,  1.039791944866300D-03, &
 -2.163763876756374D-01,  9.677392729427614D-01,  4.990957116044046D-03, &
 -2.103558829810385D-01, -2.574697338318033D-01,  1.764960446990464D-02, &
 -2.095250370525197D-01, -4.031736543450098D-02,  2.178465331938922D-02, &
 -1.927828958465816D-01,  8.982684824267485D-01,  1.042589527917258D-02, &
 -1.871159934019396D-01,  6.474212617254689D-01,  1.535750116524344D-02, &
 -1.806658576765277D-01, -9.896867624509934D-01,  3.408734541691759D-03, &
 -1.633259573375413D-01,  1.400955882739857D-01,  1.959106088770077D-02, &
 -1.562364680645740D-01,  4.925045888845677D-01,  1.737804918299484D-02, &
 -1.491971854353493D-01, -7.098622267114059D-01,  1.806240202498965D-02, &
 -1.452318661461631D-01, -9.437776536061130D-01,  7.890722263129550D-03, &
 -1.439290914451357D-01, -5.038374394299656D-01,  2.033901736325344D-02, &
 -1.357808182391570D-01,  3.334065136263061D-01,  2.200934208245402D-02, &
 -1.313016026395862D-01, -8.511650652628034D-01,  1.347969997761506D-02, &
 -1.245113984567057D-01,  9.861958682207052D-01,  3.308916883269708D-03, &
 -1.229885666993439D-01, -3.334500618371383D-01,  1.933435335874882D-02, &
 -1.144529387813882D-01,  8.314993434856852D-01,  1.360965950150718D-02, &
 -1.095687849917511D-01, -1.301117874964884D-01,  2.211874730643872D-02, &
 -9.411332760666641D-02,  7.176378070213986D-01,  1.463449452671732D-02, &
 -8.388626313485989D-02,  9.413401035627339D-01,  8.138348671609086D-03, &
 -7.111096756881072D-02,  5.901854458702823D-02,  2.159648899983570D-02, &
 -5.596535842806818D-02, -9.985986389503078D-01,  1.152035315802443D-03, &
 -5.519377855670472D-02,  5.804621131957924D-01,  1.951093459498052D-02, &
 -5.083880286421506D-02, -6.184685667120825D-01,  1.949335828949948D-02, &
 -4.232428288883773D-02, -9.721213788531580D-01,  5.459634326563773D-03, &
 -3.362895942304555D-02,  2.473398037721315D-01,  2.225550633881426D-02, &
 -2.878763707909897D-02,  9.974212143963649D-01,  1.392150791806729D-03, &
 -2.701947130628778D-02, -7.792634752677781D-01,  1.635358938483053D-02, &
 -2.099733154867333D-02, -4.174896614559798D-01,  2.064580833064765D-02, &
 -1.942942890989090D-02, -9.030039921748615D-01,  1.075920755862384D-02, &
 -1.025241776704336D-02, -2.209004411746912D-01,  2.189514896760084D-02, &
 -5.603709661495010D-03,  4.376284944061901D-01,  2.305488563112960D-02, &
 5.160807557708119D-03,  8.883127314312923D-01,  1.173589844777346D-02, &
 1.478755859639245D-02,  7.805710255221150D-01,  1.419483273432981D-02, &
 2.203211920457429D-02,  9.710286258778940D-01,  5.352311200607812D-03, &
 2.667969840358058D-02, -3.169899165421439D-02,  2.212058357439342D-02, &
 4.419649539576614D-02, -5.358738509280914D-01,  1.537849072244061D-02, &
 5.645986923166345D-02,  6.654224239023853D-01,  1.852457014689922D-02, &
 7.014561544903802D-02,  1.539138394301714D-01,  2.361180582820691D-02, &
 7.382490787646279D-02, -9.888797183102520D-01,  3.401063622770633D-03, &
 7.677748557728954D-02, -6.950549395483447D-01,  1.891944949236252D-02, &
 8.334400516372700D-02, -9.420248129445080D-01,  7.428425442889059D-03, &
 8.811404198697755D-02, -8.425744879388839D-01,  1.354320033736116D-02, &
 9.428202794142194D-02, -3.130508677914989D-01,  2.260130066690366D-02, &
 1.010204727329467D-01,  3.441432117443262D-01,  2.223504878996065D-02, &
 1.118057634342426D-01,  9.901984397677133D-01,  2.866107790272031D-03, &
 1.196298840971513D-01,  5.382727379580559D-01,  2.270074787659283D-02, &
 1.209411181337108D-01, -4.799090158464530D-01,  1.152147426491700D-02, &
 1.219850999637117D-01, -1.218612532860722D-01,  2.101568083502077D-02, &
 1.232292464562112D-01,  9.343108083094505D-01,  9.206323005860302D-03, &
 1.295669785368222D-01,  8.406880568875401D-01,  1.287955106877277D-02, &
 1.735905842899504D-01,  7.429177350779718D-01,  1.571431921804362D-02, &
 1.755724480028529D-01,  5.338528258468570D-02,  2.372489552516464D-02, &
 1.757472783291680D-01, -5.979131889853080D-01,  1.794402481478493D-02, &
 1.842105709085970D-01, -8.912854841712154D-01,  7.954070193779422D-03, &
 1.849994792854633D-01, -9.651899282978637D-01,  5.064149534933845D-03, &
 1.883621786044712D-01, -9.977844639120534D-01,  1.248646247932006D-03, &
 1.936423269701602D-01, -7.695301946784334D-01,  1.610490406496761D-02, &
 2.014762149232713D-01, -4.110301142644528D-01,  1.885365723952532D-02, &
 2.036789289831738D-01,  2.505729164783445D-01,  2.177691306082853D-02, &
 2.124821840633064D-01,  9.983678654418292D-01,  1.013308752600118D-03, &
 2.186440916146861D-01, -2.099360144286631D-01,  2.166303561905097D-02, &
 2.266009299450756D-01,  4.361972923038600D-01,  2.158994434128180D-02, &
 2.315646394710894D-01,  9.701295500103406D-01,  6.079344492651117D-03, &
 2.356865468776172D-01,  6.370910939235934D-01,  1.931745618038865D-02, &
 2.454088634004036D-01,  8.937656157434565D-01,  1.097036321751639D-02, &
 2.483612800101855D-01, -9.144118112672673D-01,  5.880986220439612D-03, &
 2.738636464954728D-01, -4.180479898913641D-02,  1.973225599622812D-02, &
 2.741334945816214D-01, -6.688097177458799D-01,  1.552583691672160D-02, &
 2.806967904899877D-01, -9.837566472737467D-01,  3.668812731548744D-03, &
 2.878146592243341D-01,  8.096216755413393D-01,  1.248593716069912D-02, &
 2.928095492516591D-01, -8.296492444850465D-01,  1.002982078393012D-02, &
 3.003707713405964D-01,  1.574001974071592D-01,  2.081647115457695D-02, &
 3.032112900280739D-01, -3.213476683127075D-01,  1.986943316524076D-02, &
 3.038778633328361D-01, -5.155279822940786D-01,  2.132140323091509D-02, &
 3.189416740657732D-01,  5.301239563235857D-01,  1.599311728650303D-02, &
 3.379458538210279D-01,  3.380078043017812D-01,  2.231047709478462D-02, &
 3.414315269801313D-01, -9.447221797790122D-01,  7.193479552256923D-03, &
 3.451501869255189D-01,  9.911045296989844D-01,  3.150815381449179D-03, &
 3.459501416944350D-01,  9.412460482178074D-01,  7.581328265611393D-03, &
 3.498025442310060D-01,  7.259867843713310D-01,  1.534088761786192D-02, &
 3.506298151283278D-01, -1.110943927993918D-01,  1.551666339044610D-02, &
 3.508944053443432D-01, -8.597690806797168D-01,  6.780738534373333D-03, &
 3.676203412527344D-01, -7.355441788616041D-01,  1.449363179369764D-02, &
 3.775941728027782D-01, -9.966110448377157D-01,  1.588376651423708D-03, &
 3.860519270960796D-01,  7.302449463643648D-02,  1.674967274353688D-02, &
 3.908175824545033D-01,  6.040163725706776D-01,  1.278149700085847D-02, &
 3.932995953514418D-01,  8.586784918787448D-01,  9.330747431728702D-03, &
 4.009583889628902D-01, -2.237036393799572D-01,  1.892604307935697D-02, &
 4.132872901647590D-01, -4.161374351557686D-01,  2.138066163226836D-02, &
 4.156626605778777D-01, -6.064541375879013D-01,  1.924814510794154D-02, &
 4.275837181210796D-01,  9.094238876105997D-01,  4.770828940366273D-03, &
 4.328418582000582D-01,  4.496319777430270D-01,  1.936747828289653D-02, &
 4.385174796956023D-01, -8.999264574814262D-01,  9.370005851764580D-03, &
 4.416854437364063D-01, -9.738073510248620D-01,  4.796346619556446D-03, &
 4.421330688920201D-01,  2.374107327854063D-01,  2.181532535184939D-02, &
 4.550615803392936D-01,  9.726655099206181D-01,  5.179676710206462D-03, &
 4.569654688277525D-01,  6.884355926489272D-03,  1.583552991175338D-02, &
 4.632819243713829D-01, -8.003126851100022D-01,  1.316681225047508D-02, &
 4.689306146948844D-01,  6.814262213200711D-01,  1.334579482569558D-02, &
 4.696207639607174D-01,  7.988154952920899D-01,  1.184787022608413D-02, &
 4.857658052760571D-01,  9.984893866977577D-01,  1.096119304476565D-03, &
 4.993823494452720D-01, -1.215115809417293D-01,  1.866094748126752D-02, &
 5.147227675195748D-01, -3.085631716120487D-01,  2.105349795001905D-02, &
 5.165019514631053D-01,  5.527052226731102D-01,  1.594523958184094D-02, &
 5.184998491048611D-01, -5.122582772507516D-01,  1.944936029664543D-02, &
 5.212882108068023D-01,  8.912280598565898D-01,  6.430590724186390D-03, &
 5.216196172575923D-01, -6.918653721187973D-01,  1.673261806644407D-02, &
 5.267404688211808D-01, -9.928234349336557D-01,  2.264249969231592D-03, &
 5.337628878538487D-01,  3.562767541456822D-01,  1.973968319676171D-02, &
 5.362462702301273D-01, -9.419621269592201D-01,  7.018123899882877D-03, &
 5.376377966884078D-01,  9.405432980109936D-01,  5.735139534376493D-03, &
 5.414492290361640D-01,  1.392734385435706D-01,  2.077403754645742D-02, &
 5.609107809910865D-01, -8.610602440350434D-01,  1.065010493507847D-02, &
 5.657856622042965D-01,  7.599631423795741D-01,  1.071300749042643D-02, &
 5.853656077435417D-01,  9.875390366974179D-01,  3.152366608701943D-03, &
 5.901716003152813D-01,  6.434525496875014D-01,  1.295115318701735D-02, &
 5.926475181039332D-01, -1.394312891636593D-02,  1.831016768731409D-02, &
 6.004152984409479D-01,  8.529159644062866D-01,  9.481026402361680D-03, &
 6.117360608723036D-01, -1.986847607827743D-01,  1.980214313193597D-02, &
 6.130824033534686D-01, -4.095714300275702D-01,  1.917012065007447D-02, &
 6.151072377903102D-01,  4.701060842696129D-01,  1.706729076110463D-02, &
 6.159307791132325D-01, -7.726284834690805D-01,  1.314127931857205D-02, &
 6.178862021937575D-01, -6.037568023506926D-01,  1.700517763869981D-02, &
 6.233140115752496D-01, -9.990478475611962D-01,  5.756607762407137D-04, &
 6.233882556383349D-01, -9.736906648802569D-01,  4.400416908080170D-03, &
 6.293004246408224D-01,  2.602964866719539D-01,  1.911043777425127D-02, &
 6.354013023790106D-01,  9.594829356193809D-01,  3.875984169380209D-03, &
 6.531860907351404D-01, -9.129935732773705D-01,  7.993871581045829D-03, &
 6.669095378699366D-01,  7.212125041562338D-01,  1.115937328874872D-02, &
 6.682888522038171D-01,  9.170080181860093D-01,  6.711591614310012D-03, &
 6.733698677832002D-01,  9.531068015393949D-02,  1.704322733008138D-02, &
 6.867975790725386D-01,  5.732210324621596D-01,  1.405118611426179D-02, &
 6.877498285966892D-01,  9.972377597170190D-01,  1.171144176394094D-03, &
 6.919530077164939D-01,  8.183966376302371D-01,  8.546002645004975D-03, &
 7.006699775901079D-01, -3.018130078739841D-01,  1.797963536109381D-02, &
 7.007378604415206D-01, -6.967393023705793D-01,  1.347242645942421D-02, &
 7.011706428762506D-01, -8.645955499455821D-02,  1.805455337163264D-02, &
 7.046359024076116D-01, -8.408642058193949D-01,  1.001402071103762D-02, &
 7.050184040815621D-01, -5.062475643165765D-01,  1.662718203829281D-02, &
 7.059713500450162D-01,  3.789436426580511D-01,  1.673848305527229D-02, &
 7.069046616445557D-01, -9.908001304861944D-01,  1.978600063893940D-03, &
 7.266691397063710D-01,  9.764485842045145D-01,  3.196135869015411D-03, &
 7.363406109597423D-01, -9.531023692016642D-01,  5.413055258221468D-03, &
 7.430250973663187D-01,  2.035056651546192D-01,  1.504638709941723D-02, &
 7.535644399389860D-01,  8.879258118131659D-01,  7.006171198702037D-03, &
 7.563574258683842D-01,  6.568574070169740D-01,  1.127645966819047D-02, &
 7.667442271787138D-01,  7.756805658723509D-01,  8.207817118717271D-03, &
 7.701722119351029D-01,  9.513283511378082D-01,  3.288073973455126D-03, &
 7.726397716060590D-01,  4.891287757524024D-01,  1.380985802819005D-02, &
 7.763819833434896D-01, -6.108424957683033D-01,  1.316465009375289D-02, &
 7.765876970003720D-01, -9.983175720029679D-01,  5.530803312446341D-04, &
 7.783135272478848D-01,  3.067088271297034D-02,  1.617867766579491D-02, &
 7.789758903483420D-01, -7.755784522131605D-01,  1.024240381182082D-02, &
 7.794951515725598D-01, -1.900547136170159D-01,  1.605547922328266D-02, &
 7.827786520173903D-01, -4.013994693137274D-01,  1.542333829511010D-02, &
 7.859968639285212D-01, -8.957991066819440D-01,  7.388246252798941D-03, &
 8.019277506261744D-01,  3.096569162287749D-01,  1.321462723675400D-02, &
 8.046989562620047D-01,  9.934698121858433D-01,  1.620975163901152D-03, &
 8.116271678470535D-01, -9.812368844557581D-01,  2.805354005606401D-03, &
 8.271120113357940D-01,  8.445310805164534D-01,  7.391494649958003D-03, &
 8.315475863435614D-01,  9.349719428861505D-01,  4.319512065933182D-03, &
 8.321584209664755D-01,  7.156459468065629D-01,  8.211658184356523D-03, &
 8.346880955680183D-01,  5.790843779334668D-01,  1.053843380670116D-02, &
 8.421200025145761D-01, -5.163218277007364D-01,  1.214654046014649D-02, &
 8.428358142326123D-01, -7.004905652156834D-01,  9.807944160460698D-03, &
 8.429068230233057D-01,  1.506850609766789D-01,  1.392052411787133D-02, &
 8.469443668153608D-01, -7.373217636068097D-02,  1.387616447908254D-02, &
 8.499231814765066D-01, -2.903842316704804D-01,  1.345748857648198D-02, &
 8.509676963874204D-01, -9.421501714518346D-01,  4.512282801925937D-03, &
 8.513842034584429D-01, -8.385682243825499D-01,  7.589918785203049D-03, &
 8.529297252064996D-01,  9.788650415840999D-01,  1.767999675129546D-03, &
 8.548119318481671D-01,  4.129920008983965D-01,  1.142134843011626D-02, &
 8.743399003663345D-01, -9.965501332313196D-01,  8.866545706261915D-04, &
 8.868589131988083D-01,  7.813550256000477D-01,  7.028611053580085D-03, &
 8.882097576725707D-01,  8.967871781921426D-01,  5.131933562814728D-03, &
 8.940437357261795D-01,  6.448353054197643D-01,  7.532981116414975D-03, &
 8.951043245737870D-01,  2.701305401459678D-01,  1.119698691900426D-02, &
 8.957988629549595D-01, -6.172417311892393D-01,  8.745996105562806D-03, &
 8.966637138539476D-01, -4.139876550907898D-01,  1.042345398687548D-02, &
 8.972477740164735D-01,  9.688428320077953D-01,  2.185864494768297D-03, &
 9.009266678826738D-01,  9.978009702135497D-01,  6.895418046666433D-04, &
 9.018821552007310D-01,  4.650154498011889D-02,  1.144764316389570D-02, &
 9.031198283499343D-01, -8.990561632189207D-01,  4.723822492423395D-03, &
 9.045602400259568D-01, -7.701264771658067D-01,  7.053104592289312D-03, &
 9.053380379607494D-01, -1.746480109218232D-01,  1.103438645893049D-02, &
 9.054411149232872D-01, -9.744873584378785D-01,  2.378102961922232D-03, &
 9.055326931403324D-01,  5.042853365036326D-01,  8.843909529693304D-03, &
 9.343926720143196D-01,  8.408281722676378D-01,  4.939252078872689D-03, &
 9.369672998076496D-01,  9.392509664822630D-01,  3.036071275593237D-03, &
 9.370649990477178D-01, -5.263980680715866D-01,  7.197501644580989D-03, &
 9.375084976458372D-01,  3.772288160090471D-01,  7.723756326362103D-03, &
 9.381535834200617D-01,  7.106235070910863D-01,  5.902848304746877D-03, &
 9.397089401153526D-01, -3.064559939391279D-01,  8.183193061824199D-03, &
 9.430513485839862D-01, -8.453991555068732D-01,  4.259151291048153D-03, &
 9.439138207794857D-01,  1.694346027653371D-01,  8.711608432261320D-03, &
 9.453640500952915D-01, -6.918818219382270D-01,  5.811160329023696D-03, &
 9.458401661756128D-01, -9.433047135677757D-01,  2.666991866215932D-03, &
 9.474931749108476D-01, -9.934540488719975D-01,  9.077513966991803D-04, &
 9.480260033412141D-01, -5.528363383644061D-02,  8.344368695609054D-03, &
 9.515094736278008D-01,  9.869714675506723D-01,  1.367495384365193D-03, &
 9.522042365240376D-01,  5.775886113807980D-01,  6.278213478960007D-03, &
 9.666835796199322D-01,  4.481624968499795D-01,  3.204558585936675D-03, &
 9.674418063223464D-01, -4.304000963196550D-01,  5.347598797243928D-03, &
 9.701359035367135D-01, -7.802525506646220D-01,  3.115557673116472D-03, &
 9.701857271817536D-01,  8.938055399198392D-01,  2.864900302668842D-03, &
 9.708930152297497D-01, -1.958004635679564D-01,  5.654816581606078D-03, &
 9.714573561311842D-01,  7.782560227882267D-01,  3.821062888660015D-03, &
 9.738224913796117D-01, -6.066878673454835D-01,  4.238239901525744D-03, &
 9.743870386597691D-01, -9.005600796222234D-01,  2.292879276270914D-03, &
 9.748694751568308D-01,  2.872115060189273D-01,  5.488782914198373D-03, &
 9.770534257331674D-01, -9.733442069702187D-01,  1.220396530498849D-03, &
 9.773487838243448D-01,  6.742991425576679D-02,  5.516141834251902D-03, &
 9.807262602523558D-01,  9.605757763822972D-01,  1.453483834542216D-03, &
 9.821557641147268D-01,  6.556398036205757D-01,  3.678998334252915D-03, &
 9.839106243620387D-01,  9.977561756217526D-01,  2.768302865456187D-04, &
 9.847751712912336D-01,  4.874332090983019D-01,  3.074449052250624D-03, &
 9.872347823081763D-01, -8.347683105720206D-01,  1.269040121422027D-03, &
 9.873631625273047D-01, -3.284258517966067D-01,  3.314654538180889D-03, &
 9.878645619258249D-01, -9.970787084309179D-01,  2.392045469575733D-04, &
 9.891124753817594D-01, -7.120059529034396D-01,  2.190875058685215D-03, &
 9.904843680686551D-01, -8.399228923374426D-02,  3.184383491092044D-03, &
 9.911486992958609D-01, -5.172577211992232D-01,  2.483935260660239D-03, &
 9.926946438637168D-01,  8.406144684615959D-01,  1.680655250200566D-03, &
 9.940864938813981D-01, -9.401988730146373D-01,  8.590139939992197D-04, &
 9.941987746944642D-01,  1.912235208694665D-01,  2.518562325519789D-03, &
 9.960483559226059D-01,  3.732328466642290D-01,  1.950601561707686D-03, &
 9.962534123813316D-01,  9.225251976350251D-01,  7.835582462513657D-04, &
 9.966184286027521D-01, -8.738768172094957D-01,  6.340506805099443D-04, &
 9.968580870618724D-01,  7.336608062965726D-01,  1.218635259088649D-03, &
 9.972221719684324D-01,  9.836266811867312D-01,  3.070667564929675D-04, &
 9.973502464780108D-01,  5.703835859132225D-01,  1.316377370815025D-03, &
 9.977903571993221D-01, -2.217334569601657D-01,  1.243787387237352D-03, &
 9.981467866635252D-01, -7.852760517081546D-01,  5.930241241924707D-04, &
 9.983950085519884D-01, -6.322084663179760D-01,  8.416135676187133D-04, &
 9.984871758203762D-01, -9.838507269098428D-01,  1.976555370458795D-04, &
 9.985986690813101D-01, -4.178930731294047D-01,  8.254856487030795D-04, &
 9.989532297601191D-01,  3.236183825764132D-02,  9.014418551948622D-04 /)

  return
end
subroutine smr49 ( xyw )

!*****************************************************************************80
!
!! SMR49 returns the SMR rule of degree 49.
!
!  Discussion:
!
!    DEGREE: 49
!    SYMMETRY: (X,  Y),  (-X, -Y).
!    POINTS CARDINALITY: 427
!    NORM INF MOMS. RESIDUAL: 4.24357e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*427), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*427)

  xyw = (/ &
 -9.987179482199477D-01, -6.341055456784180D-02,  9.427263494251746D-04, &
 -9.985820051950299D-01,  4.311577677096960D-01,  8.506787489756313D-04, &
 -9.985812215892117D-01,  2.098862069679553D-01,  9.932558396288942D-04, &
 -9.984853824993025D-01, -7.518363345257131D-01,  6.752050933944545D-04, &
 -9.984416520882323D-01, -8.814083896367437D-01,  4.548127997472904D-04, &
 -9.983293539476047D-01,  9.835120159252404D-01,  2.181997023647311D-04, &
 -9.982115219214424D-01,  6.305047404346029D-01,  8.136830618787968D-04, &
 -9.978435386703776D-01,  7.692080150297662D-01,  6.598609318533428D-04, &
 -9.977221586114358D-01, -6.019952067889782D-01,  5.964708123101566D-04, &
 -9.966209533584591D-01, -3.237318892379179D-01,  1.736701233968157D-03, &
 -9.963148656482692D-01, -9.861307505276973D-01,  3.364793817721787D-04, &
 -9.959458468526172D-01,  8.639404647925895D-01,  9.127209022448868D-04, &
 -9.955419051779023D-01, -5.028006893760714D-01,  1.625315064214383D-03, &
 -9.939777572418940D-01,  9.377670381442861D-01,  9.071335269558794D-04, &
 -9.931100571448706D-01, -9.398758417699402D-01,  9.653046269879767D-04, &
 -9.914404533622192D-01,  7.370377576026632D-02,  3.114508431996894D-03, &
 -9.910529016163073D-01, -1.720232075920507D-01,  2.834840262020965D-03, &
 -9.904412956303582D-01,  5.265151744794012D-01,  2.514644595413010D-03, &
 -9.897745584940826D-01,  3.209639101085088D-01,  3.026155349324961D-03, &
 -9.896878613799838D-01, -6.734414823238595D-01,  2.206204039428005D-03, &
 -9.896446181606325D-01, -8.258526268641876D-01,  1.761173631057456D-03, &
 -9.882983824911455D-01,  7.029568166797684D-01,  2.101767111893595D-03, &
 -9.870995148246587D-01,  9.971266172517755D-01,  2.522985579422540D-04, &
 -9.828402728207225D-01,  8.130859429654207D-01,  1.813569870463969D-03, &
 -9.805838302292789D-01, -4.186960243528708D-01,  4.224419641522761D-03, &
 -9.799683347097561D-01, -9.982787940792663D-01,  2.802539460088801D-04, &
 -9.768576153531923D-01,  9.720516240923431D-01,  1.260176677733168D-03, &
 -9.737646096663447D-01,  8.979365374145354D-01,  2.417846375635086D-03, &
 -9.736351786214140D-01, -5.825032309876242D-01,  4.276722297762739D-03, &
 -9.734565439099904D-01, -8.924228057613435D-01,  2.621925808197151D-03, &
 -9.729306672713298D-01,  1.937971855968040D-01,  5.661441805111854D-03, &
 -9.728709777782690D-01, -9.691292467666289D-01,  1.466141068305907D-03, &
 -9.726983304977663D-01, -4.425763588680746D-02,  5.881914856745899D-03, &
 -9.715318079839266D-01,  6.114344673195419D-01,  4.212935529909797D-03, &
 -9.711831524640260D-01, -7.579747866842650D-01,  3.663853318492690D-03, &
 -9.709279126257970D-01, -2.562383260371136D-01,  5.255024629747484D-03, &
 -9.708137869429159D-01,  4.239389021325329D-01,  5.141869518483292D-03, &
 -9.664977673747553D-01,  7.669983680205528D-01,  2.614941215020715D-03, &
 -9.469548060003440D-01,  9.927873239383316D-01,  9.693950321163949D-04, &
 -9.450858475738110D-01, -5.025373008969878D-01,  6.252666523418040D-03, &
 -9.448077504847031D-01,  9.425192762886759D-01,  2.715142333531406D-03, &
 -9.432745759141794D-01, -3.578284894473978D-01,  6.177743639544537D-03, &
 -9.432551757252079D-01, -6.778512313399264D-01,  5.997726172859794D-03, &
 -9.425924799508709D-01,  7.723036765423268D-02,  8.594457541849910D-03, &
 -9.424045442737207D-01,  6.965818136607429D-01,  5.492047852799914D-03, &
 -9.422279295242960D-01,  8.430010110128885D-01,  4.356685968058319D-03, &
 -9.421296116189286D-01,  3.072458818807862D-01,  8.166950645809414D-03, &
 -9.414068461363603D-01, -8.319946383779213D-01,  4.899221558401311D-03, &
 -9.401222897124206D-01,  5.208371173674092D-01,  7.080933689521712D-03, &
 -9.396692618824576D-01, -9.333268377293767D-01,  3.176964275867470D-03, &
 -9.387594609269243D-01, -9.896419412770018D-01,  1.315181972642427D-03, &
 -9.376865583713452D-01, -1.472997681505319D-01,  8.802757771504873D-03, &
 -9.058866443920447D-01, -2.915118591864504D-01,  7.312514214991043D-03, &
 -9.033753194459962D-01,  9.739301226929417D-01,  2.430898666967969D-03, &
 -9.026928782557422D-01, -5.971154860482422D-01,  8.134575081016936D-03, &
 -9.021900638531539D-01,  8.986885201991707D-01,  4.735976500809632D-03, &
 -9.006876027333818D-01,  7.738025214543742D-01,  6.953572521005407D-03, &
 -9.000160662012473D-01,  1.936545205467035D-01,  1.105560603537899D-02, &
 -8.994183334513204D-01, -7.589002650753883D-01,  7.412012270186419D-03, &
 -8.991432933902236D-01,  6.161569102595980D-01,  8.649321074038529D-03, &
 -8.990136642719798D-01,  4.154161042204226D-01,  1.027033600307130D-02, &
 -8.955650716170729D-01, -2.889828380654945D-02,  1.141690753127995D-02, &
 -8.934822042254417D-01, -8.849206485200981D-01,  5.481269950434707D-03, &
 -8.925866230961302D-01, -9.651738737461483D-01,  3.087139101703460D-03, &
 -8.916399066676414D-01, -4.478690090838509D-01,  8.958243051785242D-03, &
 -8.787467882854940D-01, -9.974975541031985D-01,  7.520196736734306D-04, &
 -8.768368119879948D-01,  9.972195337276928D-01,  7.824958500505416D-04, &
 -8.688111752985119D-01, -2.062730881400507D-01,  1.032123607597266D-02, &
 -8.488444646215817D-01,  9.417487190138607D-01,  4.527482466935922D-03, &
 -8.483308513877643D-01,  8.420081277059801D-01,  7.356656581421614D-03, &
 -8.465974052776020D-01, -6.804500384380086D-01,  9.439844848201484D-03, &
 -8.457711905447103D-01,  3.060565758105315D-01,  1.313083077355583D-02, &
 -8.454498037908205D-01,  5.197883189451455D-01,  1.190856918137506D-02, &
 -8.440484090367564D-01,  6.995813955156258D-01,  9.801510245897441D-03, &
 -8.420990261538619D-01,  8.700843845073450D-02,  1.361576981188029D-02, &
 -8.387107616534492D-01, -8.225135460279916D-01,  8.023995882685042D-03, &
 -8.342806635072800D-01, -3.686663614256265D-01,  1.185649053487261D-02, &
 -8.341324042868387D-01, -5.413042996556211D-01,  1.028726411584244D-02, &
 -8.328917808999070D-01, -9.275746498999357D-01,  5.345327410698648D-03, &
 -8.222752044712189D-01, -9.828983653726329D-01,  2.569844448228937D-03, &
 -8.181510041117529D-01, -1.013221207184385D-01,  1.380702843362417D-02, &
 -8.152169502901689D-01,  9.831801913034185D-01,  2.619950174549044D-03, &
 -7.828790059504277D-01,  8.970932838288118D-01,  7.123319843648826D-03, &
 -7.814359340875883D-01,  4.148826331713472D-01,  1.479944058585885D-02, &
 -7.801982799083059D-01,  7.770472357073510D-01,  1.015003094959520D-02, &
 -7.785783303955014D-01,  6.125037703604832D-01,  1.287366180571384D-02, &
 -7.781640573729546D-01,  1.995944750196611D-01,  1.546595460903855D-02, &
 -7.780033996472984D-01, -2.651062610509234D-01,  1.437115393673534D-02, &
 -7.761306169624727D-01, -7.501004998319117D-01,  9.930943224422817D-03, &
 -7.715857235482023D-01,  9.983428621580931D-01,  5.452222266440912D-04, &
 -7.655483726416725D-01, -8.750797093910616D-01,  7.985877894766822D-03, &
 -7.650517717498729D-01, -4.715771704307840D-01,  1.255037589648692D-02, &
 -7.638158346191554D-01, -6.256899643054369D-01,  1.089753036742033D-02, &
 -7.586912864075982D-01, -9.961911332837330D-01,  1.179272785443735D-03, &
 -7.531768231132037D-01,  1.201386227993326D-02,  1.642203608617212D-02, &
 -7.525943724917873D-01, -9.538377812626558D-01,  4.657805305389900D-03, &
 -7.425465126897265D-01,  9.565892784834152D-01,  4.976897852233662D-03, &
 -7.120337647362697D-01, -1.543105022946922D-01,  1.667558344244733D-02, &
 -7.058491208433765D-01,  9.915756755872566D-01,  1.790261844614419D-03, &
 -7.050966153827319D-01,  3.088933084722713D-01,  1.701475236717927D-02, &
 -7.050386520037029D-01,  5.147871049065931D-01,  1.577829434551910D-02, &
 -7.044541730236628D-01,  8.417075739142680D-01,  9.820401163435438D-03, &
 -7.038938546524356D-01,  6.992970712529386D-01,  1.317427859481092D-02, &
 -7.030786952640691D-01, -3.737683313436290D-01,  1.533113926314000D-02, &
 -6.952697432642575D-01, -8.074711595576919D-01,  9.903249938089028D-03, &
 -6.874559480675843D-01, -9.781638816357989D-01,  3.101643133626598D-03, &
 -6.843864494264393D-01, -5.640703334807048D-01,  1.247073498122494D-02, &
 -6.791674419638026D-01, -6.963055362251113D-01,  1.115720692184079D-02, &
 -6.763078266684166D-01,  1.264181240942355D-01,  1.836539066857489D-02, &
 -6.743529219450092D-01, -9.106698394539678D-01,  7.349919293946242D-03, &
 -6.621044246635598D-01,  9.176320041970745D-01,  7.378997680603661D-03, &
 -6.431249402968114D-01, -9.960239767584596D-01,  1.189113707782781D-03, &
 -6.349167527421143D-01, -4.120238337350225D-02,  1.855565407496183D-02, &
 -6.332996010231378D-01,  9.748499154546882D-01,  3.858727420800304D-03, &
 -6.308194378333426D-01, -2.632109226108148D-01,  1.804417109814068D-02, &
 -6.216612560681409D-01,  4.121887181945136D-01,  1.799934456348149D-02, &
 -6.209382034591413D-01,  6.097444447472842D-01,  1.619622888897558D-02, &
 -6.184436204963421D-01,  7.739873263881869D-01,  1.280285540627544D-02, &
 -6.181782824659667D-01, -4.720385956358120D-01,  1.570128558680570D-02, &
 -6.088138333002981D-01,  9.988834235712669D-01,  6.368095509394178D-04, &
 -6.065399576093181D-01, -8.463858971291857D-01,  8.079219530748298D-03, &
 -5.996620894961030D-01, -9.482291632711998D-01,  5.540693800633477D-03, &
 -5.902607741689768D-01,  2.385643885392057D-01,  1.956867882471149D-02, &
 -5.879157685226737D-01, -6.347809747856457D-01,  1.176279561786886D-02, &
 -5.837357122734029D-01, -7.476017166168016D-01,  1.139197942656491D-02, &
 -5.736831191631178D-01,  8.680031315190274D-01,  9.765401515377791D-03, &
 -5.642269847367442D-01, -9.833709030918961D-01,  2.797162890164879D-03, &
 -5.513432891392764D-01,  9.450770682538761D-01,  6.170899375503570D-03, &
 -5.500959245098467D-01, -8.702213264603355D-01,  4.396899487663076D-03, &
 -5.483041549056678D-01,  7.179049125370220D-02,  1.968682836966377D-02, &
 -5.464176822976653D-01, -1.467074339338491D-01,  2.005834944791575D-02, &
 -5.403151496840451D-01, -3.630610758750227D-01,  1.886598318155659D-02, &
 -5.340189262268797D-01,  9.912655376872981D-01,  2.067175993092469D-03, &
 -5.310500417455106D-01,  5.118198224616344D-01,  1.858069243154359D-02, &
 -5.266542221288756D-01,  6.945596957359338D-01,  1.591896408992095D-02, &
 -5.205326762839934D-01, -5.526298443835523D-01,  1.463536127791667D-02, &
 -5.077007528436556D-01, -9.110215108206120D-01,  6.879755450888522D-03, &
 -4.983192797981136D-01, -9.976115668643906D-01,  1.171541751761967D-03, &
 -4.951332232653569D-01,  3.460504369406958D-01,  2.023874109373681D-02, &
 -4.835426583725593D-01,  8.111430213132370D-01,  1.157971471365758D-02, &
 -4.813959504258653D-01, -7.906922160702855D-01,  1.227086240600740D-02, &
 -4.710786595525681D-01, -6.776468702229034D-01,  1.309017893729792D-02, &
 -4.684016915514839D-01, -9.631060061929865D-01,  5.069810155479069D-03, &
 -4.601634273592006D-01,  9.736184752433025D-01,  3.981032410636509D-03, &
 -4.586406152579688D-01,  9.067429858222903D-01,  8.151450352060937D-03, &
 -4.581246913316372D-01,  1.846374671629571D-01,  1.859836421630574D-02, &
 -4.542591579155089D-01, -2.533998951051241D-02,  2.019107274450048D-02, &
 -4.507016433960112D-01, -2.452585642576526D-01,  2.097607879874488D-02, &
 -4.405266836969018D-01, -4.527844645321407D-01,  1.865598696449664D-02, &
 -4.313857093444732D-01,  6.040918064374622D-01,  1.842506376270006D-02, &
 -4.267485951806373D-01, -8.688547899404195D-01,  6.723705742819690D-03, &
 -4.131499625978771D-01,  9.970815492711668D-01,  1.271249087845813D-03, &
 -3.986015122530552D-01,  7.510577780393508D-01,  1.269074691033858D-02, &
 -3.967149116103497D-01, -6.041689107858602D-01,  1.192636288654412D-02, &
 -3.961555040155331D-01,  4.470760721116281D-01,  2.010362718935436D-02, &
 -3.870311898550397D-01, -9.875044282645365D-01,  3.406124439417308D-03, &
 -3.759111439580939D-01,  8.681044983359713D-01,  7.567587310258595D-03, &
 -3.733018295823582D-01,  1.124745920090000D-01,  1.444272159271557D-02, &
 -3.698211803848768D-01,  9.497944995362068D-01,  5.588072557089718D-03, &
 -3.677520025284451D-01, -9.304735975401455D-01,  7.985180614906596D-03, &
 -3.647799432566780D-01, -1.113354938202836D-01,  1.869502288898936D-02, &
 -3.564395741412303D-01, -7.281106510086501D-01,  1.411781032844452D-02, &
 -3.557949371891208D-01, -8.330285597968599D-01,  9.641510028740691D-03, &
 -3.555243523154669D-01,  2.839179571854041D-01,  1.993717563297461D-02, &
 -3.484889009386569D-01, -3.392883270625222D-01,  2.140162840707676D-02, &
 -3.283812713294078D-01, -5.303954087605249D-01,  1.601217072102609D-02, &
 -3.195420634648112D-01,  9.856964924833570D-01,  3.355668049705953D-03, &
 -3.183691341673544D-01,  6.823032199063920D-01,  1.502246554463540D-02, &
 -3.044813423163074D-01,  8.293787725761752D-01,  1.046325726611303D-02, &
 -2.987630526075223D-01,  4.684092365905865D-02,  1.926775266958230D-02, &
 -2.936532335470334D-01,  5.403974535032333D-01,  1.910165254855807D-02, &
 -2.839114443643144D-01, -9.982115043292803D-01,  1.188632971361439D-03, &
 -2.838714383237747D-01,  9.229409872704248D-01,  6.670754525457344D-03, &
 -2.810131840539091D-01, -1.888679679442530D-01,  1.832810176225835D-02, &
 -2.687507311235811D-01, -9.661991515046374D-01,  6.311482289862918D-03, &
 -2.656987431438242D-01, -6.579434003777319D-01,  1.182247248408541D-02, &
 -2.614828276593449D-01,  3.765883630233104D-01,  1.796650685355945D-02, &
 -2.531943910872507D-01, -8.899457540567935D-01,  1.092169990171894D-02, &
 -2.406846427640522D-01, -7.855631193658050D-01,  1.359117656318325D-02, &
 -2.391816880092877D-01, -4.306619043003660D-01,  2.108838808511827D-02, &
 -2.355724334549767D-01,  2.049280038734326D-01,  2.190235001744360D-02, &
 -2.230244166633031D-01,  9.979412002068919D-01,  1.240219580715109D-03, &
 -2.143016309053875D-01,  7.672825366517191D-01,  1.532929818887211D-02, &
 -2.084210826685112D-01, -6.026618831861471D-01,  1.266723448088261D-02, &
 -2.074608754565781D-01,  9.668302372454330D-01,  5.784281081186120D-03, &
 -1.994470236746966D-01, -4.262641530424785D-02,  2.336758693844741D-02, &
 -1.953909451600504D-01,  8.884510132587173D-01,  9.639725933265000D-03, &
 -1.947973443282949D-01,  6.327934412393972D-01,  1.604045001285653D-02, &
 -1.934348429848317D-01, -2.676344080255245D-01,  1.945754749492376D-02, &
 -1.731674619232558D-01,  4.594347331929800D-01,  1.701418105871642D-02, &
 -1.581108634025118D-01, -9.886241341680647D-01,  3.738115075160524D-03, &
 -1.422635614677805D-01, -9.353836759115295D-01,  9.131973629103902D-03, &
 -1.361305424868328D-01,  1.223782786800707D-01,  2.022098154521878D-02, &
 -1.332706201055330D-01, -7.135796064753009D-01,  1.658816867334942D-02, &
 -1.279679844994012D-01, -8.428571211216312D-01,  1.270368784787859D-02, &
 -1.215680553809675D-01, -5.177010109986793D-01,  2.044565322938263D-02, &
 -1.191841609577679D-01,  3.166199536093801D-01,  2.232566149349017D-02, &
 -1.030306575568989D-01,  5.564353141202014D-01,  1.319022417392010D-02, &
 -1.010032725708720D-01,  8.358781872733483D-01,  1.317927677377359D-02, &
 -9.793911367017349D-02, -3.496629047055283D-01,  2.036641167270025D-02, &
 -9.632162801653921D-02,  9.888966773648641D-01,  3.635491187724198D-03, &
 -9.413622131664506D-02, -1.384648595071072D-01,  2.325132772759284D-02, &
 -9.173762319021858D-02,  9.377720732845000D-01,  8.484100706145753D-03, &
 -8.621270959290740D-02,  7.067235284679263D-01,  1.663872363860805D-02, &
 -4.600495484763667D-02,  4.189736454726613D-02,  2.011405200689851D-02, &
 -3.846886242278941D-02,  5.343444763759839D-01,  7.629129920225949D-03, &
 -3.114682416899431D-02, -9.984328758619065D-01,  1.215239197082301D-03, &
 -3.079267631383417D-02, -6.283320709748856D-01,  1.866968865866494D-02, &
 -2.943594515930726D-02, -9.691705324016726D-01,  6.300149444345140D-03, &
 -1.716717474844928D-02, -7.802924106209882D-01,  1.460622280342255D-02, &
 -1.471848835947739D-02, -8.938525086535020D-01,  1.128301163750197D-02, &
 -9.971581147176094D-03,  2.306776723300077D-01,  2.246786582285274D-02, &
 -9.401058469724652D-03,  4.283083438750301D-01,  2.037055156805384D-02, &
 0.000000000000000D+00,  0.000000000000000D+00,  5.253249918853668D-04, &
 9.401058469724652D-03, -4.283083438750301D-01,  2.037055156805384D-02, &
 9.971581147176094D-03, -2.306776723300077D-01,  2.246786582285274D-02, &
 1.471848835947739D-02,  8.938525086535020D-01,  1.128301163750197D-02, &
 1.716717474844928D-02,  7.802924106209882D-01,  1.460622280342255D-02, &
 2.943594515930726D-02,  9.691705324016726D-01,  6.300149444345140D-03, &
 3.079267631383417D-02,  6.283320709748856D-01,  1.866968865866494D-02, &
 3.114682416899431D-02,  9.984328758619065D-01,  1.215239197082301D-03, &
 3.846886242278941D-02, -5.343444763759839D-01,  7.629129920225949D-03, &
 4.600495484763667D-02, -4.189736454726613D-02,  2.011405200689851D-02, &
 8.621270959290740D-02, -7.067235284679263D-01,  1.663872363860805D-02, &
 9.173762319021858D-02, -9.377720732845000D-01,  8.484100706145753D-03, &
 9.413622131664506D-02,  1.384648595071072D-01,  2.325132772759284D-02, &
 9.632162801653921D-02, -9.888966773648641D-01,  3.635491187724198D-03, &
 9.793911367017349D-02,  3.496629047055283D-01,  2.036641167270025D-02, &
 1.010032725708720D-01, -8.358781872733483D-01,  1.317927677377359D-02, &
 1.030306575568989D-01, -5.564353141202014D-01,  1.319022417392010D-02, &
 1.191841609577679D-01, -3.166199536093801D-01,  2.232566149349017D-02, &
 1.215680553809675D-01,  5.177010109986793D-01,  2.044565322938263D-02, &
 1.279679844994012D-01,  8.428571211216312D-01,  1.270368784787859D-02, &
 1.332706201055330D-01,  7.135796064753009D-01,  1.658816867334942D-02, &
 1.361305424868328D-01, -1.223782786800707D-01,  2.022098154521878D-02, &
 1.422635614677805D-01,  9.353836759115295D-01,  9.131973629103902D-03, &
 1.581108634025118D-01,  9.886241341680647D-01,  3.738115075160524D-03, &
 1.731674619232558D-01, -4.594347331929800D-01,  1.701418105871642D-02, &
 1.934348429848317D-01,  2.676344080255245D-01,  1.945754749492376D-02, &
 1.947973443282949D-01, -6.327934412393972D-01,  1.604045001285653D-02, &
 1.953909451600504D-01, -8.884510132587173D-01,  9.639725933265000D-03, &
 1.994470236746966D-01,  4.262641530424785D-02,  2.336758693844741D-02, &
 2.074608754565781D-01, -9.668302372454330D-01,  5.784281081186120D-03, &
 2.084210826685112D-01,  6.026618831861471D-01,  1.266723448088261D-02, &
 2.143016309053875D-01, -7.672825366517191D-01,  1.532929818887211D-02, &
 2.230244166633031D-01, -9.979412002068919D-01,  1.240219580715109D-03, &
 2.355724334549767D-01, -2.049280038734326D-01,  2.190235001744360D-02, &
 2.391816880092877D-01,  4.306619043003660D-01,  2.108838808511827D-02, &
 2.406846427640522D-01,  7.855631193658050D-01,  1.359117656318325D-02, &
 2.531943910872507D-01,  8.899457540567935D-01,  1.092169990171894D-02, &
 2.614828276593449D-01, -3.765883630233104D-01,  1.796650685355945D-02, &
 2.656987431438242D-01,  6.579434003777319D-01,  1.182247248408541D-02, &
 2.687507311235811D-01,  9.661991515046374D-01,  6.311482289862918D-03, &
 2.810131840539091D-01,  1.888679679442530D-01,  1.832810176225835D-02, &
 2.838714383237747D-01, -9.229409872704248D-01,  6.670754525457344D-03, &
 2.839114443643144D-01,  9.982115043292803D-01,  1.188632971361439D-03, &
 2.936532335470334D-01, -5.403974535032333D-01,  1.910165254855807D-02, &
 2.987630526075223D-01, -4.684092365905865D-02,  1.926775266958230D-02, &
 3.044813423163074D-01, -8.293787725761752D-01,  1.046325726611303D-02, &
 3.183691341673544D-01, -6.823032199063920D-01,  1.502246554463540D-02, &
 3.195420634648112D-01, -9.856964924833570D-01,  3.355668049705953D-03, &
 3.283812713294078D-01,  5.303954087605249D-01,  1.601217072102609D-02, &
 3.484889009386569D-01,  3.392883270625222D-01,  2.140162840707676D-02, &
 3.555243523154669D-01, -2.839179571854041D-01,  1.993717563297461D-02, &
 3.557949371891208D-01,  8.330285597968599D-01,  9.641510028740691D-03, &
 3.564395741412303D-01,  7.281106510086501D-01,  1.411781032844452D-02, &
 3.647799432566780D-01,  1.113354938202836D-01,  1.869502288898936D-02, &
 3.677520025284451D-01,  9.304735975401455D-01,  7.985180614906596D-03, &
 3.698211803848768D-01, -9.497944995362068D-01,  5.588072557089718D-03, &
 3.733018295823582D-01, -1.124745920090000D-01,  1.444272159271557D-02, &
 3.759111439580939D-01, -8.681044983359713D-01,  7.567587310258595D-03, &
 3.870311898550397D-01,  9.875044282645365D-01,  3.406124439417308D-03, &
 3.961555040155331D-01, -4.470760721116281D-01,  2.010362718935436D-02, &
 3.967149116103497D-01,  6.041689107858602D-01,  1.192636288654412D-02, &
 3.986015122530552D-01, -7.510577780393508D-01,  1.269074691033858D-02, &
 4.131499625978771D-01, -9.970815492711668D-01,  1.271249087845813D-03, &
 4.267485951806373D-01,  8.688547899404195D-01,  6.723705742819690D-03, &
 4.313857093444732D-01, -6.040918064374622D-01,  1.842506376270006D-02, &
 4.405266836969018D-01,  4.527844645321407D-01,  1.865598696449664D-02, &
 4.507016433960112D-01,  2.452585642576526D-01,  2.097607879874488D-02, &
 4.542591579155089D-01,  2.533998951051241D-02,  2.019107274450048D-02, &
 4.581246913316372D-01, -1.846374671629571D-01,  1.859836421630574D-02, &
 4.586406152579688D-01, -9.067429858222903D-01,  8.151450352060937D-03, &
 4.601634273592006D-01, -9.736184752433025D-01,  3.981032410636509D-03, &
 4.684016915514839D-01,  9.631060061929865D-01,  5.069810155479069D-03, &
 4.710786595525681D-01,  6.776468702229034D-01,  1.309017893729792D-02, &
 4.813959504258653D-01,  7.906922160702855D-01,  1.227086240600740D-02, &
 4.835426583725593D-01, -8.111430213132370D-01,  1.157971471365758D-02, &
 4.951332232653569D-01, -3.460504369406958D-01,  2.023874109373681D-02, &
 4.983192797981136D-01,  9.976115668643906D-01,  1.171541751761967D-03, &
 5.077007528436556D-01,  9.110215108206120D-01,  6.879755450888522D-03, &
 5.205326762839934D-01,  5.526298443835523D-01,  1.463536127791667D-02, &
 5.266542221288756D-01, -6.945596957359338D-01,  1.591896408992095D-02, &
 5.310500417455106D-01, -5.118198224616344D-01,  1.858069243154359D-02, &
 5.340189262268797D-01, -9.912655376872981D-01,  2.067175993092469D-03, &
 5.403151496840451D-01,  3.630610758750227D-01,  1.886598318155659D-02, &
 5.464176822976653D-01,  1.467074339338491D-01,  2.005834944791575D-02, &
 5.483041549056678D-01, -7.179049125370220D-02,  1.968682836966377D-02, &
 5.500959245098467D-01,  8.702213264603355D-01,  4.396899487663076D-03, &
 5.513432891392764D-01, -9.450770682538761D-01,  6.170899375503570D-03, &
 5.642269847367442D-01,  9.833709030918961D-01,  2.797162890164879D-03, &
 5.736831191631178D-01, -8.680031315190274D-01,  9.765401515377791D-03, &
 5.837357122734029D-01,  7.476017166168016D-01,  1.139197942656491D-02, &
 5.879157685226737D-01,  6.347809747856457D-01,  1.176279561786886D-02, &
 5.902607741689768D-01, -2.385643885392057D-01,  1.956867882471149D-02, &
 5.996620894961030D-01,  9.482291632711998D-01,  5.540693800633477D-03, &
 6.065399576093181D-01,  8.463858971291857D-01,  8.079219530748298D-03, &
 6.088138333002981D-01, -9.988834235712669D-01,  6.368095509394178D-04, &
 6.181782824659667D-01,  4.720385956358120D-01,  1.570128558680570D-02, &
 6.184436204963421D-01, -7.739873263881869D-01,  1.280285540627544D-02, &
 6.209382034591413D-01, -6.097444447472842D-01,  1.619622888897558D-02, &
 6.216612560681409D-01, -4.121887181945136D-01,  1.799934456348149D-02, &
 6.308194378333426D-01,  2.632109226108148D-01,  1.804417109814068D-02, &
 6.332996010231378D-01, -9.748499154546882D-01,  3.858727420800304D-03, &
 6.349167527421143D-01,  4.120238337350225D-02,  1.855565407496183D-02, &
 6.431249402968114D-01,  9.960239767584596D-01,  1.189113707782781D-03, &
 6.621044246635598D-01, -9.176320041970745D-01,  7.378997680603661D-03, &
 6.743529219450092D-01,  9.106698394539678D-01,  7.349919293946242D-03, &
 6.763078266684166D-01, -1.264181240942355D-01,  1.836539066857489D-02, &
 6.791674419638026D-01,  6.963055362251113D-01,  1.115720692184079D-02, &
 6.843864494264393D-01,  5.640703334807048D-01,  1.247073498122494D-02, &
 6.874559480675843D-01,  9.781638816357989D-01,  3.101643133626598D-03, &
 6.952697432642575D-01,  8.074711595576919D-01,  9.903249938089028D-03, &
 7.030786952640691D-01,  3.737683313436290D-01,  1.533113926314000D-02, &
 7.038938546524356D-01, -6.992970712529386D-01,  1.317427859481092D-02, &
 7.044541730236628D-01, -8.417075739142680D-01,  9.820401163435438D-03, &
 7.050386520037029D-01, -5.147871049065931D-01,  1.577829434551910D-02, &
 7.050966153827319D-01, -3.088933084722713D-01,  1.701475236717927D-02, &
 7.058491208433765D-01, -9.915756755872566D-01,  1.790261844614419D-03, &
 7.120337647362697D-01,  1.543105022946922D-01,  1.667558344244733D-02, &
 7.425465126897265D-01, -9.565892784834152D-01,  4.976897852233662D-03, &
 7.525943724917873D-01,  9.538377812626558D-01,  4.657805305389900D-03, &
 7.531768231132037D-01, -1.201386227993326D-02,  1.642203608617212D-02, &
 7.586912864075982D-01,  9.961911332837330D-01,  1.179272785443735D-03, &
 7.638158346191554D-01,  6.256899643054369D-01,  1.089753036742033D-02, &
 7.650517717498729D-01,  4.715771704307840D-01,  1.255037589648692D-02, &
 7.655483726416725D-01,  8.750797093910616D-01,  7.985877894766822D-03, &
 7.715857235482023D-01, -9.983428621580931D-01,  5.452222266440912D-04, &
 7.761306169624727D-01,  7.501004998319117D-01,  9.930943224422817D-03, &
 7.780033996472984D-01,  2.651062610509234D-01,  1.437115393673534D-02, &
 7.781640573729546D-01, -1.995944750196611D-01,  1.546595460903855D-02, &
 7.785783303955014D-01, -6.125037703604832D-01,  1.287366180571384D-02, &
 7.801982799083059D-01, -7.770472357073510D-01,  1.015003094959520D-02, &
 7.814359340875883D-01, -4.148826331713472D-01,  1.479944058585885D-02, &
 7.828790059504277D-01, -8.970932838288118D-01,  7.123319843648826D-03, &
 8.152169502901689D-01, -9.831801913034185D-01,  2.619950174549044D-03, &
 8.181510041117529D-01,  1.013221207184385D-01,  1.380702843362417D-02, &
 8.222752044712189D-01,  9.828983653726329D-01,  2.569844448228937D-03, &
 8.328917808999070D-01,  9.275746498999357D-01,  5.345327410698648D-03, &
 8.341324042868387D-01,  5.413042996556211D-01,  1.028726411584244D-02, &
 8.342806635072800D-01,  3.686663614256265D-01,  1.185649053487261D-02, &
 8.387107616534492D-01,  8.225135460279916D-01,  8.023995882685042D-03, &
 8.420990261538619D-01, -8.700843845073450D-02,  1.361576981188029D-02, &
 8.440484090367564D-01, -6.995813955156258D-01,  9.801510245897441D-03, &
 8.454498037908205D-01, -5.197883189451455D-01,  1.190856918137506D-02, &
 8.457711905447103D-01, -3.060565758105315D-01,  1.313083077355583D-02, &
 8.465974052776020D-01,  6.804500384380086D-01,  9.439844848201484D-03, &
 8.483308513877643D-01, -8.420081277059801D-01,  7.356656581421614D-03, &
 8.488444646215817D-01, -9.417487190138607D-01,  4.527482466935922D-03, &
 8.688111752985119D-01,  2.062730881400507D-01,  1.032123607597266D-02, &
 8.768368119879948D-01, -9.972195337276928D-01,  7.824958500505416D-04, &
 8.787467882854940D-01,  9.974975541031985D-01,  7.520196736734306D-04, &
 8.916399066676414D-01,  4.478690090838509D-01,  8.958243051785242D-03, &
 8.925866230961302D-01,  9.651738737461483D-01,  3.087139101703460D-03, &
 8.934822042254417D-01,  8.849206485200981D-01,  5.481269950434707D-03, &
 8.955650716170729D-01,  2.889828380654945D-02,  1.141690753127995D-02, &
 8.990136642719798D-01, -4.154161042204226D-01,  1.027033600307130D-02, &
 8.991432933902236D-01, -6.161569102595980D-01,  8.649321074038529D-03, &
 8.994183334513204D-01,  7.589002650753883D-01,  7.412012270186419D-03, &
 9.000160662012473D-01, -1.936545205467035D-01,  1.105560603537899D-02, &
 9.006876027333818D-01, -7.738025214543742D-01,  6.953572521005407D-03, &
 9.021900638531539D-01, -8.986885201991707D-01,  4.735976500809632D-03, &
 9.026928782557422D-01,  5.971154860482422D-01,  8.134575081016936D-03, &
 9.033753194459962D-01, -9.739301226929417D-01,  2.430898666967969D-03, &
 9.058866443920447D-01,  2.915118591864504D-01,  7.312514214991043D-03, &
 9.376865583713452D-01,  1.472997681505319D-01,  8.802757771504873D-03, &
 9.387594609269243D-01,  9.896419412770018D-01,  1.315181972642427D-03, &
 9.396692618824576D-01,  9.333268377293767D-01,  3.176964275867470D-03, &
 9.401222897124206D-01, -5.208371173674092D-01,  7.080933689521712D-03, &
 9.414068461363603D-01,  8.319946383779213D-01,  4.899221558401311D-03, &
 9.421296116189286D-01, -3.072458818807862D-01,  8.166950645809414D-03, &
 9.422279295242960D-01, -8.430010110128885D-01,  4.356685968058319D-03, &
 9.424045442737207D-01, -6.965818136607429D-01,  5.492047852799914D-03, &
 9.425924799508709D-01, -7.723036765423268D-02,  8.594457541849910D-03, &
 9.432551757252079D-01,  6.778512313399264D-01,  5.997726172859794D-03, &
 9.432745759141794D-01,  3.578284894473978D-01,  6.177743639544537D-03, &
 9.448077504847031D-01, -9.425192762886759D-01,  2.715142333531406D-03, &
 9.450858475738110D-01,  5.025373008969878D-01,  6.252666523418040D-03, &
 9.469548060003440D-01, -9.927873239383316D-01,  9.693950321163949D-04, &
 9.664977673747553D-01, -7.669983680205528D-01,  2.614941215020715D-03, &
 9.708137869429159D-01, -4.239389021325329D-01,  5.141869518483292D-03, &
 9.709279126257970D-01,  2.562383260371136D-01,  5.255024629747484D-03, &
 9.711831524640260D-01,  7.579747866842650D-01,  3.663853318492690D-03, &
 9.715318079839266D-01, -6.114344673195419D-01,  4.212935529909797D-03, &
 9.726983304977663D-01,  4.425763588680746D-02,  5.881914856745899D-03, &
 9.728709777782690D-01,  9.691292467666289D-01,  1.466141068305907D-03, &
 9.729306672713298D-01, -1.937971855968040D-01,  5.661441805111854D-03, &
 9.734565439099904D-01,  8.924228057613435D-01,  2.621925808197151D-03, &
 9.736351786214140D-01,  5.825032309876242D-01,  4.276722297762739D-03, &
 9.737646096663447D-01, -8.979365374145354D-01,  2.417846375635086D-03, &
 9.768576153531923D-01, -9.720516240923431D-01,  1.260176677733168D-03, &
 9.799683347097561D-01,  9.982787940792663D-01,  2.802539460088801D-04, &
 9.805838302292789D-01,  4.186960243528708D-01,  4.224419641522761D-03, &
 9.828402728207225D-01, -8.130859429654207D-01,  1.813569870463969D-03, &
 9.870995148246587D-01, -9.971266172517755D-01,  2.522985579422540D-04, &
 9.882983824911455D-01, -7.029568166797684D-01,  2.101767111893595D-03, &
 9.896446181606325D-01,  8.258526268641876D-01,  1.761173631057456D-03, &
 9.896878613799838D-01,  6.734414823238595D-01,  2.206204039428005D-03, &
 9.897745584940826D-01, -3.209639101085088D-01,  3.026155349324961D-03, &
 9.904412956303582D-01, -5.265151744794012D-01,  2.514644595413010D-03, &
 9.910529016163073D-01,  1.720232075920507D-01,  2.834840262020965D-03, &
 9.914404533622192D-01, -7.370377576026632D-02,  3.114508431996894D-03, &
 9.931100571448706D-01,  9.398758417699402D-01,  9.653046269879767D-04, &
 9.939777572418940D-01, -9.377670381442861D-01,  9.071335269558794D-04, &
 9.955419051779023D-01,  5.028006893760714D-01,  1.625315064214383D-03, &
 9.959458468526172D-01, -8.639404647925895D-01,  9.127209022448868D-04, &
 9.963148656482692D-01,  9.861307505276973D-01,  3.364793817721787D-04, &
 9.966209533584591D-01,  3.237318892379179D-01,  1.736701233968157D-03, &
 9.977221586114358D-01,  6.019952067889782D-01,  5.964708123101566D-04, &
 9.978435386703776D-01, -7.692080150297662D-01,  6.598609318533428D-04, &
 9.982115219214424D-01, -6.305047404346029D-01,  8.136830618787968D-04, &
 9.983293539476047D-01, -9.835120159252404D-01,  2.181997023647311D-04, &
 9.984416520882323D-01,  8.814083896367437D-01,  4.548127997472904D-04, &
 9.984853824993025D-01,  7.518363345257131D-01,  6.752050933944545D-04, &
 9.985812215892117D-01, -2.098862069679553D-01,  9.932558396288942D-04, &
 9.985820051950299D-01, -4.311577677096960D-01,  8.506787489756313D-04, &
 9.987179482199477D-01,  6.341055456784180D-02,  9.427263494251746D-04 /)

  return
end
subroutine smr50 ( xyw )

!*****************************************************************************80
!
!! SMR50 returns the SMR rule of degree 50.
!
!  Discussion:
!
!    DEGREE: 50
!    POINTS CARDINALITY: 454
!    NORM INF MOMS. RESIDUAL: 1.97162e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*454), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*454)

  xyw = (/ &
 -9.985305923732772D-01,  9.480346609653949D-01,  3.637016044890175D-04, &
 -9.983266574377337D-01, -7.135200571279965D-01,  8.681375001274842D-04, &
 -9.982410599710965D-01, -5.061487385182745D-02,  1.210422814431021D-03, &
 -9.981979630190073D-01,  1.943963798210550D-01,  1.209667416017868D-03, &
 -9.981164101550407D-01,  4.217828123427281D-01,  1.100221981712261D-03, &
 -9.980251256813344D-01,  8.409407151717826D-01,  6.790256958329296D-04, &
 -9.978977416561483D-01, -5.175396836215825D-01,  1.209910288842294D-03, &
 -9.977749235731450D-01, -8.787383894116004D-01,  6.804808145574241D-04, &
 -9.974790513531082D-01, -2.987478462479398D-01,  1.485043396561256D-03, &
 -9.973044005791738D-01,  9.966139708183203D-01,  1.024593234561320D-04, &
 -9.965354581345114D-01, -9.625283354808352D-01,  5.086867261717252D-04, &
 -9.959776528397177D-01,  5.865612330340912D-01,  1.475073552829635D-03, &
 -9.958674494848857D-01,  7.184881012827657D-01,  1.314678451882094D-03, &
 -9.958634171963171D-01, -9.964330603430479D-01,  1.378555297245596D-04, &
 -9.899892964541681D-01, -8.034025241583582D-01,  2.063321727799165D-03, &
 -9.890089603003986D-01, -1.607654105825233D-01,  3.171831815687111D-03, &
 -9.889269890822903D-01,  9.792253114023887D-01,  6.925166147590135D-04, &
 -9.888556249081619D-01,  9.011374451124298D-01,  1.524076231835903D-03, &
 -9.883405484188146D-01,  3.140956912031643D-01,  3.326070006645496D-03, &
 -9.882926852196964D-01,  7.591140506738633D-02,  3.713229391963024D-03, &
 -9.879532633546659D-01, -6.253049497236600D-01,  2.968377985270547D-03, &
 -9.862738466801083D-01, -4.136828994040758D-01,  3.792003832590160D-03, &
 -9.840867690629249D-01, -9.225459592561057D-01,  1.716688686998262D-03, &
 -9.834561801290923D-01,  7.913470127721602D-01,  2.467251464100417D-03, &
 -9.829084684207806D-01,  4.958738236441704D-01,  3.605246991559088D-03, &
 -9.799751230610935D-01, -9.858070723372447D-01,  8.062256820069726D-04, &
 -9.773121022170035D-01,  6.531868802837602D-01,  3.655328649772478D-03, &
 -9.727540699799997D-01, -2.463858035039539D-01,  3.968311046518957D-03, &
 -9.722508392684289D-01,  2.227204587069684D-01,  2.881691797859937D-03, &
 -9.706187607468760D-01, -7.290537686894693D-01,  3.938655209703868D-03, &
 -9.704346881779157D-01,  9.463998760417839D-01,  1.815054306514290D-03, &
 -9.690510704309230D-01,  9.956152727894065D-01,  4.874122727335260D-04, &
 -9.675183125664917D-01, -3.873668624805015D-02,  6.258912209048882D-03, &
 -9.670967144416286D-01, -5.346820717217893D-01,  5.020688484630141D-03, &
 -9.655166141119431D-01, -8.589490689754655D-01,  3.424882118788690D-03, &
 -9.627685982819859D-01,  8.574258075931914D-01,  3.211357083932979D-03, &
 -9.611985315766414D-01,  1.735034523650290D-01,  4.470806430187272D-03, &
 -9.597845726633061D-01,  3.970047952525823D-01,  6.128594443133615D-03, &
 -9.569446290012320D-01, -3.378216199983041D-01,  5.083719898994831D-03, &
 -9.565067320986410D-01, -9.583763747944724D-01,  2.042573269760935D-03, &
 -9.529509863706143D-01,  7.367253684069424D-01,  4.607147767328114D-03, &
 -9.509009916467068D-01, -9.982452717308193D-01,  4.171743785231584D-04, &
 -9.498639131139113D-01,  5.672749857805497D-01,  5.975731307616273D-03, &
 -9.428689649793603D-01, -6.526060553577299D-01,  5.505889774975882D-03, &
 -9.422311181031663D-01,  9.769229657788217D-01,  1.605353293384605D-03, &
 -9.375241836457983D-01, -4.577530187027701D-01,  5.705829120945821D-03, &
 -9.362131629000300D-01, -1.507446207119618D-01,  8.504765626649076D-03, &
 -9.339474938107682D-01,  9.120768210172238D-01,  3.338622941804765D-03, &
 -9.316644572520522D-01, -7.908094170683131D-01,  5.751538344933908D-03, &
 -9.314325437683882D-01,  7.308639756184374D-02,  8.950456494516651D-03, &
 -9.304457837028240D-01, -9.108477682553909D-01,  3.622093803410868D-03, &
 -9.262042777363618D-01,  2.926429789075467D-01,  8.847143966496282D-03, &
 -9.205873982096271D-01,  8.098896505724084D-01,  5.174844527226764D-03, &
 -9.162051560377870D-01, -9.832510479457329D-01,  1.819552993042389D-03, &
 -9.145628768323527D-01, -2.911965871109570D-01,  6.354190461823213D-03, &
 -9.144568861286890D-01,  6.634543776500917D-01,  6.992029249399327D-03, &
 -9.134662288030968D-01,  4.776130498503005D-01,  8.193380404605263D-03, &
 -9.126046852400858D-01,  9.959169009245570D-01,  7.303402358793004D-04, &
 -9.084013096944704D-01, -5.810944597640583D-01,  6.912234750082650D-03, &
 -8.968296850710641D-01, -4.128318260767174D-01,  6.809730423186475D-03, &
 -8.963106431292505D-01,  9.531579778618777D-01,  2.914835462196634D-03, &
 -8.901833704330284D-01, -8.608019888123171D-01,  5.050561896084555D-03, &
 -8.884475404720591D-01, -4.181808934399530D-02,  1.158653342037486D-02, &
 -8.859496918290896D-01, -7.137986488176715D-01,  8.297704906842986D-03, &
 -8.826270793702349D-01,  8.736037565380022D-01,  4.992525221172924D-03, &
 -8.823557325667086D-01,  1.833542443150059D-01,  1.150671440741034D-02, &
 -8.803378140572387D-01, -9.483904752475437D-01,  3.713568296274433D-03, &
 -8.730496783252757D-01, -2.233431485071996D-01,  9.317119532426758D-03, &
 -8.699283953657505D-01,  3.852358620688430D-01,  1.027156006726837D-02, &
 -8.698133028410201D-01,  7.486827472812273D-01,  7.596749165870595D-03, &
 -8.674834848675760D-01,  5.836354021401285D-01,  9.310768477516692D-03, &
 -8.628243813571611D-01, -9.960431212097594D-01,  9.977579306457195D-04, &
 -8.624814683206987D-01,  9.841369657891215D-01,  1.842174250748435D-03, &
 -8.581906826960382D-01, -5.182071016007672D-01,  9.222800088580358D-03, &
 -8.484873092060258D-01, -8.116205306074403D-01,  5.448026047767842D-03, &
 -8.375416835189680D-01,  9.244249381249888D-01,  4.359562847763335D-03, &
 -8.343496291886240D-01, -3.560928009556643D-01,  1.173308803213457D-02, &
 -8.291306871234821D-01,  6.960605157818649D-02,  1.390910739512651D-02, &
 -8.281553984054720D-01, -6.382569464166583D-01,  9.693436224505143D-03, &
 -8.256425444491163D-01, -9.054076217011587D-01,  5.816411318368521D-03, &
 -8.223579984614887D-01,  8.269951489970134D-01,  7.127087970713289D-03, &
 -8.215593436322257D-01,  9.981381538674631D-01,  6.329945045794524D-04, &
 -8.198483858368308D-01, -1.319278740037157D-01,  1.298320952391481D-02, &
 -8.192027189051302D-01,  2.877778785137557D-01,  1.265773788043916D-02, &
 -8.172502785117453D-01, -9.750039267897708D-01,  3.134812108850403D-03, &
 -8.138299706643672D-01,  4.972544598166810D-01,  1.161528697363953D-02, &
 -8.115048842276773D-01,  6.785974006783519D-01,  1.000389489115020D-02, &
 -8.033489337701412D-01, -7.623411898836773D-01,  7.618682602864780D-03, &
 -7.981451309405014D-01,  9.655610226211084D-01,  3.238149495801071D-03, &
 -7.788793515049757D-01, -4.659125664753414D-01,  1.294788836398086D-02, &
 -7.676616475483181D-01,  8.903050218772064D-01,  6.412981842164176D-03, &
 -7.654405876460623D-01, -2.609719605681909D-01,  1.510691545326006D-02, &
 -7.651705117791751D-01, -5.933719404029307D-01,  7.689899801767004D-03, &
 -7.610553487070951D-01, -8.537787359055480D-01,  8.005675846962551D-03, &
 -7.598494916125437D-01,  1.822273140486022D-01,  1.528388680362909D-02, &
 -7.579923742217070D-01, -9.945462254206379D-01,  1.550380002631925D-03, &
 -7.554414721363940D-01,  7.704489057786914D-01,  9.613889207061148D-03, &
 -7.546303325899156D-01, -2.587451873434423D-02,  1.541716632386868D-02, &
 -7.533501105520592D-01,  4.028033457447762D-01,  1.416780003145239D-02, &
 -7.512634680369265D-01, -9.427500341739973D-01,  5.278060834005935D-03, &
 -7.492677967965817D-01,  9.893278319960217D-01,  1.942720461021166D-03, &
 -7.476477835194629D-01,  5.993754192648574D-01,  1.240433786628891D-02, &
 -7.384396341741885D-01, -7.049337544138190D-01,  1.019806600177946D-02, &
 -7.178686225860993D-01,  9.426175650021613D-01,  5.076879608670298D-03, &
 -6.981541470167513D-01, -3.738996976336288D-01,  1.623617174158692D-02, &
 -6.930270182761278D-01, -5.503057726865391D-01,  1.252261832635268D-02, &
 -6.914007366726129D-01, -1.492403377321120D-01,  1.687175767189600D-02, &
 -6.898255514942709D-01,  8.450597437929396D-01,  9.044588739380572D-03, &
 -6.878471762364344D-01, -7.980792470880590D-01,  9.683099148036134D-03, &
 -6.874914713445559D-01,  9.985765065838036D-01,  5.429828741714135D-04, &
 -6.851758646966849D-01,  2.991299533883399D-01,  1.680000628152785D-02, &
 -6.841372891501616D-01, -9.759846205669235D-01,  3.792981482377291D-03, &
 -6.824533415259976D-01,  7.012478423815675D-01,  1.242282959150627D-02, &
 -6.806130791896147D-01,  8.613441527468559D-02,  1.715469593857349D-02, &
 -6.782455218903122D-01,  5.106365783701324D-01,  1.495469178663973D-02, &
 -6.767016667485439D-01, -9.023128892125745D-01,  7.148516270448834D-03, &
 -6.589112285487670D-01,  9.766144758417425D-01,  3.310403467016667D-03, &
 -6.511681540558421D-01, -6.631624128792538D-01,  1.080993463231836D-02, &
 -6.380516344996316D-01, -9.971292836795032D-01,  1.091941596727160D-03, &
 -6.321934701591331D-01,  9.112877114102699D-01,  6.899365963636340D-03, &
 -6.189763674514923D-01, -2.549410517879415D-01,  1.680578646075412D-02, &
 -6.156902457901138D-01, -4.609743414379315D-01,  1.446782156032898D-02, &
 -6.095366081540551D-01, -3.536699015280872D-02,  1.850017035472999D-02, &
 -6.064980319841019D-01,  7.855933379724550D-01,  1.191421549804811D-02, &
 -6.037838321468384D-01, -8.588880336516307D-01,  7.493653196531501D-03, &
 -6.032572636799473D-01,  6.191506051681956D-01,  1.533794488328530D-02, &
 -6.029215218823031D-01,  4.121372818661574D-01,  1.746667230493666D-02, &
 -6.004670419231046D-01,  2.003417792141365D-01,  1.853576294985650D-02, &
 -5.978165937113178D-01, -9.464336654728625D-01,  6.209112452624394D-03, &
 -5.973624658830221D-01, -7.522142533728916D-01,  1.070955771848203D-02, &
 -5.972383581448467D-01,  9.955134418355728D-01,  1.205515802358963D-03, &
 -5.775575710831099D-01, -5.936186239487227D-01,  1.108117334138420D-02, &
 -5.716545691484377D-01,  9.586937694828399D-01,  4.477003194366252D-03, &
 -5.544501743841143D-01, -9.859194586440739D-01,  2.990668121908608D-03, &
 -5.533389067322111D-01,  8.727090179141404D-01,  7.641422231771522D-03, &
 -5.508248111710804D-01, -3.360687262652585D-01,  1.326315896795831D-02, &
 -5.269836692039951D-01, -1.373273675486175D-01,  1.846993932273529D-02, &
 -5.252683048124628D-01,  7.769369828819343D-02,  1.828457505601571D-02, &
 -5.232549472077624D-01, -8.262684949558237D-01,  8.105817403692208D-03, &
 -5.216149653619029D-01, -4.944286105148744D-01,  1.099366935751496D-02, &
 -5.189971990652680D-01,  5.251343160031084D-01,  1.801382551804368D-02, &
 -5.187072221708287D-01,  7.127559592388867D-01,  1.475721541133735D-02, &
 -5.157523922022348D-01, -6.649848553773774D-01,  1.035112521727110D-02, &
 -5.154577487348173D-01,  3.146569819892138D-01,  1.881013777037231D-02, &
 -5.121209365416318D-01,  9.881269957126972D-01,  2.581279958818058D-03, &
 -5.085478436271724D-01, -9.062214676374273D-01,  7.876549270964693D-03, &
 -4.890864408748029D-01,  9.331958642967023D-01,  6.252083630599476D-03, &
 -4.830798048819471D-01,  8.307910647681210D-01,  9.069844919775074D-03, &
 -4.769568695143335D-01, -7.406437471378572D-01,  9.792607423330369D-03, &
 -4.711384868324521D-01, -9.982442886371089D-01,  9.977513750498068D-04, &
 -4.670429883275934D-01, -3.837258048261876D-01,  1.481809931562225D-02, &
 -4.666978361533338D-01, -9.638780668495475D-01,  5.093634425116185D-03, &
 -4.583860333911172D-01, -2.194459707654301D-01,  1.399842259428002D-02, &
 -4.488372720482744D-01,  1.852523019019599D-01,  1.562937178489875D-02, &
 -4.466182114907417D-01,  1.045052032899272D-02,  9.145117658682660D-03, &
 -4.398969646289078D-01, -5.643439180041001D-01,  1.536885553161082D-02, &
 -4.286607785443331D-01,  6.284182834880983D-01,  1.704743034990286D-02, &
 -4.281803723972377D-01,  4.257307629052356D-01,  1.891821754399137D-02, &
 -4.251215127406949D-01,  9.990156228445619D-01,  8.538043330161814D-04, &
 -4.118280892991981D-01,  9.714759276031080D-01,  4.880101949369545D-03, &
 -4.079009162767762D-01, -8.127761432326117D-01,  9.682944715935253D-03, &
 -4.061050423178847D-01, -4.674050637680804D-02,  1.763350006605001D-02, &
 -4.056845643788482D-01, -8.739980868114045D-01,  5.900069010534015D-03, &
 -4.030307435938099D-01,  7.756488822994984D-01,  1.281187876680621D-02, &
 -4.006967431242406D-01,  8.961755809836305D-01,  8.973613291265101D-03, &
 -3.916049226821231D-01, -9.273410115124909D-01,  5.297964504333964D-03, &
 -3.767714330669960D-01, -6.548167260904730D-01,  9.467239374026879D-03, &
 -3.759401992622222D-01,  2.756208903780863D-01,  1.532016187158172D-02, &
 -3.755012873186720D-01, -9.871862321784112D-01,  3.250146148554228D-03, &
 -3.730541368999579D-01, -7.112556629483213D-01,  7.329934266008029D-03, &
 -3.725289366278142D-01, -2.774273474801098D-01,  1.754335020704925D-02, &
 -3.672221731554482D-01, -4.498269623849093D-01,  1.635160912830995D-02, &
 -3.517016115907431D-01,  5.427475370188103D-01,  1.038435257761881D-02, &
 -3.472072906873430D-01,  1.297375715246647D-01,  1.511255362750808D-02, &
 -3.288603177035728D-01,  4.816597830509821D-01,  6.559008197617309D-03, &
 -3.221265382254779D-01, -1.433656648153948D-01,  1.620111125789070D-02, &
 -3.131321362159788D-01,  7.032975112241375D-01,  1.594512703102189D-02, &
 -3.082989492612527D-01, -9.578410503896179D-01,  3.982391593695098D-03, &
 -3.082247018694904D-01,  9.906739284535425D-01,  2.962374733019264D-03, &
 -3.072260057987407D-01,  9.424355086678589D-01,  7.485667285562808D-03, &
 -3.062114826214366D-01, -9.347879939525434D-01,  2.589717354994651D-03, &
 -3.046631601690127D-01,  8.455016733897478D-01,  1.202814315872106D-02, &
 -2.960605213864115D-01, -5.110628541558808D-01,  1.002716095596817D-02, &
 -2.917625758358438D-01,  3.593747168154432D-01,  1.837042545246992D-02, &
 -2.895557314330913D-01, -6.159501875196743D-01,  1.206000739213904D-02, &
 -2.871906599030266D-01, -7.705048149609509D-01,  1.383267273104722D-02, &
 -2.859792213471688D-01, -8.714115510524062D-01,  1.038591281351532D-02, &
 -2.856503520749610D-01,  5.747007863914991D-02,  1.748058432381039D-02, &
 -2.824592805060356D-01,  5.612750161066066D-01,  9.353603746527843D-03, &
 -2.728487335032520D-01, -9.975408583725541D-01,  1.264352449742901D-03, &
 -2.601809045605671D-01, -3.522853948258879D-01,  2.092850963826799D-02, &
 -2.597903214660320D-01, -9.994084053639378D-02,  8.825557728414398D-03, &
 -2.256215566562435D-01,  2.283770326898505D-01,  2.160089195520415D-02, &
 -2.188098462531380D-01, -2.067500347682650D-01,  1.252332154956301D-02, &
 -2.185684926171157D-01, -9.755155987010639D-01,  4.112709587283565D-03, &
 -2.053682577466782D-01,  7.806266036689269D-01,  1.501612574781621D-02, &
 -2.049162099957439D-01,  6.343543635897640D-01,  1.580531156711188D-02, &
 -2.041124215059686D-01, -5.429590922002024D-01,  1.362853247269861D-02, &
 -2.002875030215060D-01,  9.009976779341253D-01,  1.031145511059078D-02, &
 -1.976029493822827D-01,  9.714461314931776D-01,  5.332016356692966D-03, &
 -1.954132400791727D-01,  4.624136298055638D-01,  1.945983666591439D-02, &
 -1.879132665032426D-01, -6.925128794555552D-01,  1.703923942906849D-02, &
 -1.821951153235339D-01, -1.426582763733243D-02,  1.987409951184996D-02, &
 -1.810578998197690D-01, -9.204035043869775D-01,  9.272464757303015D-03, &
 -1.774507741267828D-01,  9.978134769969224D-01,  1.228301960791354D-03, &
 -1.621404219665848D-01, -8.249452802330807D-01,  1.365662754138641D-02, &
 -1.464771076898347D-01, -4.340215233356940D-01,  1.945862436948514D-02, &
 -1.460344552467488D-01, -2.429282629387507D-01,  1.565971349603635D-02, &
 -1.357303124694478D-01, -9.913278393826657D-01,  2.344766960985844D-03, &
 -1.348850451544348D-01,  1.418182577007316D-01,  1.855959179083704D-02, &
 -1.178453467617478D-01,  3.462124048386542D-01,  2.128688457301467D-02, &
 -1.070963545859648D-01,  5.697167424399421D-01,  1.270219547686097D-02, &
 -9.418089864452631D-02,  8.464061176824520D-01,  1.318512157781563D-02, &
 -9.284665135473712D-02,  7.115189151497324D-01,  1.693264777896065D-02, &
 -8.649884288942110D-02,  9.412721885997597D-01,  7.947036543700148D-03, &
 -8.381550837050580D-02, -1.034404718739174D-01,  2.042114347858592D-02, &
 -8.132901275144148D-02, -6.047646884556696D-01,  1.901873006719877D-02, &
 -7.314393059200233D-02, -9.584726090471121D-01,  6.990580671801756D-03, &
 -6.585476015650292D-02,  9.869964307266527D-01,  3.475568911966144D-03, &
 -5.940953281811259D-02, -7.531405908206484D-01,  1.610516174433207D-02, &
 -5.723571915110250D-02, -3.156995009383814D-01,  1.757545073276317D-02, &
 -4.881350872683240D-02, -8.821229556281880D-01,  1.190858000679253D-02, &
 -4.623125113800330D-02, -9.984756475663564D-01,  8.661846411096376D-04, &
 -4.537127170091439D-02,  5.454245190895872D-01,  7.887365308447648D-03, &
 -4.427946025894871D-02,  7.620061393862830D-02,  1.715262718303868D-02, &
 -3.652498887773526D-02, -4.854048438229047D-01,  1.164475499560268D-02, &
 -2.693515118939117D-02,  4.662758740691014D-01,  1.418575874574526D-02, &
 -2.196660636199712D-02,  2.563688847935753D-01,  2.048504486701552D-02, &
 1.684869503861126D-02,  9.985028110516669D-01,  8.343196408295555D-04, &
 1.937078508280643D-02,  7.845643755910120D-01,  1.528657010406891D-02, &
 2.203824694705822D-02,  8.989738024148887D-01,  1.069256626530232D-02, &
 2.241772195214512D-02, -1.754589056829656D-01,  1.981467867657729D-02, &
 2.975250703736150D-02,  1.862596862025734D-03,  1.586261473431975D-02, &
 3.055821004449258D-02, -3.713097808061478D-01,  1.472665339094052D-02, &
 3.289324396609741D-02,  6.432956961893939D-01,  1.864369020889923D-02, &
 3.723492660056246D-02, -9.844719413983402D-01,  4.259554223135243D-03, &
 4.770102526934471D-02,  9.660516213959782D-01,  5.910690727520699D-03, &
 4.835037248406306D-02, -6.721798158089920D-01,  1.837739301039192D-02, &
 5.239032096709587D-02, -5.201345460249732D-01,  1.609773629036364D-02, &
 5.502518798282641D-02, -8.182265682703534D-01,  1.429356112573313D-02, &
 5.830896522283972D-02,  4.016909728418846D-01,  1.831359832124226D-02, &
 6.198731221349852D-02, -9.303653863405975D-01,  9.255582126803446D-03, &
 7.857891643486636D-02,  1.766467214761190D-01,  1.939355213634587D-02, &
 1.208356536244954D-01,  3.216785108904378D-01,  9.071620470626165D-03, &
 1.208368243862543D-01, -2.541561566739803D-01,  2.021580169628961D-02, &
 1.216863587634878D-01,  9.916346904595559D-01,  2.444055246895457D-03, &
 1.232655916759636D-01,  5.414949782908248D-01,  1.986491824292366D-02, &
 1.241778913712552D-01, -4.978636357670361D-02,  1.834144377738077D-02, &
 1.337347631223449D-01,  8.472659711961135D-01,  1.284004194508113D-02, &
 1.466010849626561D-01,  7.236699453278207D-01,  1.678250950273756D-02, &
 1.496400580028691D-01, -9.975365491819376D-01,  1.471039139180874D-03, &
 1.529671602153546D-01, -4.138359329741561D-01,  1.970291306047588D-02, &
 1.553076799904455D-01,  9.825333958721993D-02,  1.331862934874382D-02, &
 1.564393944563869D-01,  9.341317137357775D-01,  8.329285394320438D-03, &
 1.607100339920880D-01, -8.768225824887561D-01,  1.145010706137546D-02, &
 1.633664795918194D-01, -5.876766334680318D-01,  1.831745704958468D-02, &
 1.649345927645013D-01, -7.456333961574857D-01,  1.658594926267819D-02, &
 1.724639115261522D-01, -9.662243526431580D-01,  6.397001220461619D-03, &
 1.856135967174529D-01,  3.019753251009087D-01,  1.604124847134084D-02, &
 2.207568082418493D-01, -1.341768231114187D-01,  2.201353706987977D-02, &
 2.216590623136845D-01,  6.237862843359905D-01,  1.130843281124745D-02, &
 2.222728182351477D-01,  9.767149748533738D-01,  4.270350031153890D-03, &
 2.251913391882167D-01,  4.515133683755246D-01,  1.961372976506132D-02, &
 2.393332091219671D-01,  6.746796047622838D-02,  1.563788629592373D-02, &
 2.454323613661074D-01,  9.987765164968539D-01,  8.734893357177072D-04, &
 2.489948172638105D-01,  2.049235281953148D-01,  1.270930859704317D-02, &
 2.551647790899600D-01, -4.986851928535581D-01,  1.121625142075451D-02, &
 2.569501661619921D-01,  7.948735761125491D-01,  1.372820954751759D-02, &
 2.586452498793473D-01, -9.219424663897881D-01,  8.044149671331794D-03, &
 2.601094175807203D-01, -3.053795751586294D-01,  2.158658189071271D-02, &
 2.633547449910876D-01,  8.921977837870594D-01,  1.019013452355202D-02, &
 2.654090569206588D-01,  6.495375037274833D-01,  8.750452222218987D-03, &
 2.690640635337399D-01, -8.151729320209684D-01,  1.356683615382717D-02, &
 2.728833763425947D-01, -6.617494728362482D-01,  1.691235069293519D-02, &
 2.832389697359580D-01, -4.580344348270283D-01,  7.865208224812631D-03, &
 2.840896766783086D-01, -9.890120421665016D-01,  3.588966784785691D-03, &
 3.151693234434736D-01,  9.534401100755432D-01,  5.557418660257084D-03, &
 3.260081563690662D-01, -1.795252417843553D-02,  2.146401172038991D-02, &
 3.274401122842648D-01,  3.681991260958348D-01,  1.852510306194186D-02, &
 3.284833444644465D-01,  2.189215721397187D-01,  1.439774012533690D-02, &
 3.337782993016923D-01,  5.444183052791469D-01,  1.768422453882693D-02, &
 3.384090593283935D-01, -9.515287291879881D-01,  4.960138634028438D-03, &
 3.438984906707113D-01, -5.371780889807538D-01,  1.068695089769454D-02, &
 3.446230444324452D-01,  7.190351391805496D-01,  1.249860147037258D-02, &
 3.543528388111687D-01,  9.902368488113547D-01,  2.826004111195709D-03, &
 3.602282612815438D-01, -1.947302593649046D-01,  2.173836797361481D-02, &
 3.612552194216351D-01, -7.319208685947469D-01,  1.249441852526187D-02, &
 3.632929794407099D-01, -8.704852750274591D-01,  9.768989552535455D-03, &
 3.744793900580320D-01,  8.286415194062603D-01,  6.671271590709352D-03, &
 3.860890582535335D-01, -3.839824460224215D-01,  2.092918906725470D-02, &
 3.928710017718934D-01,  8.672865777465832D-01,  6.936260220669673D-03, &
 3.931996788966815D-01,  9.279235914180360D-01,  5.272293822412451D-03, &
 4.007261695646738D-01,  1.223557508548206D-01,  1.739277111294605D-02, &
 4.062478163754075D-01, -9.984412635687164D-01,  1.118910221718476D-03, &
 4.106255773005774D-01, -5.988996724168920D-01,  1.562901284122264D-02, &
 4.123501152038699D-01,  7.367091972519042D-01,  4.909337398435131D-03, &
 4.172900522264887D-01, -9.721977396522211D-01,  4.399018232299250D-03, &
 4.314957914891770D-01,  4.647378299513769D-01,  1.657826429386184D-02, &
 4.317959505632551D-01, -7.839966309166440D-01,  1.002961987603591D-02, &
 4.331331185623659D-01,  6.317320218888924D-01,  1.491157542954482D-02, &
 4.400703045168821D-01, -9.090920579494268D-01,  6.758378154370627D-03, &
 4.413453712232151D-01,  3.026452329003297D-01,  1.816222308777934D-02, &
 4.563399517359142D-01,  9.712472856776212D-01,  4.837136504147411D-03, &
 4.566101742568825D-01, -8.299751644192108D-02,  2.070092724204458D-02, &
 4.600940256413679D-01,  7.358720101030228D-02,  9.566565631101559D-03, &
 4.604812529078548D-01,  9.984195308056378D-01,  8.414203442745121D-04, &
 4.808602748352557D-01,  7.905645541015534D-01,  1.052995268205664D-02, &
 4.827694496186490D-01, -2.738930106938465D-01,  2.090057903801916D-02, &
 4.902896825779680D-01, -4.796343698686354D-01,  1.970211671607839D-02, &
 4.980721753534725D-01,  9.157146659597657D-01,  7.088539756844323D-03, &
 4.998104630815455D-01, -6.796065261644658D-01,  1.577525512582634D-02, &
 5.094252232151556D-01, -8.368693540841839D-01,  1.074700155814415D-02, &
 5.192774433643107D-01, -9.883852225797410D-01,  3.036728485600766D-03, &
 5.195781232521763D-01, -9.398491136525347D-01,  6.356409539852770D-03, &
 5.199091809396583D-01,  8.569634476765962D-01,  5.258870099579074D-03, &
 5.229669281084162D-01,  5.594933800929066D-01,  1.395310653595126D-02, &
 5.277471964272620D-01,  2.088203156823199D-01,  1.879162946198670D-02, &
 5.309038668016169D-01,  7.063079812356768D-01,  1.112337221025911D-02, &
 5.382154499373017D-01,  4.065037042579824D-01,  1.597509886966357D-02, &
 5.516901995859222D-01,  2.395725953104485D-02,  1.772537813373606D-02, &
 5.527797967108647D-01,  9.898809035115810D-01,  2.406110601287913D-03, &
 5.750934868747971D-01, -1.608553196274835D-01,  1.999458400282759D-02, &
 5.826416379535926D-01, -5.769647685634977D-01,  1.716174776614503D-02, &
 5.828982582142574D-01, -3.706431888713908D-01,  1.927115149218318D-02, &
 5.850904508510351D-01,  9.536524310311831D-01,  5.849579241942577D-03, &
 5.903129886530973D-01, -7.571779340576262D-01,  1.342299877672259D-02, &
 5.958483435151166D-01,  8.681226767219122D-01,  7.303322832277533D-03, &
 5.993502036615301D-01, -8.879811146186565D-01,  9.100212257108971D-03, &
 6.050183737665353D-01,  6.475724613929950D-01,  1.074862599712923D-02, &
 6.143297462629967D-01,  7.837772856375271D-01,  1.032139260028579D-02, &
 6.153165941746209D-01, -9.665059604638701D-01,  4.843117865525232D-03, &
 6.161439379518383D-01, -9.981214531139727D-01,  9.753216220325940D-04, &
 6.175168884004676D-01,  3.159407352975249D-01,  1.637383804148541D-02, &
 6.217394522871077D-01,  5.078428721394385D-01,  1.362126210274025D-02, &
 6.299826667484392D-01,  1.276627125784212D-01,  1.607743572209873D-02, &
 6.380312602008873D-01,  9.984592465433296D-01,  6.879014666059284D-04, &
 6.619401281471743D-01, -4.910221084647453D-02,  1.800834418028045D-02, &
 6.674023930795736D-01, -4.731419452655840D-01,  1.673528342997327D-02, &
 6.681506875256884D-01, -6.664316392680106D-01,  1.423631431136118D-02, &
 6.699586457560213D-01, -2.582142639784658D-01,  1.831293821635849D-02, &
 6.700629393564212D-01,  9.153625801049049D-01,  7.211301710323832D-03, &
 6.737233221090680D-01,  7.173277865865444D-01,  6.610660635246017D-03, &
 6.745073548792663D-01,  9.808177327151206D-01,  3.335305616421728D-03, &
 6.778146451052540D-01, -8.234922260494466D-01,  1.057682497759063D-02, &
 6.908467734992273D-01, -9.289111905832840D-01,  6.533919963273618D-03, &
 6.953563494538313D-01,  4.185159914801704D-01,  1.411689605267293D-02, &
 6.956622893885850D-01,  5.981008752604229D-01,  1.164860612595941D-02, &
 7.000653188381879D-01,  2.214609724485731D-01,  1.377466770804801D-02, &
 7.037630540132982D-01, -9.876775194786391D-01,  2.680336723639033D-03, &
 7.104138022608364D-01,  8.335936077499366D-01,  9.361402014358680D-03, &
 7.312620222424863D-01,  7.241821704859189D-01,  7.324085688124115D-03, &
 7.377947101997951D-01,  6.019282202794075D-02,  1.545266033002662D-02, &
 7.432626735055564D-01, -5.692902294936619D-01,  1.380983624211225D-02, &
 7.463716527825006D-01, -3.650065781089341D-01,  1.572334278442964D-02, &
 7.473714210847725D-01, -7.438987523094117D-01,  1.119428524509579D-02, &
 7.479060990243412D-01,  9.546404095610349D-01,  4.774712942139564D-03, &
 7.497338213800094D-01, -1.437602092341267D-01,  1.665640989044135D-02, &
 7.551017439728431D-01,  9.959903451333804D-01,  1.228086933220431D-03, &
 7.591482573195993D-01, -8.774194742914248D-01,  7.586269856563272D-03, &
 7.633324906212867D-01,  3.136203740000685D-01,  1.293765982026287D-02, &
 7.650644572872880D-01,  5.091844736715609D-01,  1.189055699839011D-02, &
 7.700358230014746D-01, -9.622554291254800D-01,  4.130632579632251D-03, &
 7.803618979679303D-01,  8.901458109807174D-01,  6.979020029847049D-03, &
 7.864173038832742D-01, -9.978780396924563D-01,  8.523818960483254D-04, &
 7.865539415769538D-01,  6.444528101970656D-01,  9.779082708584302D-03, &
 7.980764438789796D-01,  7.802200932109996D-01,  8.751239749911849D-03, &
 7.998064049263058D-01,  1.573746239393782D-01,  1.153314940800488D-02, &
 8.115339339837927D-01, -6.541157752948943D-01,  1.081501204510849D-02, &
 8.122968512881367D-01, -4.669611624262626D-01,  1.275121734348267D-02, &
 8.172332485051989D-01, -2.537325117758131D-01,  1.424812222167168D-02, &
 8.173520738904602D-01, -8.098997527380203D-01,  8.129789190108278D-03, &
 8.178221088482659D-01,  9.819369149456145D-01,  2.554058729705376D-03, &
 8.203518851901087D-01, -2.848141797141588D-02,  1.462387517662095D-02, &
 8.252880251126054D-01,  4.061913511894648D-01,  1.166744929568591D-02, &
 8.273414827850937D-01, -9.223585802664281D-01,  4.998620758584853D-03, &
 8.407955028132980D-01, -9.831208231993736D-01,  2.226504941332199D-03, &
 8.434816562041050D-01,  9.360798445804146D-01,  4.637841436379602D-03, &
 8.459602643116834D-01,  2.369112261168515D-01,  9.231435360575175D-03, &
 8.471265891317460D-01,  5.607143752033232D-01,  9.370910316615211D-03, &
 8.544039302272810D-01,  8.437316388011586D-01,  6.684546573241642D-03, &
 8.584519706838185D-01,  7.001783215001461D-01,  8.637290041473251D-03, &
 8.691797730219265D-01, -7.293852681306572D-01,  7.916587819483284D-03, &
 8.694955383875622D-01, -5.578683468627721D-01,  9.777395917753213D-03, &
 8.715225068140382D-01,  9.968629229036633D-01,  8.317205346907935D-04, &
 8.737322022500262D-01, -3.624845067925466D-01,  1.142884436428019D-02, &
 8.748455473474397D-01, -8.666688668665444D-01,  5.501879290681462D-03, &
 8.783568279821649D-01, -1.408106351805172D-01,  1.222770107988572D-02, &
 8.807000621010282D-01,  8.577202208035965D-02,  1.208916044443412D-02, &
 8.861191555247315D-01, -9.524587365695271D-01,  2.996809350965912D-03, &
 8.908714545623476D-01,  3.200728941018283D-01,  9.132233939830871D-03, &
 8.918849262329097D-01, -9.953299489673937D-01,  8.349160581858519D-04, &
 8.923957457559257D-01,  4.727862002708382D-01,  7.649082746924224D-03, &
 8.992219867205118D-01,  9.696383870346604D-01,  2.712861853539782D-03, &
 9.037366973903258D-01,  8.982722285187050D-01,  4.553188238165971D-03, &
 9.058049717812220D-01,  7.750612684220821D-01,  6.573933171769569D-03, &
 9.131013487425569D-01,  6.183060481541276D-01,  7.822429485807891D-03, &
 9.152680757385779D-01, -7.967925142545168D-01,  5.472782958925398D-03, &
 9.153194784422245D-01, -6.409066271644237D-01,  7.068811844211731D-03, &
 9.212375062298164D-01, -4.626882296966913D-01,  8.505557437086888D-03, &
 9.241806475212835D-01, -9.073693661022466D-01,  3.491966652690000D-03, &
 9.242655253133358D-01, -2.553881984456130D-01,  9.435712214118857D-03, &
 9.278685381584146D-01, -2.653703926395334D-02,  9.626254172659349D-03, &
 9.292177091225340D-01,  1.981150041249339D-01,  9.120861207209665D-03, &
 9.293709816985555D-01, -9.743419848916115D-01,  1.695761394360294D-03, &
 9.361004878709992D-01,  4.885572309032284D-01,  3.587508119392231D-03, &
 9.386011261575939D-01,  9.923607023625215D-01,  1.027746374416859D-03, &
 9.416316207823281D-01,  3.848246163685812D-01,  5.939044760002660D-03, &
 9.429469392782762D-01, -9.969137251707089D-01,  3.661853125669515D-04, &
 9.451218403684011D-01,  8.425754983796822D-01,  4.380238586156267D-03, &
 9.463230530060351D-01,  9.398320877335458D-01,  2.748352326578851D-03, &
 9.496567334542220D-01,  7.028051861622154D-01,  5.415662354453875D-03, &
 9.504527598249251D-01, -7.179397056605220D-01,  4.858056515732989D-03, &
 9.545502432300008D-01, -8.483672446398389D-01,  3.493614776736699D-03, &
 9.567226666698644D-01, -5.574361090807435D-01,  5.711544750304637D-03, &
 9.604743008370903D-01, -3.634999075225396D-01,  6.518215206604805D-03, &
 9.614350881231609D-01, -9.400793516785635D-01,  2.075637167332280D-03, &
 9.617205731156480D-01, -1.437778684046163D-01,  6.766721124990966D-03, &
 9.627292013618208D-01,  5.526147023410976D-01,  5.203862026907654D-03, &
 9.645339614003799D-01,  8.912679972814096D-02,  6.720220154114170D-03, &
 9.681982898776231D-01, -9.858482988016933D-01,  7.854806252207273D-04, &
 9.684495587062435D-01,  2.941036296126024D-01,  5.195376918064249D-03, &
 9.718043670689287D-01,  9.757438210857030D-01,  1.191159865328584D-03, &
 9.761533852459922D-01,  7.788946250155976D-01,  3.220271808790217D-03, &
 9.766012140635367D-01,  8.955372887998586D-01,  2.409386138666988D-03, &
 9.789182968946982D-01, -7.802922134664675D-01,  2.851798066970247D-03, &
 9.803687856312776D-01, -6.441628855863613D-01,  3.244928766737902D-03, &
 9.822912045411591D-01,  9.984383651196385D-01,  2.341272827142674D-04, &
 9.827025129630593D-01,  4.311771782500267D-01,  3.707882781947956D-03, &
 9.827228609176302D-01, -8.919420074129613D-01,  1.854127115183594D-03, &
 9.832282949134381D-01, -2.444850615823892D-01,  2.565975919898579D-03, &
 9.842695902809974D-01,  6.440248345169696D-01,  3.235673284757067D-03, &
 9.843960342896765D-01, -4.685449063372227D-01,  3.758206611082762D-03, &
 9.863495085969685D-01, -9.979572836369498D-01,  1.885243013566843D-04, &
 9.863894006621330D-01, -3.054206067550260D-02,  4.070957199968271D-03, &
 9.884373933820602D-01, -9.631986863799080D-01,  8.909268125570525D-04, &
 9.889831635646070D-01,  2.001521680789260D-01,  3.415256267259531D-03, &
 9.895486008443393D-01, -2.802400020803678D-01,  1.784951229309678D-03, &
 9.913011952915273D-01,  9.490722861303337D-01,  9.334114310415029D-04, &
 9.939722207265341D-01,  8.378634329981455D-01,  1.348862490324860D-03, &
 9.941405572471773D-01,  5.032506127587780D-01,  1.321839206521580D-03, &
 9.943806852246193D-01, -6.860004265918137D-01,  7.140588378827780D-04, &
 9.957633794231534D-01, -8.360114490592742D-01,  1.041707929268540D-03, &
 9.966883143052717D-01,  7.278496613238243D-01,  1.191792248759857D-03, &
 9.968035955361948D-01, -5.651523666439144D-01,  1.374867996046609D-03, &
 9.968605145969733D-01, -7.336757652882711D-01,  7.990342391998070D-04, &
 9.969384946190634D-01,  9.868433854178995D-01,  2.740236217096047D-04, &
 9.975593611800366D-01,  3.360863758987011D-01,  1.454585250009066D-03, &
 9.978110877289340D-01, -1.465750773024727D-01,  1.377030312298262D-03, &
 9.979325714446113D-01, -9.249224066288942D-01,  4.777113521207585D-04, &
 9.979765814666188D-01, -3.775646733998311D-01,  1.202710471482889D-03, &
 9.980898127659592D-01, -9.874218489978037D-01,  1.849225119026519D-04, &
 9.981040178114964D-01,  8.280125816480956D-02,  1.248796781507533D-03, &
 9.982820382418868D-01,  5.769543802463517D-01,  7.519588496094478D-04, &
 9.990895206748026D-01,  9.085198717249964D-01,  3.348164725496207D-04 /)

  return
end
subroutine smr51 ( xyw )

!*****************************************************************************80
!
!! SMR51 returns the SMR rule of degree 51.
!
!  Discussion:
!
!    DEGREE: 51
!    SYMMETRY: (X,  Y),  (-X, -Y).
!    POINTS CARDINALITY: 462
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*462), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*462)

  xyw = (/ &
 -9.984626432301655D-01,  7.731810731373280D-01,  2.930667077040843D-04, &
 -9.982950612817629D-01, -8.809790422529455D-01,  5.868976563494200D-04, &
 -9.982657143502113D-01, -5.472808378415216D-01,  8.825961580004602D-04, &
 -9.982465196344393D-01, -5.720585061776626D-02,  1.187360397727577D-03, &
 -9.980752383111224D-01,  9.895590629954322D-01,  1.605142582803498D-04, &
 -9.980563050335864D-01,  4.026468127795991D-01,  1.133746118823456D-03, &
 -9.980560915023025D-01,  9.316458011937399D-01,  4.410107005989047D-04, &
 -9.979331148437312D-01, -7.218491788727829D-01,  9.165568347185002D-04, &
 -9.978969853829365D-01,  1.744352247684945D-01,  1.316676065658554D-03, &
 -9.976266468967849D-01, -3.120694338997498D-01,  1.417265243059842D-03, &
 -9.967076640629561D-01,  5.825966069019469D-01,  1.351054193096153D-03, &
 -9.966756982844908D-01, -9.646209210318417D-01,  4.673464325522125D-04, &
 -9.958487588813290D-01,  8.454813315395656D-01,  9.269269947395651D-04, &
 -9.958386434423615D-01, -9.967140264655182D-01,  1.294234585034121D-04, &
 -9.947687668481154D-01,  7.122817636688038D-01,  1.297939923938297D-03, &
 -9.931482649594923D-01, -4.688097799928717D-01,  1.263445560038073D-03, &
 -9.899762961164086D-01, -8.107546466202721D-01,  1.978506208627187D-03, &
 -9.894541209227824D-01, -1.743999916176229D-01,  3.272756891802527D-03, &
 -9.894046340107479D-01,  3.041157495057775D-01,  2.220343118583675D-03, &
 -9.885082901085881D-01,  9.678446822025472D-01,  8.290334262139013D-04, &
 -9.872610044005977D-01, -6.363286357326429D-01,  2.912531649448298D-03, &
 -9.871440151549654D-01,  5.740263552332389D-02,  3.880572488162640D-03, &
 -9.855704338257310D-01,  9.982037827098472D-01,  1.679707148208503D-04, &
 -9.855018569701638D-01, -9.249596493833102D-01,  1.577833631361155D-03, &
 -9.843630383600804D-01,  4.886238428735122D-01,  3.617312818445750D-03, &
 -9.839061975006608D-01,  8.975109105786676D-01,  1.696426511535707D-03, &
 -9.834620733084443D-01, -4.095317899088909D-01,  3.294182229441701D-03, &
 -9.819763154480772D-01,  2.606278193971512D-01,  2.140965174384009D-03, &
 -9.801554723479408D-01, -9.863754508076430D-01,  7.682431569634297D-04, &
 -9.796226493234478D-01,  7.887535957547051D-01,  2.729782607675046D-03, &
 -9.788073039622869D-01,  6.519818446915956D-01,  3.314343051454497D-03, &
 -9.706604253083109D-01, -2.692976728099303D-01,  4.748645217638728D-03, &
 -9.705718320763341D-01, -7.396086944705653D-01,  3.749135556172170D-03, &
 -9.674102004473606D-01, -5.434109773347497D-01,  4.913196335695364D-03, &
 -9.668019398584777D-01, -8.667816625365619D-01,  3.131430980170647D-03, &
 -9.665514792427918D-01,  9.883256946409834D-01,  7.290779022650052D-04, &
 -9.662771630324206D-01, -6.217984707467629D-02,  6.426823016887218D-03, &
 -9.635050607978470D-01,  9.431294630830762D-01,  1.956380667434553D-03, &
 -9.627844810540420D-01,  1.672694103301844D-01,  6.389370066661570D-03, &
 -9.610263909737414D-01,  3.856673360143000D-01,  6.245421895915378D-03, &
 -9.580781208653250D-01, -9.589071798906652D-01,  1.967241617526768D-03, &
 -9.561574884827165D-01,  8.545038074891833D-01,  3.350951463581097D-03, &
 -9.549317791767546D-01,  5.686259325313919D-01,  5.498722518704855D-03, &
 -9.508617818904216D-01, -9.981801380774861D-01,  4.122462038678519D-04, &
 -9.503534180334950D-01,  7.288766888422127D-01,  4.767863642349979D-03, &
 -9.498352776387182D-01, -3.600313059077714D-01,  4.618417760022735D-03, &
 -9.438088288340477D-01, -6.623911600100255D-01,  5.441477466246755D-03, &
 -9.383440437473887D-01, -4.677837297857259D-01,  5.286783724635598D-03, &
 -9.378343978313476D-01,  9.979840227602486D-01,  2.886874404933051D-04, &
 -9.347835826828178D-01, -8.032727461306876D-01,  5.101386107167580D-03, &
 -9.335259963058073D-01, -1.741913013268586D-01,  8.674585526845215D-03, &
 -9.316426596133324D-01,  9.753406841125737D-01,  1.609586813812562D-03, &
 -9.309296248560257D-01, -9.140613176099411D-01,  3.495989691744833D-03, &
 -9.305488551107037D-01,  5.136546721748054D-02,  9.197493230088536D-03, &
 -9.263857355252882D-01,  2.779326048975370D-01,  9.028086779958895D-03, &
 -9.263239701445769D-01,  9.107049422584537D-01,  3.371000191307030D-03, &
 -9.205673142765751D-01,  4.776877088663017D-01,  8.065709176393822D-03, &
 -9.174707990058046D-01, -9.831219824223332D-01,  1.793027637558652D-03, &
 -9.157242077150120D-01,  8.048621575323117D-01,  5.331392481303393D-03, &
 -9.146615254968106D-01,  6.525583504423961D-01,  6.930392199976675D-03, &
 -9.089721587302551D-01, -5.857463675029180D-01,  7.267970782315043D-03, &
 -9.080065935974906D-01, -3.164859240152895D-01,  6.837639413127251D-03, &
 -8.947437970286245D-01, -7.322325765211256D-01,  6.893118586976826D-03, &
 -8.919221754192620D-01,  9.949598324120587D-01,  8.127871134893036D-04, &
 -8.895890260377957D-01, -8.637277108491151D-01,  5.232804117494899D-03, &
 -8.886655773400590D-01,  9.537789903620841D-01,  2.876082206616951D-03, &
 -8.885392464038627D-01, -4.435272092291309D-01,  7.568949220120856D-03, &
 -8.866202065469098D-01, -6.348808497993091D-02,  1.154404882651323D-02, &
 -8.824241243616843D-01,  1.639785341465538D-01,  1.169349797338188D-02, &
 -8.809708780612643D-01, -9.497050899975726D-01,  3.553886416146671D-03, &
 -8.760350227104163D-01,  8.717500400436297D-01,  5.259870620154938D-03, &
 -8.754979784047946D-01,  3.798655264692855D-01,  1.081669329181522D-02, &
 -8.692675323873814D-01,  5.704948013117649D-01,  9.415315641120716D-03, &
 -8.690861109568938D-01,  7.385216965817932D-01,  7.679645948063224D-03, &
 -8.682723849317826D-01, -2.413725440218638D-01,  9.253909164096906D-03, &
 -8.642150696852295D-01, -9.960092787039047D-01,  1.003841753738079D-03, &
 -8.498643855720464D-01, -6.649755550632316D-01,  7.597610473619992D-03, &
 -8.467214017035217D-01, -5.362390367615976D-01,  8.895976060123083D-03, &
 -8.436301872985277D-01,  9.832315944888775D-01,  2.074514135087015D-03, &
 -8.422060631929207D-01, -8.074677442695858D-01,  6.683571843601402D-03, &
 -8.299696186499533D-01,  9.252056406107587D-01,  4.686829064201373D-03, &
 -8.282749185054267D-01,  4.933486591871209D-02,  1.397066501428090D-02, &
 -8.269765469411963D-01, -9.080859052720072D-01,  5.544241952351055D-03, &
 -8.257297950277435D-01, -3.708722000140850D-01,  1.212267988934058D-02, &
 -8.219455142773742D-01,  2.731244055602917D-01,  1.349903286379663D-02, &
 -8.186687694116527D-01,  8.169654336809941D-01,  7.724614247165545D-03, &
 -8.177674865173270D-01, -9.751105570722036D-01,  3.104258903016394D-03, &
 -8.168195553880896D-01, -1.491433592951066D-01,  1.263065366829014D-02, &
 -8.143075811610117D-01,  4.808919934779660D-01,  1.211587707934682D-02, &
 -8.122235222464764D-01,  6.645693263356235D-01,  1.034590169853937D-02, &
 -7.924551682337602D-01,  9.979434118184467D-01,  7.996645031474067D-04, &
 -7.911850724888906D-01, -7.506825569200485D-01,  7.941591929716212D-03, &
 -7.837299301003484D-01, -6.221133816449059D-01,  9.355464426914692D-03, &
 -7.749274054206045D-01,  9.636900992554140D-01,  3.821815982327952D-03, &
 -7.691224233934532D-01, -4.797259824277350D-01,  1.254447144435524D-02, &
 -7.648340229962162D-01, -8.581827935318574D-01,  7.491144670441934D-03, &
 -7.627844940764947D-01,  8.826229759338237D-01,  7.074367688839350D-03, &
 -7.592567621031157D-01,  1.621753494096360D-01,  1.582235203050707D-02, &
 -7.592537632153245D-01, -9.944779325803701D-01,  1.562546451718628D-03, &
 -7.590915957882161D-01, -2.690284231981802D-01,  1.472349868949412D-02, &
 -7.522143486281416D-01, -4.420957762341238D-02,  1.533410434098432D-02, &
 -7.517728783471738D-01,  3.808909146571708D-01,  1.484618411110594D-02, &
 -7.502398495650368D-01,  7.529941361384164D-01,  1.058551634212385D-02, &
 -7.501867381740732D-01, -9.428041484167984D-01,  5.372797181130857D-03, &
 -7.465512348230974D-01,  5.812636029728919D-01,  1.308836850969356D-02, &
 -7.215017997406428D-01, -7.029762664554089D-01,  8.951206614074616D-03, &
 -7.117204454198214D-01,  9.882619725048780D-01,  2.485303732104740D-03, &
 -6.985970094666423D-01, -8.050208586687611D-01,  8.605257870218163D-03, &
 -6.974082194827886D-01,  9.323769900190633D-01,  6.036713475981832D-03, &
 -6.968216588357791D-01, -5.685630259242790D-01,  1.270493967976205D-02, &
 -6.965278443683667D-01, -3.813019527700768D-01,  1.500927174360908D-02, &
 -6.843613518240634D-01, -1.595802737672721D-01,  1.661539044799480D-02, &
 -6.837395418610350D-01,  8.311442230210669D-01,  9.863681583277186D-03, &
 -6.834535427418744D-01, -9.760799862104438D-01,  3.846584874829861D-03, &
 -6.810744539515917D-01,  2.740932444646828D-01,  1.725213516752411D-02, &
 -6.768663568972961D-01,  6.600586241345030D-02,  1.734826728379393D-02, &
 -6.745224370419017D-01,  4.870189903811539D-01,  1.578358047019544D-02, &
 -6.739684725259000D-01,  6.773736800515929D-01,  1.345027777804938D-02, &
 -6.727321115145797D-01, -9.007641976237168D-01,  7.583356682716259D-03, &
 -6.450460332339586D-01, -6.757412229808869D-01,  7.508776080828879D-03, &
 -6.389939293530692D-01, -9.973854338568079D-01,  1.063420084490733D-03, &
 -6.262273709687267D-01,  9.982013719921785D-01,  9.099112612198464D-04, &
 -6.247537179451397D-01,  9.683796791313465D-01,  4.469874771751688D-03, &
 -6.220861512524035D-01, -4.697281748057330D-01,  1.438590125499024D-02, &
 -6.156820155086310D-01, -2.709084325931711D-01,  1.688158496630053D-02, &
 -6.129302881959240D-01, -7.641285676915613D-01,  9.495321490596256D-03, &
 -6.084927218969570D-01,  8.936876664228429D-01,  8.406065647319754D-03, &
 -6.039369653473292D-01, -8.553105132198990D-01,  5.992514339035710D-03, &
 -6.024059992622410D-01, -4.938164236519791D-02,  1.789883159375976D-02, &
 -5.996089026350557D-01,  7.672038662942753D-01,  1.255110376162054D-02, &
 -5.962301970690166D-01, -6.095934069736669D-01,  9.465990926377369D-03, &
 -5.961040200801679D-01,  3.848010075739488D-01,  1.817040820422673D-02, &
 -5.952839737903306D-01, -9.461274496340163D-01,  6.416292856646743D-03, &
 -5.926997294875127D-01,  1.776082891969388D-01,  1.866120408927115D-02, &
 -5.923843694597760D-01,  5.896493007707313D-01,  1.621562787972456D-02, &
 -5.527846142946271D-01, -9.861830959616884D-01,  3.099780098793835D-03, &
 -5.459986569191559D-01, -8.375938371742565D-01,  6.050055084086778D-03, &
 -5.388169516109163D-01, -3.607537832967127D-01,  1.609524415648660D-02, &
 -5.312450979752437D-01,  9.432008243433877D-01,  5.898171201208263D-03, &
 -5.310856361451403D-01, -6.813014817383491D-01,  1.027869913918279D-02, &
 -5.304327612566657D-01,  9.890527261919566D-01,  2.827063130099349D-03, &
 -5.268264010539805D-01, -5.252722734230787D-01,  1.359552165919798D-02, &
 -5.244630726975610D-01, -1.577626633034953D-01,  1.882044362224186D-02, &
 -5.224669683154261D-01,  6.130399485027747D-02,  1.507572575361228D-02, &
 -5.217650146651664D-01,  8.449124099305068D-01,  1.001711474683906D-02, &
 -5.132250082992501D-01,  6.918190741864376D-01,  1.482210020758091D-02, &
 -5.059023911245950D-01,  4.925206672723313D-01,  1.868221045034610D-02, &
 -5.046922823409280D-01, -9.035785351511306D-01,  8.414747616632558D-03, &
 -5.026640169457263D-01,  2.885178419959957D-01,  1.960777274062006D-02, &
 -4.917682812876415D-01, -7.568554964536706D-01,  9.839983273859529D-03, &
 -4.637181860680785D-01, -9.054278376743077D-04,  9.310011516460947D-03, &
 -4.628745793832066D-01, -9.980775898655661D-01,  1.085007318378005D-03, &
 -4.612328243535970D-01, -9.636523905629031D-01,  5.391019613357756D-03, &
 -4.521990532828559D-01,  9.132454907960982D-01,  6.548142672947493D-03, &
 -4.452822066090281D-01,  7.925031022467097D-01,  1.000481753825504D-02, &
 -4.434508659987488D-01, -4.254148994030716D-01,  1.620216257327421D-02, &
 -4.426248172627640D-01, -2.509072334899481D-01,  1.793705768294306D-02, &
 -4.404692204242281D-01, -6.030105930154493D-01,  1.529211567826421D-02, &
 -4.402029273535364D-01,  1.500200794764788D-01,  1.542342490182974D-02, &
 -4.347931405390690D-01, -8.230011687029393D-01,  8.429370045209109D-03, &
 -4.297409120893627D-01,  9.734301034170465D-01,  4.194517995438787D-03, &
 -4.280793712750670D-01,  6.111370786685761D-01,  1.539138011397148D-02, &
 -4.190565853462007D-01,  9.985365756542770D-01,  1.043658595167089D-03, &
 -4.087838261055447D-01,  3.960341312468386D-01,  1.965538234308296D-02, &
 -4.013358778023735D-01, -6.857748024247086D-02,  1.914789477071623D-02, &
 -3.908325740224702D-01, -9.235350202575059D-01,  5.809955546559159D-03, &
 -3.832064070624976D-01, -6.989145768785087D-01,  1.037562767669162D-02, &
 -3.758321036768930D-01,  8.749564346095232D-01,  9.283988967311280D-03, &
 -3.742272834656374D-01,  7.386438108932267D-01,  1.206959551802083D-02, &
 -3.734439819891471D-01, -7.600731641857339D-01,  4.571534994749117D-03, &
 -3.686176671629213D-01, -8.637636801184702D-01,  7.881047457319663D-03, &
 -3.649610153286265D-01,  2.347382351652932D-01,  1.685485671337773D-02, &
 -3.634966464384106D-01, -9.868648166528062D-01,  3.442228582990279D-03, &
 -3.600054767607526D-01,  5.420299693619358D-01,  1.119360645451427D-02, &
 -3.505957261026271D-01, -5.039294885140760D-01,  1.713918706362200D-02, &
 -3.501126585283145D-01,  9.528774489514406D-01,  4.781907234841134D-03, &
 -3.431840305246549D-01, -3.234632166086708D-01,  1.841998237556686D-02, &
 -3.249814204509735D-01,  7.805883807339332D-02,  2.000458123624601D-02, &
 -3.238200997259933D-01, -1.646986314843889D-01,  1.453038910021411D-02, &
 -3.071870647501693D-01,  4.525937353623032D-01,  7.042710134632947D-03, &
 -3.062952672101842D-01, -6.627772715600880D-01,  9.909474136448071D-03, &
 -3.050091209118546D-01, -9.543052172408368D-01,  4.342402989401129D-03, &
 -2.996824040276308D-01,  9.893886367263438D-01,  3.372729439255868D-03, &
 -2.921284081754466D-01, -9.294730734165612D-01,  2.665965363398914D-03, &
 -2.914965364345655D-01,  6.692685855887550D-01,  1.582542223968635D-02, &
 -2.849688540703927D-01,  8.208871837516990D-01,  1.282912704147129D-02, &
 -2.775942437207699D-01, -7.860689613395975D-01,  1.360434664922907D-02, &
 -2.774362772023182D-01,  5.115990505348308D-01,  1.098897677957239D-02, &
 -2.755992085208109D-01,  3.254136406036551D-01,  1.925748460208263D-02, &
 -2.730189749816505D-01, -5.730141929391641D-01,  8.984924690945310D-03, &
 -2.726652774174905D-01,  9.242598423864574D-01,  7.499462320384355D-03, &
 -2.634405915779047D-01, -1.587836571409323D-01,  9.151050686680885D-03, &
 -2.581490524350047D-01, -9.976246277074098D-01,  1.288369519072761D-03, &
 -2.490613945225850D-01, -4.306131655168830D-03,  1.532382255249465D-02, &
 -2.481031816687010D-01, -8.793359713116025D-01,  9.514481983528278D-03, &
 -2.422113837712834D-01, -4.067758048281825D-01,  2.014440359087718D-02, &
 -2.142982700599490D-01, -5.985373158690191D-01,  1.073521366680798D-02, &
 -2.135636186828752D-01, -9.733501320280229D-01,  4.395976260430139D-03, &
 -2.120981534047442D-01, -2.428876390935836D-01,  1.362392033623074D-02, &
 -2.113005630523961D-01,  1.863808573678246D-01,  2.256933019148822D-02, &
 -1.895873328892071D-01,  9.674135332629907D-01,  6.051240317593347D-03, &
 -1.887919907489533D-01,  5.980986332057304D-01,  1.682881188451604D-02, &
 -1.857949999128354D-01,  7.522305689580321D-01,  1.584160022074351D-02, &
 -1.785159586757167D-01,  8.807216617533518D-01,  1.082011427084735D-02, &
 -1.761916572679682D-01,  4.332093347373318D-01,  1.838648906261771D-02, &
 -1.742977443345394D-01, -7.112509510911679D-01,  1.631426543009215D-02, &
 -1.702885707912656D-01,  9.976789076998883D-01,  1.351463488000147D-03, &
 -1.691543181894413D-01, -6.151605950205655D-02,  1.668922632214760D-02, &
 -1.512139533768488D-01, -9.260205563520960D-01,  8.640465753043138D-03, &
 -1.429635335922110D-01, -2.866349030383558D-01,  1.453893632844844D-02, &
 -1.375607617049847D-01, -4.955879381687505D-01,  2.007831161324815D-02, &
 -1.363419810781558D-01, -8.281488459378050D-01,  1.334923028506015D-02, &
 -1.250921268079241D-01, -9.903984650569976D-01,  2.682247880612530D-03, &
 -1.125935592224152D-01,  3.114936705323088D-01,  2.026270260609158D-02, &
 -1.120779617378507D-01,  9.019594046827543D-02,  2.123405804160869D-02, &
 -8.562789192900672D-02,  5.348790809658290D-01,  1.342143700870946D-02, &
 -8.108140369770123D-02,  9.326400187377183D-01,  8.842669360811586D-03, &
 -8.047112887577813D-02, -1.412185710601948D-01,  1.994097452113148D-02, &
 -7.703715921083283D-02,  8.232440020795283D-01,  1.369548566612555D-02, &
 -7.440127659045481D-02,  6.789581696580780D-01,  1.764482626920084D-02, &
 -6.880848892096898D-02, -6.277692461838515D-01,  1.711869621320623D-02, &
 -6.244277913125515D-02, -3.629270311886996D-01,  1.813298184989576D-02, &
 -6.005252974695677D-02,  9.855825278690261D-01,  3.918915934867240D-03, &
 -4.739084718649585D-02, -9.614605234215312D-01,  6.465138335746558D-03, &
 -3.228486396950021D-02, -7.582958812442467D-01,  1.552477272766300D-02, &
 -2.853961004873518D-02, -9.985342967589811D-01,  9.129413317439405D-04, &
 -2.709739827138708D-02, -8.853879813981095D-01,  1.151661207322516D-02, &
 -2.187534604509761D-02,  4.331482264797441D-01,  1.526409630067874D-02, &
 -1.949843130353365D-02,  2.223381624896826D-01,  2.052030171197288D-02, &
 -1.664223141068962D-02,  2.434035865751951D-02,  1.253941316760429D-02, &
 -5.632469283442591D-03, -5.482248741666836D-01,  1.007056710865806D-02, &
 5.632469283442591D-03,  5.482248741666836D-01,  1.007056710865806D-02, &
 1.664223141068962D-02, -2.434035865751951D-02,  1.253941316760429D-02, &
 1.949843130353365D-02, -2.223381624896826D-01,  2.052030171197288D-02, &
 2.187534604509761D-02, -4.331482264797441D-01,  1.526409630067874D-02, &
 2.709739827138708D-02,  8.853879813981095D-01,  1.151661207322516D-02, &
 2.853961004873518D-02,  9.985342967589811D-01,  9.129413317439405D-04, &
 3.228486396950021D-02,  7.582958812442467D-01,  1.552477272766300D-02, &
 4.739084718649585D-02,  9.614605234215312D-01,  6.465138335746558D-03, &
 6.005252974695677D-02, -9.855825278690261D-01,  3.918915934867240D-03, &
 6.244277913125515D-02,  3.629270311886996D-01,  1.813298184989576D-02, &
 6.880848892096898D-02,  6.277692461838515D-01,  1.711869621320623D-02, &
 7.440127659045481D-02, -6.789581696580780D-01,  1.764482626920084D-02, &
 7.703715921083283D-02, -8.232440020795283D-01,  1.369548566612555D-02, &
 8.047112887577813D-02,  1.412185710601948D-01,  1.994097452113148D-02, &
 8.108140369770123D-02, -9.326400187377183D-01,  8.842669360811586D-03, &
 8.562789192900672D-02, -5.348790809658290D-01,  1.342143700870946D-02, &
 1.120779617378507D-01, -9.019594046827543D-02,  2.123405804160869D-02, &
 1.125935592224152D-01, -3.114936705323088D-01,  2.026270260609158D-02, &
 1.250921268079241D-01,  9.903984650569976D-01,  2.682247880612530D-03, &
 1.363419810781558D-01,  8.281488459378050D-01,  1.334923028506015D-02, &
 1.375607617049847D-01,  4.955879381687505D-01,  2.007831161324815D-02, &
 1.429635335922110D-01,  2.866349030383558D-01,  1.453893632844844D-02, &
 1.512139533768488D-01,  9.260205563520960D-01,  8.640465753043138D-03, &
 1.691543181894413D-01,  6.151605950205655D-02,  1.668922632214760D-02, &
 1.702885707912656D-01, -9.976789076998883D-01,  1.351463488000147D-03, &
 1.742977443345394D-01,  7.112509510911679D-01,  1.631426543009215D-02, &
 1.761916572679682D-01, -4.332093347373318D-01,  1.838648906261771D-02, &
 1.785159586757167D-01, -8.807216617533518D-01,  1.082011427084735D-02, &
 1.857949999128354D-01, -7.522305689580321D-01,  1.584160022074351D-02, &
 1.887919907489533D-01, -5.980986332057304D-01,  1.682881188451604D-02, &
 1.895873328892071D-01, -9.674135332629907D-01,  6.051240317593347D-03, &
 2.113005630523961D-01, -1.863808573678246D-01,  2.256933019148822D-02, &
 2.120981534047442D-01,  2.428876390935836D-01,  1.362392033623074D-02, &
 2.135636186828752D-01,  9.733501320280229D-01,  4.395976260430139D-03, &
 2.142982700599490D-01,  5.985373158690191D-01,  1.073521366680798D-02, &
 2.422113837712834D-01,  4.067758048281825D-01,  2.014440359087718D-02, &
 2.481031816687010D-01,  8.793359713116025D-01,  9.514481983528278D-03, &
 2.490613945225850D-01,  4.306131655168830D-03,  1.532382255249465D-02, &
 2.581490524350047D-01,  9.976246277074098D-01,  1.288369519072761D-03, &
 2.634405915779047D-01,  1.587836571409323D-01,  9.151050686680885D-03, &
 2.726652774174905D-01, -9.242598423864574D-01,  7.499462320384355D-03, &
 2.730189749816505D-01,  5.730141929391641D-01,  8.984924690945310D-03, &
 2.755992085208109D-01, -3.254136406036551D-01,  1.925748460208263D-02, &
 2.774362772023182D-01, -5.115990505348308D-01,  1.098897677957239D-02, &
 2.775942437207699D-01,  7.860689613395975D-01,  1.360434664922907D-02, &
 2.849688540703927D-01, -8.208871837516990D-01,  1.282912704147129D-02, &
 2.914965364345655D-01, -6.692685855887550D-01,  1.582542223968635D-02, &
 2.921284081754466D-01,  9.294730734165612D-01,  2.665965363398914D-03, &
 2.996824040276308D-01, -9.893886367263438D-01,  3.372729439255868D-03, &
 3.050091209118546D-01,  9.543052172408368D-01,  4.342402989401129D-03, &
 3.062952672101842D-01,  6.627772715600880D-01,  9.909474136448071D-03, &
 3.071870647501693D-01, -4.525937353623032D-01,  7.042710134632947D-03, &
 3.238200997259933D-01,  1.646986314843889D-01,  1.453038910021411D-02, &
 3.249814204509735D-01, -7.805883807339332D-02,  2.000458123624601D-02, &
 3.431840305246549D-01,  3.234632166086708D-01,  1.841998237556686D-02, &
 3.501126585283145D-01, -9.528774489514406D-01,  4.781907234841134D-03, &
 3.505957261026271D-01,  5.039294885140760D-01,  1.713918706362200D-02, &
 3.600054767607526D-01, -5.420299693619358D-01,  1.119360645451427D-02, &
 3.634966464384106D-01,  9.868648166528062D-01,  3.442228582990279D-03, &
 3.649610153286265D-01, -2.347382351652932D-01,  1.685485671337773D-02, &
 3.686176671629213D-01,  8.637636801184702D-01,  7.881047457319663D-03, &
 3.734439819891471D-01,  7.600731641857339D-01,  4.571534994749117D-03, &
 3.742272834656374D-01, -7.386438108932267D-01,  1.206959551802083D-02, &
 3.758321036768930D-01, -8.749564346095232D-01,  9.283988967311280D-03, &
 3.832064070624976D-01,  6.989145768785087D-01,  1.037562767669162D-02, &
 3.908325740224702D-01,  9.235350202575059D-01,  5.809955546559159D-03, &
 4.013358778023735D-01,  6.857748024247086D-02,  1.914789477071623D-02, &
 4.087838261055447D-01, -3.960341312468386D-01,  1.965538234308296D-02, &
 4.190565853462007D-01, -9.985365756542770D-01,  1.043658595167089D-03, &
 4.280793712750670D-01, -6.111370786685761D-01,  1.539138011397148D-02, &
 4.297409120893627D-01, -9.734301034170465D-01,  4.194517995438787D-03, &
 4.347931405390690D-01,  8.230011687029393D-01,  8.429370045209109D-03, &
 4.402029273535364D-01, -1.500200794764788D-01,  1.542342490182974D-02, &
 4.404692204242281D-01,  6.030105930154493D-01,  1.529211567826421D-02, &
 4.426248172627640D-01,  2.509072334899481D-01,  1.793705768294306D-02, &
 4.434508659987488D-01,  4.254148994030716D-01,  1.620216257327421D-02, &
 4.452822066090281D-01, -7.925031022467097D-01,  1.000481753825504D-02, &
 4.521990532828559D-01, -9.132454907960982D-01,  6.548142672947493D-03, &
 4.612328243535970D-01,  9.636523905629031D-01,  5.391019613357756D-03, &
 4.628745793832066D-01,  9.980775898655661D-01,  1.085007318378005D-03, &
 4.637181860680785D-01,  9.054278376743077D-04,  9.310011516460947D-03, &
 4.917682812876415D-01,  7.568554964536706D-01,  9.839983273859529D-03, &
 5.026640169457263D-01, -2.885178419959957D-01,  1.960777274062006D-02, &
 5.046922823409280D-01,  9.035785351511306D-01,  8.414747616632558D-03, &
 5.059023911245950D-01, -4.925206672723313D-01,  1.868221045034610D-02, &
 5.132250082992501D-01, -6.918190741864376D-01,  1.482210020758091D-02, &
 5.217650146651664D-01, -8.449124099305068D-01,  1.001711474683906D-02, &
 5.224669683154261D-01, -6.130399485027747D-02,  1.507572575361228D-02, &
 5.244630726975610D-01,  1.577626633034953D-01,  1.882044362224186D-02, &
 5.268264010539805D-01,  5.252722734230787D-01,  1.359552165919798D-02, &
 5.304327612566657D-01, -9.890527261919566D-01,  2.827063130099349D-03, &
 5.310856361451403D-01,  6.813014817383491D-01,  1.027869913918279D-02, &
 5.312450979752437D-01, -9.432008243433877D-01,  5.898171201208263D-03, &
 5.388169516109163D-01,  3.607537832967127D-01,  1.609524415648660D-02, &
 5.459986569191559D-01,  8.375938371742565D-01,  6.050055084086778D-03, &
 5.527846142946271D-01,  9.861830959616884D-01,  3.099780098793835D-03, &
 5.923843694597760D-01, -5.896493007707313D-01,  1.621562787972456D-02, &
 5.926997294875127D-01, -1.776082891969388D-01,  1.866120408927115D-02, &
 5.952839737903306D-01,  9.461274496340163D-01,  6.416292856646743D-03, &
 5.961040200801679D-01, -3.848010075739488D-01,  1.817040820422673D-02, &
 5.962301970690166D-01,  6.095934069736669D-01,  9.465990926377369D-03, &
 5.996089026350557D-01, -7.672038662942753D-01,  1.255110376162054D-02, &
 6.024059992622410D-01,  4.938164236519791D-02,  1.789883159375976D-02, &
 6.039369653473292D-01,  8.553105132198990D-01,  5.992514339035710D-03, &
 6.084927218969570D-01, -8.936876664228429D-01,  8.406065647319754D-03, &
 6.129302881959240D-01,  7.641285676915613D-01,  9.495321490596256D-03, &
 6.156820155086310D-01,  2.709084325931711D-01,  1.688158496630053D-02, &
 6.220861512524035D-01,  4.697281748057330D-01,  1.438590125499024D-02, &
 6.247537179451397D-01, -9.683796791313465D-01,  4.469874771751688D-03, &
 6.262273709687267D-01, -9.982013719921785D-01,  9.099112612198464D-04, &
 6.389939293530692D-01,  9.973854338568079D-01,  1.063420084490733D-03, &
 6.450460332339586D-01,  6.757412229808869D-01,  7.508776080828879D-03, &
 6.727321115145797D-01,  9.007641976237168D-01,  7.583356682716259D-03, &
 6.739684725259000D-01, -6.773736800515929D-01,  1.345027777804938D-02, &
 6.745224370419017D-01, -4.870189903811539D-01,  1.578358047019544D-02, &
 6.768663568972961D-01, -6.600586241345030D-02,  1.734826728379393D-02, &
 6.810744539515917D-01, -2.740932444646828D-01,  1.725213516752411D-02, &
 6.834535427418744D-01,  9.760799862104438D-01,  3.846584874829861D-03, &
 6.837395418610350D-01, -8.311442230210669D-01,  9.863681583277186D-03, &
 6.843613518240634D-01,  1.595802737672721D-01,  1.661539044799480D-02, &
 6.965278443683667D-01,  3.813019527700768D-01,  1.500927174360908D-02, &
 6.968216588357791D-01,  5.685630259242790D-01,  1.270493967976205D-02, &
 6.974082194827886D-01, -9.323769900190633D-01,  6.036713475981832D-03, &
 6.985970094666423D-01,  8.050208586687611D-01,  8.605257870218163D-03, &
 7.117204454198214D-01, -9.882619725048780D-01,  2.485303732104740D-03, &
 7.215017997406428D-01,  7.029762664554089D-01,  8.951206614074616D-03, &
 7.465512348230974D-01, -5.812636029728919D-01,  1.308836850969356D-02, &
 7.501867381740732D-01,  9.428041484167984D-01,  5.372797181130857D-03, &
 7.502398495650368D-01, -7.529941361384164D-01,  1.058551634212385D-02, &
 7.517728783471738D-01, -3.808909146571708D-01,  1.484618411110594D-02, &
 7.522143486281416D-01,  4.420957762341238D-02,  1.533410434098432D-02, &
 7.590915957882161D-01,  2.690284231981802D-01,  1.472349868949412D-02, &
 7.592537632153245D-01,  9.944779325803701D-01,  1.562546451718628D-03, &
 7.592567621031157D-01, -1.621753494096360D-01,  1.582235203050707D-02, &
 7.627844940764947D-01, -8.826229759338237D-01,  7.074367688839350D-03, &
 7.648340229962162D-01,  8.581827935318574D-01,  7.491144670441934D-03, &
 7.691224233934532D-01,  4.797259824277350D-01,  1.254447144435524D-02, &
 7.749274054206045D-01, -9.636900992554140D-01,  3.821815982327952D-03, &
 7.837299301003484D-01,  6.221133816449059D-01,  9.355464426914692D-03, &
 7.911850724888906D-01,  7.506825569200485D-01,  7.941591929716212D-03, &
 7.924551682337602D-01, -9.979434118184467D-01,  7.996645031474067D-04, &
 8.122235222464764D-01, -6.645693263356235D-01,  1.034590169853937D-02, &
 8.143075811610117D-01, -4.808919934779660D-01,  1.211587707934682D-02, &
 8.168195553880896D-01,  1.491433592951066D-01,  1.263065366829014D-02, &
 8.177674865173270D-01,  9.751105570722036D-01,  3.104258903016394D-03, &
 8.186687694116527D-01, -8.169654336809941D-01,  7.724614247165545D-03, &
 8.219455142773742D-01, -2.731244055602917D-01,  1.349903286379663D-02, &
 8.257297950277435D-01,  3.708722000140850D-01,  1.212267988934058D-02, &
 8.269765469411963D-01,  9.080859052720072D-01,  5.544241952351055D-03, &
 8.282749185054267D-01, -4.933486591871209D-02,  1.397066501428090D-02, &
 8.299696186499533D-01, -9.252056406107587D-01,  4.686829064201373D-03, &
 8.422060631929207D-01,  8.074677442695858D-01,  6.683571843601402D-03, &
 8.436301872985277D-01, -9.832315944888775D-01,  2.074514135087015D-03, &
 8.467214017035217D-01,  5.362390367615976D-01,  8.895976060123083D-03, &
 8.498643855720464D-01,  6.649755550632316D-01,  7.597610473619992D-03, &
 8.642150696852295D-01,  9.960092787039047D-01,  1.003841753738079D-03, &
 8.682723849317826D-01,  2.413725440218638D-01,  9.253909164096906D-03, &
 8.690861109568938D-01, -7.385216965817932D-01,  7.679645948063224D-03, &
 8.692675323873814D-01, -5.704948013117649D-01,  9.415315641120716D-03, &
 8.754979784047946D-01, -3.798655264692855D-01,  1.081669329181522D-02, &
 8.760350227104163D-01, -8.717500400436297D-01,  5.259870620154938D-03, &
 8.809708780612643D-01,  9.497050899975726D-01,  3.553886416146671D-03, &
 8.824241243616843D-01, -1.639785341465538D-01,  1.169349797338188D-02, &
 8.866202065469098D-01,  6.348808497993091D-02,  1.154404882651323D-02, &
 8.885392464038627D-01,  4.435272092291309D-01,  7.568949220120856D-03, &
 8.886655773400590D-01, -9.537789903620841D-01,  2.876082206616951D-03, &
 8.895890260377957D-01,  8.637277108491151D-01,  5.232804117494899D-03, &
 8.919221754192620D-01, -9.949598324120587D-01,  8.127871134893036D-04, &
 8.947437970286245D-01,  7.322325765211256D-01,  6.893118586976826D-03, &
 9.080065935974906D-01,  3.164859240152895D-01,  6.837639413127251D-03, &
 9.089721587302551D-01,  5.857463675029180D-01,  7.267970782315043D-03, &
 9.146615254968106D-01, -6.525583504423961D-01,  6.930392199976675D-03, &
 9.157242077150120D-01, -8.048621575323117D-01,  5.331392481303393D-03, &
 9.174707990058046D-01,  9.831219824223332D-01,  1.793027637558652D-03, &
 9.205673142765751D-01, -4.776877088663017D-01,  8.065709176393822D-03, &
 9.263239701445769D-01, -9.107049422584537D-01,  3.371000191307030D-03, &
 9.263857355252882D-01, -2.779326048975370D-01,  9.028086779958895D-03, &
 9.305488551107037D-01, -5.136546721748054D-02,  9.197493230088536D-03, &
 9.309296248560257D-01,  9.140613176099411D-01,  3.495989691744833D-03, &
 9.316426596133324D-01, -9.753406841125737D-01,  1.609586813812562D-03, &
 9.335259963058073D-01,  1.741913013268586D-01,  8.674585526845215D-03, &
 9.347835826828178D-01,  8.032727461306876D-01,  5.101386107167580D-03, &
 9.378343978313476D-01, -9.979840227602486D-01,  2.886874404933051D-04, &
 9.383440437473887D-01,  4.677837297857259D-01,  5.286783724635598D-03, &
 9.438088288340477D-01,  6.623911600100255D-01,  5.441477466246755D-03, &
 9.498352776387182D-01,  3.600313059077714D-01,  4.618417760022735D-03, &
 9.503534180334950D-01, -7.288766888422127D-01,  4.767863642349979D-03, &
 9.508617818904216D-01,  9.981801380774861D-01,  4.122462038678519D-04, &
 9.549317791767546D-01, -5.686259325313919D-01,  5.498722518704855D-03, &
 9.561574884827165D-01, -8.545038074891833D-01,  3.350951463581097D-03, &
 9.580781208653250D-01,  9.589071798906652D-01,  1.967241617526768D-03, &
 9.610263909737414D-01, -3.856673360143000D-01,  6.245421895915378D-03, &
 9.627844810540420D-01, -1.672694103301844D-01,  6.389370066661570D-03, &
 9.635050607978470D-01, -9.431294630830762D-01,  1.956380667434553D-03, &
 9.662771630324206D-01,  6.217984707467629D-02,  6.426823016887218D-03, &
 9.665514792427918D-01, -9.883256946409834D-01,  7.290779022650052D-04, &
 9.668019398584777D-01,  8.667816625365619D-01,  3.131430980170647D-03, &
 9.674102004473606D-01,  5.434109773347497D-01,  4.913196335695364D-03, &
 9.705718320763341D-01,  7.396086944705653D-01,  3.749135556172170D-03, &
 9.706604253083109D-01,  2.692976728099303D-01,  4.748645217638728D-03, &
 9.788073039622869D-01, -6.519818446915956D-01,  3.314343051454497D-03, &
 9.796226493234478D-01, -7.887535957547051D-01,  2.729782607675046D-03, &
 9.801554723479408D-01,  9.863754508076430D-01,  7.682431569634297D-04, &
 9.819763154480772D-01, -2.606278193971512D-01,  2.140965174384009D-03, &
 9.834620733084443D-01,  4.095317899088909D-01,  3.294182229441701D-03, &
 9.839061975006608D-01, -8.975109105786676D-01,  1.696426511535707D-03, &
 9.843630383600804D-01, -4.886238428735122D-01,  3.617312818445750D-03, &
 9.855018569701638D-01,  9.249596493833102D-01,  1.577833631361155D-03, &
 9.855704338257310D-01, -9.982037827098472D-01,  1.679707148208503D-04, &
 9.871440151549654D-01, -5.740263552332389D-02,  3.880572488162640D-03, &
 9.872610044005977D-01,  6.363286357326429D-01,  2.912531649448298D-03, &
 9.885082901085881D-01, -9.678446822025472D-01,  8.290334262139013D-04, &
 9.894046340107479D-01, -3.041157495057775D-01,  2.220343118583675D-03, &
 9.894541209227824D-01,  1.743999916176229D-01,  3.272756891802527D-03, &
 9.899762961164086D-01,  8.107546466202721D-01,  1.978506208627187D-03, &
 9.931482649594923D-01,  4.688097799928717D-01,  1.263445560038073D-03, &
 9.947687668481154D-01, -7.122817636688038D-01,  1.297939923938297D-03, &
 9.958386434423615D-01,  9.967140264655182D-01,  1.294234585034121D-04, &
 9.958487588813290D-01, -8.454813315395656D-01,  9.269269947395651D-04, &
 9.966756982844908D-01,  9.646209210318417D-01,  4.673464325522125D-04, &
 9.967076640629561D-01, -5.825966069019469D-01,  1.351054193096153D-03, &
 9.976266468967849D-01,  3.120694338997498D-01,  1.417265243059842D-03, &
 9.978969853829365D-01, -1.744352247684945D-01,  1.316676065658554D-03, &
 9.979331148437312D-01,  7.218491788727829D-01,  9.165568347185002D-04, &
 9.980560915023025D-01, -9.316458011937399D-01,  4.410107005989047D-04, &
 9.980563050335864D-01, -4.026468127795991D-01,  1.133746118823456D-03, &
 9.980752383111224D-01, -9.895590629954322D-01,  1.605142582803498D-04, &
 9.982465196344393D-01,  5.720585061776626D-02,  1.187360397727577D-03, &
 9.982657143502113D-01,  5.472808378415216D-01,  8.825961580004602D-04, &
 9.982950612817629D-01,  8.809790422529455D-01,  5.868976563494200D-04, &
 9.984626432301655D-01, -7.731810731373280D-01,  2.930667077040843D-04 /)

  return
end
subroutine smr52 ( xyw )

!*****************************************************************************80
!
!! SMR52 returns the SMR rule of degree 52.
!
!  Discussion:
!
!    DEGREE: 52
!    SYMMETRY: (X,  Y),  (-X, -Y).
!    POINTS CARDINALITY: 493
!    NORM INF MOMS. RESIDUAL: 1.77636e-15
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*493), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*493)

  xyw = (/ &
 -9.988127014409341D-01, -9.436524211624828D-01,  2.625526521558170D-04, &
 -9.987672107909694D-01,  6.030206237885709D-01,  5.695969962358445D-04, &
 -9.985482219550218D-01, -5.039975022757507D-02,  7.711038314291110D-04, &
 -9.984716084730251D-01,  1.648465544907188D-01,  9.876559621004946D-04, &
 -9.983247427277899D-01,  9.851489095644117D-01,  1.847474866940015D-04, &
 -9.981050848344004D-01, -9.897892710317165D-01,  1.455770846634000D-04, &
 -9.980702320219238D-01, -8.710220064295600D-01,  3.606265853945270D-04, &
 -9.980157290478607D-01,  3.823621895788871D-01,  1.084084984803506D-03, &
 -9.979067456855214D-01, -3.075229364789735D-01,  1.191752453605670D-03, &
 -9.976530827260541D-01, -4.990560694030991D-01,  1.016394895068514D-03, &
 -9.976275687951667D-01,  7.452570753224620D-01,  7.962338632193404D-04, &
 -9.975360338995326D-01,  9.261655839467660D-01,  4.882884021026501D-04, &
 -9.975285341692078D-01, -6.928059429685538D-01,  9.702964010210698D-04, &
 -9.953470417114124D-01,  8.469149414179490D-01,  1.047597310781277D-03, &
 -9.949171976648574D-01, -8.070683057038244D-01,  1.108166020112025D-03, &
 -9.944164425670770D-01, -5.787407343604202D-01,  7.129063333926422D-04, &
 -9.941125375307870D-01, -1.470529960706050D-01,  1.642945733107137D-03, &
 -9.940811335498559D-01,  5.262691220462341D-01,  1.362380806792382D-03, &
 -9.897485255752738D-01,  5.394829132785462D-02,  2.963671420601588D-03, &
 -9.892180378042456D-01, -9.087168466804317D-01,  1.131388755188889D-03, &
 -9.889422632399338D-01,  2.713380420380118D-01,  3.125665368172544D-03, &
 -9.885261339590784D-01,  6.719762287559811D-01,  2.097374310513504D-03, &
 -9.884080307277354D-01,  9.975758923464908D-01,  1.953339748936135D-04, &
 -9.882332182747464D-01, -9.695741031299449D-01,  7.675549180338620D-04, &
 -9.877426889646129D-01,  9.620340499987866D-01,  8.981773684854589D-04, &
 -9.866490694768677D-01, -4.072569387119710D-01,  3.309040261667309D-03, &
 -9.862080286100734D-01, -9.979989708388572D-01,  1.771493432242450D-04, &
 -9.850029364942529D-01, -6.122812872550168D-01,  2.518297727094817D-03, &
 -9.837180977617805D-01,  4.565187303545456D-01,  2.849889245739051D-03, &
 -9.828587452609784D-01, -2.237836811810542D-01,  3.333021131510325D-03, &
 -9.812038715498557D-01, -7.470892816031330D-01,  2.670944794198278D-03, &
 -9.804090236453241D-01,  7.865707923823555D-01,  2.595590100008589D-03, &
 -9.803632387653639D-01,  8.971515025804927D-01,  1.885488419687061D-03, &
 -9.744321506843910D-01, -8.554737714830845D-01,  2.459646855887305D-03, &
 -9.742163651294308D-01,  6.008292093097657D-01,  2.870907182669987D-03, &
 -9.729683924479909D-01, -5.587440042487817D-02,  4.917833265113004D-03, &
 -9.697112617400576D-01,  1.602542576828755D-01,  5.452176079736804D-03, &
 -9.680411604163617D-01,  9.857573537516288D-01,  8.708152215923545D-04, &
 -9.671487130651160D-01, -5.124328504244583D-01,  4.833032752395291D-03, &
 -9.660915478928949D-01, -9.410399722417206D-01,  1.871973610506917D-03, &
 -9.654667822672215D-01,  3.609268066648831D-01,  5.184591828903681D-03, &
 -9.639431956447733D-01, -9.879198529552836D-01,  8.794879382184762D-04, &
 -9.614660794937132D-01, -3.152384510082097D-01,  5.556266122517595D-03, &
 -9.578505518072694D-01, -6.724291809200033D-01,  4.600539485987667D-03, &
 -9.577920524303927D-01,  9.419676523596269D-01,  2.067193179306530D-03, &
 -9.565901478096345D-01,  7.131943261709114D-01,  4.501746579124314D-03, &
 -9.563856659236216D-01,  5.366994723963830D-01,  4.091039972256468D-03, &
 -9.547002111419167D-01,  8.456829919243595D-01,  3.449895771139099D-03, &
 -9.480347148392301D-01, -7.980108126871678D-01,  4.091232197362770D-03, &
 -9.466546601107151D-01, -1.535515771237759D-01,  6.528301611585182D-03, &
 -9.407727344940110D-01,  9.974474996682516D-01,  4.106004179329372D-04, &
 -9.406336688240443D-01,  4.809416959792988D-02,  7.867342756512173D-03, &
 -9.385942706076326D-01, -8.971257377253743D-01,  3.361963450252926D-03, &
 -9.374484562304576D-01, -4.280910958367013D-01,  5.268531158388501D-03, &
 -9.355541598304502D-01,  2.580629240689983D-01,  7.741872807667612D-03, &
 -9.298520361643660D-01,  4.530291593891102D-01,  6.861969988622674D-03, &
 -9.288002329410462D-01, -9.982636344108895D-01,  4.247627014166712D-04, &
 -9.286076316092796D-01, -9.683702815657360D-01,  2.067880829241110D-03, &
 -9.273140499128685D-01, -5.830164942292532D-01,  6.818967325836010D-03, &
 -9.241333130400774D-01,  9.730541529028506D-01,  1.883965192232535D-03, &
 -9.237428919656653D-01,  9.027306131882519D-01,  3.504902468774958D-03, &
 -9.235277754610037D-01,  6.312812357563800D-01,  6.653238342342486D-03, &
 -9.201554641362426D-01,  7.828842024684245D-01,  5.399263941930352D-03, &
 -9.146048961351547D-01, -3.818203957693841D-01,  3.883204055435776D-03, &
 -9.134571331269357D-01, -7.302858649211827D-01,  5.936946390067688D-03, &
 -9.127061051003793D-01, -2.440926271600780D-01,  7.778151311059332D-03, &
 -9.000460112835083D-01, -5.999759307515896D-02,  1.006988417423119D-02, &
 -8.993673287617778D-01, -8.451235123042792D-01,  5.132639563405409D-03, &
 -8.951339292576600D-01,  1.501613851250017D-01,  1.029518732475798D-02, &
 -8.900418335246519D-01, -9.336515985913562D-01,  3.643970310522402D-03, &
 -8.898728450490625D-01,  3.576291382984933D-01,  9.637275856624482D-03, &
 -8.857738818343428D-01,  9.936543288762641D-01,  1.022984433880787D-03, &
 -8.818416083906041D-01,  9.450853611425074D-01,  3.145523188534807D-03, &
 -8.817749203273469D-01, -4.932298853007941D-01,  9.084000283221681D-03, &
 -8.814761392195805D-01,  5.416562961189009D-01,  9.072290159833062D-03, &
 -8.809406948295482D-01,  8.535407316796645D-01,  5.347074653297229D-03, &
 -8.798020856626885D-01, -9.884352690470977D-01,  1.656645365945089D-03, &
 -8.768241727520295D-01,  7.105750002763417D-01,  7.595594780779568D-03, &
 -8.743313495697173D-01, -6.501013827893755D-01,  7.766100758953991D-03, &
 -8.675207720318823D-01, -3.252706153983532D-01,  8.588815830823287D-03, &
 -8.531346041372393D-01, -7.827795724666364D-01,  6.991254752878786D-03, &
 -8.485014584070562D-01, -1.648574733809313D-01,  1.202856513087624D-02, &
 -8.434761432300958D-01,  4.179466117573257D-02,  1.258022009476385D-02, &
 -8.393214861404557D-01, -8.894108000250006D-01,  5.524277448717241D-03, &
 -8.391818467944713D-01,  2.545179546089011D-01,  1.225926031029606D-02, &
 -8.389010580797999D-01,  9.785599021539588D-01,  2.201494437849886D-03, &
 -8.333919059785300D-01,  9.103106242715236D-01,  4.477470554220304D-03, &
 -8.311563781350246D-01, -9.635256164514960D-01,  3.376010197250481D-03, &
 -8.298217920912521D-01,  7.941332222788777D-01,  7.533564430897306D-03, &
 -8.290685095371755D-01,  4.482650209711272D-01,  1.149566481976958D-02, &
 -8.246295014835788D-01,  6.305997501362324D-01,  1.002133619364441D-02, &
 -8.207113611081525D-01, -5.682370182998021D-01,  9.882671274606030D-03, &
 -8.184340779238838D-01, -4.076114937064008D-01,  1.051088940238909D-02, &
 -8.157166374300039D-01, -9.978562540287571D-01,  7.535666678414864D-04, &
 -8.078488627527156D-01, -7.069269989950133D-01,  8.137719625036887D-03, &
 -8.030595241917000D-01,  9.978144889761291D-01,  7.398767813052343D-04, &
 -7.837853688110477D-01, -2.620814341544582D-01,  1.356775659591216D-02, &
 -7.828099445346539D-01,  9.554066491475680D-01,  3.742102504728495D-03, &
 -7.821811758153498D-01, -8.335204770344818D-01,  7.560387964952924D-03, &
 -7.806111270198954D-01,  8.684234719628749D-01,  6.102001596168975D-03, &
 -7.803524467869071D-01, -6.465757120579249D-02,  1.471759892403581D-02, &
 -7.781302732885756D-01,  1.478929640026117D-01,  1.455413037861192D-02, &
 -7.699048258009954D-01, -9.276274655447458D-01,  5.304525007717353D-03, &
 -7.695306270777027D-01,  7.257931943974629D-01,  1.003569188582270D-02, &
 -7.682303760797261D-01,  3.499626949711698D-01,  1.375880064922265D-02, &
 -7.631751201806299D-01,  5.447749679670292D-01,  1.242753039931487D-02, &
 -7.596138287899911D-01, -9.835396090923282D-01,  2.607052889697995D-03, &
 -7.538052521221817D-01, -4.841495100795145D-01,  1.150926269265990D-02, &
 -7.454457200592598D-01, -6.328463240917150D-01,  1.022935020395876D-02, &
 -7.377478072703448D-01, -7.556338792328159D-01,  7.532798021311965D-03, &
 -7.352232084975729D-01,  9.868858130897517D-01,  2.411113681116213D-03, &
 -7.198141234443793D-01,  8.186185822277544D-01,  8.298549121304033D-03, &
 -7.182219035413855D-01,  9.224204584112459D-01,  5.742283577427958D-03, &
 -7.128567090368071D-01, -3.559798783186696D-01,  1.405749666059914D-02, &
 -7.053617504255151D-01,  4.264400312830402D-02,  1.671342637637877D-02, &
 -7.048221835776498D-01, -1.660772434082720D-01,  1.620416954102582D-02, &
 -7.028328208733023D-01, -8.796259271763389D-01,  7.428666069379373D-03, &
 -7.005292342230423D-01,  2.490631256735430D-01,  1.528459322279345D-02, &
 -7.004349479969345D-01,  6.487283853703079D-01,  1.261520225658359D-02, &
 -6.939940634234720D-01,  4.522675627245327D-01,  1.477231723739015D-02, &
 -6.903338552941003D-01, -9.562199287411650D-01,  4.558348175052095D-03, &
 -6.871780610546661D-01, -9.960902675679658D-01,  1.281042369432823D-03, &
 -6.751199651659419D-01, -7.954841412473590D-01,  6.801383287420498D-03, &
 -6.746711192530436D-01, -5.537611273503755D-01,  1.197946633058212D-02, &
 -6.594485902401920D-01, -6.893928585162992D-01,  1.054328271246189D-02, &
 -6.589580171205064D-01,  9.979540800990127D-01,  9.138061267054189D-04, &
 -6.581546857660769D-01,  9.651549901275206D-01,  4.438106561226704D-03, &
 -6.508115469743178D-01,  7.593018044169728D-01,  1.059590935519099D-02, &
 -6.442960669971189D-01,  8.800883973543062D-01,  8.056539860531373D-03, &
 -6.342911650570392D-01, -4.362965821626758D-01,  1.297306553921443D-02, &
 -6.311270608623304D-01,  1.623081864679719D-01,  1.169419850392987D-02, &
 -6.236113280952295D-01,  5.626303448491500D-01,  1.512993252997899D-02, &
 -6.230699212989589D-01, -2.676031853187564D-01,  1.701679082042949D-02, &
 -6.228316359543020D-01, -6.139199670125942D-02,  1.791234833004659D-02, &
 -6.180167254452483D-01,  3.536311947236717D-01,  1.688041459255943D-02, &
 -6.139917320508425D-01, -9.166124328923988D-01,  6.752267430799639D-03, &
 -6.135997420321182D-01, -9.785871069978234D-01,  3.265291929749685D-03, &
 -6.049437626707715D-01, -8.348685175419790D-01,  7.920079758120289D-03, &
 -5.924156072192565D-01,  1.122151337459072D-01,  9.854536189651026D-03, &
 -5.808954536963412D-01, -6.144989257211043D-01,  1.238347439918297D-02, &
 -5.771402248064471D-01,  6.916411158262615D-01,  1.234940827737965D-02, &
 -5.727489353537671D-01, -7.435597296984338D-01,  1.009808411716704D-02, &
 -5.727126755704744D-01,  9.873108745063405D-01,  2.892689438784615D-03, &
 -5.726969487730084D-01,  9.340439611874428D-01,  6.716170602729774D-03, &
 -5.641880535367902D-01,  8.278878381092918D-01,  1.034186096378337D-02, &
 -5.619751160626054D-01, -9.957490800477657D-01,  1.306397050035806D-03, &
 -5.595114849904512D-01, -4.950932951701612D-01,  1.012055396521365D-02, &
 -5.404408181688395D-01,  4.682798275107506D-01,  1.740850053308458D-02, &
 -5.346178912468168D-01, -1.658145193211824D-01,  1.879896919108429D-02, &
 -5.316901221553333D-01,  2.545384708233044D-01,  1.840778394220723D-02, &
 -5.304417973198247D-01, -3.592809785284879D-01,  1.695143266847294D-02, &
 -5.280451477489559D-01, -9.481339086199096D-01,  5.577814969827481D-03, &
 -5.221322143523578D-01,  2.800952111551927D-02,  1.767290541941230D-02, &
 -5.151186905025813D-01, -8.730519403291820D-01,  8.112883844601817D-03, &
 -5.020061912373424D-01,  6.192421120294556D-01,  1.353861723690707D-02, &
 -4.903530401754813D-01, -7.931258003876139D-01,  8.399071608732376D-03, &
 -4.865831129729520D-01,  9.982345574079382D-01,  8.888257339789671D-04, &
 -4.846013662166668D-01, -6.763247187729596D-01,  1.217250051276967D-02, &
 -4.839999766820920D-01,  8.928758009749419D-01,  8.937216600833743D-03, &
 -4.825855280212472D-01, -5.431509513734653D-01,  1.183707346969829D-02, &
 -4.823249529225693D-01,  7.660844388757198D-01,  1.216788713755992D-02, &
 -4.796646373118009D-01, -9.806365591887873D-01,  2.997919914508063D-03, &
 -4.767777412147164D-01,  9.670704183485596D-01,  5.199287981007803D-03, &
 -4.578606953009008D-01,  3.653266008375833D-01,  1.471515179826852D-02, &
 -4.457848210286569D-01,  1.456094511265953D-01,  1.865104111169145D-02, &
 -4.379382988456925D-01, -2.629650176911282D-01,  1.846921409696814D-02, &
 -4.348650881002861D-01, -9.972784483849305D-01,  1.074202056193302D-03, &
 -4.322726489605065D-01, -7.297583238110245D-02,  1.906793743471395D-02, &
 -4.275919441110620D-01, -4.360820986786115D-01,  1.573633000734291D-02, &
 -4.270673912729934D-01, -9.090686566218157D-01,  7.431022374141501D-03, &
 -4.254326005730727D-01,  5.424147018907464D-01,  1.524591494142875D-02, &
 -4.034134004690716D-01,  4.015985647828361D-01,  8.132984537933393D-03, &
 -4.019562701112450D-01, -7.422749928931541D-01,  8.984384832841273D-03, &
 -4.007956316021173D-01,  6.977544690649647D-01,  1.324825764743806D-02, &
 -3.970394499889119D-01,  8.417028483702832D-01,  1.064019181372773D-02, &
 -3.962311519387068D-01, -8.266178179921937D-01,  8.217747940915577D-03, &
 -3.925693641275523D-01, -6.062484728313788D-01,  1.307080472085916D-02, &
 -3.914186598228789D-01,  9.913544137855500D-01,  2.245607042588322D-03, &
 -3.907636956098022D-01, -9.581583494234572D-01,  4.727344394460009D-03, &
 -3.802684631916854D-01,  9.356425085799084D-01,  7.546845180916252D-03, &
 -3.667235432096608D-01,  2.538377799106385D-01,  1.802700518759309D-02, &
 -3.542077324305666D-01,  3.400725316094907D-02,  1.656276879967741D-02, &
 -3.382472441767229D-01, -1.769861959933089D-01,  1.695133386076922D-02, &
 -3.360507944158749D-01, -9.870600771841807D-01,  2.993500538686252D-03, &
 -3.321333158476729D-01, -3.472770242047587D-01,  1.692208839910539D-02, &
 -3.283161387055968D-01, -5.022338788020836D-01,  1.384987928124117D-02, &
 -3.234470453782608D-01,  4.749702348708390D-01,  1.664727618065397D-02, &
 -3.202148987380042D-01,  7.835525766177759D-01,  1.004319161998912D-02, &
 -3.190832382601436D-01,  6.269941745416843D-01,  1.454224638443978D-02, &
 -3.189860391580026D-01, -8.607035592419185D-01,  8.155361325578816D-03, &
 -3.171223960288885D-01,  9.776396030267889D-01,  3.392812344765450D-03, &
 -3.152599194498346D-01, -6.813908984973552D-01,  1.112163469352541D-02, &
 -3.048189974393888D-01, -7.518549520866326D-01,  5.276819552431108D-03, &
 -3.010266238384297D-01,  1.148836153616587D-01,  1.208064328383956D-02, &
 -2.975203773505370D-01, -9.264620147915089D-01,  6.591008941421552D-03, &
 -2.866843597937876D-01,  8.916357142521784D-01,  9.722680920609808D-03, &
 -2.778520292008587D-01,  3.379398856834260D-01,  1.660452875526483D-02, &
 -2.744543978372941D-01, -9.801898430305439D-02,  1.247830609628909D-02, &
 -2.587845000315547D-01, -9.987548667843699D-01,  8.603127328776212D-04, &
 -2.544608894429891D-01,  9.979361786556559D-01,  1.252512834658488D-03, &
 -2.535888618284378D-01, -5.699260916663523D-01,  1.192322325012015D-02, &
 -2.516174268783917D-01,  7.330785425737227D-01,  8.853857957147779D-03, &
 -2.417076375974273D-01, -7.891442960379055D-01,  1.102295327385847D-02, &
 -2.413622675326031D-01, -2.767284930209392D-01,  1.077421913186015D-02, &
 -2.328396638924550D-01, -9.660240239613915D-01,  5.265050387190376D-03, &
 -2.312798916515771D-01,  8.188743812299971D-01,  4.930961548632319D-03, &
 -2.306624795927337D-01,  9.461369824834985D-01,  3.182424510285970D-03, &
 -2.303709121443397D-01,  9.629630229642722D-01,  3.441645956712537D-03, &
 -2.267984183900834D-01, -4.153651530633773D-01,  1.478553509404215D-02, &
 -2.256135494476024D-01,  1.919211927874176D-01,  1.887063394340442D-02, &
 -2.179557409452807D-01,  5.651427172988402D-01,  1.620039755630136D-02, &
 -2.168766477790742D-01, -1.012612126707933D-02,  1.760999731931498D-02, &
 -2.016684978642726D-01, -8.842464367674409D-01,  8.512644523701873D-03, &
 -1.993535882469331D-01, -6.338481461271839D-01,  9.730410168975228D-03, &
 -1.913491324242725D-01, -2.232354009324879D-01,  1.422718417945826D-02, &
 -1.890072860808679D-01,  4.247570907504695D-01,  1.695426438700273D-02, &
 -1.862712620524861D-01,  6.913654513337745D-01,  1.082745299386850D-02, &
 -1.746191018373572D-01,  8.480550307741350D-01,  8.886868262309344D-03, &
 -1.675200684369691D-01, -7.047430234854786D-01,  1.094270966276307D-02, &
 -1.555836887665503D-01, -4.800663622673465D-01,  1.256149504580157D-02, &
 -1.539778628553684D-01, -9.901542147304263D-01,  2.778842341022969D-03, &
 -1.428714573350953D-01,  9.873473637042918D-01,  3.649388897241209D-03, &
 -1.384698657127528D-01,  9.205163602534699D-01,  7.904116666380833D-03, &
 -1.280453089534869D-01, -8.261529284212121D-01,  1.003683355115124D-02, &
 -1.269663966462650D-01, -9.340066191936205D-01,  7.536775230064883D-03, &
 -1.262851022233290D-01,  9.368263634475028D-02,  1.974459832420309D-02, &
 -1.259733133156085D-01,  2.934330084484927D-01,  2.074833465157029D-02, &
 -1.215370941220813D-01, -1.129536910574994D-01,  1.891311893739475D-02, &
 -1.063702041365650D-01,  7.792027274018843D-01,  1.191220588531841D-02, &
 -1.040885518460405D-01, -3.345081265086896D-01,  1.973449969826947D-02, &
 -9.605998455844682D-02,  6.444074525536151D-01,  1.345070861908871D-02, &
 -9.279166418896197D-02,  5.146935916151650D-01,  1.655226263892481D-02, &
 -9.125555597164577D-02, -5.450318588034616D-01,  1.217992697790634D-02, &
 -8.532044687750825D-02, -7.537009739836885D-01,  6.788672864407014D-03, &
 -6.799112688359676D-02, -6.229899588936270D-01,  1.080161967200763D-02, &
 -6.241140417558962D-02, -9.744491489990948D-01,  3.566539673859765D-03, &
 -5.161370829018064D-02,  9.610809656564491D-01,  6.005594200474568D-03, &
 -4.538160583172780D-02,  1.675029579312542D-02,  1.139804373859566D-02, &
 -4.097385567264155D-02,  8.800609612527350D-01,  8.815909757700713D-03, &
 -3.655935033800797D-02, -1.968615631298038D-01,  1.402267657973052D-02, &
 -3.473806771275045D-02, -8.898414026442482D-01,  8.163797867856551D-03, &
 -3.115326906841854D-02, -7.299617142501118D-01,  8.753969855827624D-03, &
 -2.664715561157583D-02, -9.979756016894712D-01,  1.223714150081927D-03, &
 -2.609621149728821D-02,  9.978312276054969D-01,  1.321094043330279D-03, &
 -2.462169196136119D-02,  4.000170187213391D-01,  1.964525457913152D-02, &
 -1.904435752714274D-02,  7.360687696712604D-01,  8.550678949429199D-03, &
 -1.889566824340530D-02,  1.984890570456425D-01,  2.186008310624084D-02, &
 -9.785690785648083D-03, -8.389279715572893D-01,  6.367637566748681D-03, &
 -9.157810803927260D-03, -4.247277120525336D-01,  1.808897606828866D-02, &
 3.179810404505250D-03,  8.314617064208917D-01,  7.240482363634763D-03, &
 8.164449639995641D-03, -3.602121469951976D-02,  1.507784539606016D-02, &
 8.914821501355173D-03, -9.569660527272593D-01,  4.452800904218950D-03, &
 1.397375150217838D-02,  6.074602279060227D-01,  1.339941447663378D-02, &
 2.177165943291160D-02, -2.514057561092151D-01,  1.257069649597742D-02, &
 4.345656816980569D-02, -6.515535698280098D-01,  1.376520145235682D-02, &
 4.780837263094481D-02, -5.293455201419695D-01,  1.433806151954274D-02, &
 5.126722291181950D-02,  7.136184270678109D-01,  9.059040654245952D-03, &
 5.384128121275275D-02,  5.215281819965334D-01,  1.026521104059108D-02, &
 5.402250856984708D-02,  9.276694371633791D-01,  7.888401157883149D-03, &
 5.581143910668790D-02,  9.821386878503260D-01,  3.771203907120499D-03, &
 6.627333635862039D-02, -7.885663982200815D-01,  1.217604845925398D-02, &
 7.206636203593361D-02, -9.211241316961639D-01,  6.736415177465982D-03, &
 7.992668048420556D-02,  3.134386785203354D-01,  2.055572742606252D-02, &
 8.448805256391662D-02,  9.712957741353333D-02,  2.128227886088045D-02, &
 8.463750249088479D-02, -9.874388870838863D-01,  3.523234483327328D-03, &
 9.799267198568701D-02, -1.212891339515704D-01,  1.949535188292260D-02, &
 9.827877674637196D-02, -3.251986289297008D-01,  1.749435408326382D-02, &
 9.985235399264410D-02,  8.076435842941359D-01,  1.073632596606910D-02, &
 1.057705156820273D-01,  4.793866965123078D-01,  1.166074198719580D-02, &
 1.278018204573015D-01, -8.673024017686580D-01,  8.130060280452144D-03, &
 1.364747655580873D-01,  8.824534837148562D-01,  8.631223960740082D-03, &
 1.418802082443522D-01,  6.877615804223791D-01,  1.036232616585965D-02, &
 1.441395429362260D-01, -7.037951529711909D-01,  1.188979856915669D-02, &
 1.469434540715263D-01, -4.441704987291489D-01,  1.490787435959768D-02, &
 1.506185900581580D-01,  9.946720380541423D-01,  1.885774991512346D-03, &
 1.560960715550660D-01, -9.625915789870874D-01,  3.201097878674840D-03, &
 1.604800952783144D-01,  6.059469388605253D-01,  1.251646880334661D-02, &
 1.635825517653865D-01, -5.753866291936182D-01,  1.530295086183503D-02, &
 1.655478645083420D-01,  9.589555963365791D-01,  5.804218295769638D-03, &
 1.726856195129373D-01,  2.122274920034202D-01,  1.881284565328789D-02, &
 1.789604491789879D-01, -9.402742786279485D-01,  3.866866604734349D-03, &
 1.830770810490266D-01, -7.917068664553941D-03,  1.896081259105628D-02, &
 1.917045789075228D-01, -8.352790590418837D-01,  6.668422594982694D-03, &
 1.919614057410328D-01,  4.159468317764071D-01,  1.803709701284910D-02, &
 1.934907380358813D-01, -2.169747177608121D-01,  1.856246659829771D-02, &
 1.969572179795044D-01, -9.977527139562596D-01,  1.300798686497381D-03, &
 2.107123929928807D-01, -7.484424229574373D-01,  8.397883820247469D-03, &
 2.151288514233329D-01,  7.680354518275807D-01,  1.267367187142015D-02, &
 2.377269840756392D-01, -3.593587047461513D-01,  1.531855347072487D-02, &
 2.449798765113445D-01,  8.561714185289828D-01,  8.384247794169401D-03, &
 2.461530653627976D-01,  9.236449528059149D-01,  6.701681191198367D-03, &
 2.486966580905335D-01,  3.008228521374701D-01,  1.106325734333346D-02, &
 2.499701593513872D-01, -9.752017232492153D-01,  3.850329050405175D-03, &
 2.501058258824206D-01,  5.509389569101368D-01,  1.475977026196545D-02, &
 2.528611993268930D-01,  9.351675397537039D-02,  1.449585921909408D-02, &
 2.568949734863621D-01, -9.022348356156346D-01,  8.940909487499378D-03, &
 2.683426686375737D-01,  9.991154086591990D-01,  5.889345360874240D-04, &
 2.685503151871029D-01, -6.356230295277764D-01,  1.517335754148565D-02, &
 2.697644015612075D-01,  9.815789636486361D-01,  3.726914126330296D-03, &
 2.709381851134464D-01, -1.244795386325534D-01,  1.382732736695818D-02, &
 2.737056179114525D-01, -4.896517471925337D-01,  1.596973556497186D-02, &
 2.841153891916503D-01, -7.963610419905591D-01,  1.018240390326565D-02, &
 2.887360776877746D-01,  6.760513756029857D-01,  1.358604251351786D-02, &
 3.149795837868063D-01,  1.767826719425314D-01,  1.445177151533629D-02, &
 3.165712280980518D-01,  3.479571606636541D-01,  1.397116071739750D-02, &
 3.233387951857696D-01, -3.964021294199390D-02,  1.467594281112195D-02, &
 3.268920397235026D-01, -2.731725775852362D-01,  1.771570545449453D-02, &
 3.326248311408019D-01,  4.836740826389543D-01,  1.486343284668958D-02, &
 3.335126221786843D-01, -9.908899215613953D-01,  2.568858034338105D-03, &
 3.408563759162994D-01,  7.550164756697521D-01,  6.822413031377531D-03, &
 3.443109876462521D-01,  8.290574313399783D-01,  9.197826117265570D-03, &
 3.486450229035982D-01, -9.439378779811103D-01,  6.983226832200802D-03, &
 3.518759527448840D-01,  9.560724389841232D-01,  4.965627623349140D-03, &
 3.524828322454360D-01, -7.050052060893320D-01,  1.197554054145159D-02, &
 3.590126501200323D-01,  9.063249825645421D-01,  6.542367126762410D-03, &
 3.633899545054107D-01, -4.158806284730630D-01,  1.021934848164813D-02, &
 3.656349853648961D-01, -8.551125998661749D-01,  1.062020373233702D-02, &
 3.807891001192470D-01,  6.253125077526936D-01,  1.119123494000414D-02, &
 3.808423427288536D-01,  9.944730583867565D-01,  1.632382643499531D-03, &
 3.809375504826950D-01, -5.546294515204083D-01,  1.615046394684124D-02, &
 3.945468502595033D-01,  6.752821319401937D-02,  1.729957749916545D-02, &
 4.037326882224722D-01, -7.443269137253894D-01,  5.244741835639755D-03, &
 4.039759465731999D-01, -1.584043966963531D-01,  1.831424532905047D-02, &
 4.104920535739149D-01,  2.529785766209403D-01,  1.814309214474618D-02, &
 4.222816582184452D-01,  7.408148672071336D-01,  7.766759229688390D-03, &
 4.224134639390744D-01, -3.745372912517947D-01,  1.317478594938575D-02, &
 4.277143244118732D-01,  4.170215562701938D-01,  1.538057245965674D-02, &
 4.333717867425739D-01,  5.690603581255754D-01,  1.115237702189693D-02, &
 4.349755932480709D-01, -9.985636264967975D-01,  8.821277372105579D-04, &
 4.398941633478518D-01,  9.803729409712968D-01,  2.765623301727146D-03, &
 4.441324812379997D-01, -9.722660935224676D-01,  4.719463795528141D-03, &
 4.543070171443870D-01,  8.838298014870239D-01,  7.433086897010635D-03, &
 4.552061144607135D-01,  8.130123814788113D-01,  6.665811090423725D-03, &
 4.563764124987013D-01, -9.047285344881011D-01,  8.712285205058833D-03, &
 4.605130146464505D-01, -7.890667787179867D-01,  1.104769785347448D-02, &
 4.650767440674204D-01, -6.345308909000896D-01,  1.471818226211541D-02, &
 4.674115659846697D-01, -2.156835684881248D-02,  1.289379103218861D-02, &
 4.773494044297329D-01,  9.456346888484196D-01,  5.554333960414898D-03, &
 4.810795638831788D-01,  7.045677590620393D-01,  8.378675676746713D-03, &
 4.883109086023527D-01, -2.624666533620124D-01,  1.805604188701234D-02, &
 4.989586416584096D-01, -4.789926304087422D-01,  1.768874128800384D-02, &
 5.035782169093800D-01,  1.523921509996070D-01,  1.912436354376622D-02, &
 5.136924925920076D-01,  9.970688163327739D-01,  1.172939498317349D-03, &
 5.169947058579401D-01,  3.370225548177525D-01,  1.637088692250307D-02, &
 5.191129921767861D-01, -8.134646960530036D-02,  1.194181152772743D-02, &
 5.204183249331878D-01,  5.085175426873372D-01,  1.466908354875696D-02, &
 5.393484610466828D-01,  6.440810813198078D-01,  1.182257049730026D-02, &
 5.409261529913778D-01, -9.899204841179033D-01,  2.610777565683107D-03, &
 5.436431320060356D-01, -8.462212203410651D-01,  1.007390508879517D-02, &
 5.451712421766679D-01,  8.553559399904247D-01,  5.821377493347785D-03, &
 5.478116255118839D-01, -9.433804473799871D-01,  6.399987549895861D-03, &
 5.478642383937216D-01, -7.090052412035255D-01,  1.297516415531765D-02, &
 5.564069189295534D-01,  7.864423641670446D-01,  9.321003881444800D-03, &
 5.624905637364527D-01,  9.770501107487227D-01,  3.623905342788340D-03, &
 5.756133273548432D-01,  9.199072591365679D-01,  6.781383669452935D-03, &
 5.767931202505592D-01, -3.594698820499517D-01,  1.753399004685696D-02, &
 5.847884341379717D-01, -5.712950409715517D-01,  1.571578525431043D-02, &
 5.874943626825653D-01, -1.671372439879485D-01,  1.698143276407778D-02, &
 5.907655121511671D-01,  4.660979703031718D-02,  1.844804672503901D-02, &
 6.025450669838789D-01,  2.467984537567849D-01,  1.677462288624064D-02, &
 6.090800603255943D-01,  4.286875996929576D-01,  1.513541325944424D-02, &
 6.258710710954998D-01,  7.165277069854407D-01,  1.099701682736415D-02, &
 6.266701063249871D-01,  5.769310800380454D-01,  1.308931762513766D-02, &
 6.270265093488953D-01, -8.955278457672096D-01,  7.880275838227896D-03, &
 6.270791988555975D-01, -7.761774347112587D-01,  1.090179865169966D-02, &
 6.345595645944537D-01, -9.984595226960734D-01,  7.958742560860689D-04, &
 6.370082702111213D-01, -9.713020953178747D-01,  4.152547195517621D-03, &
 6.401569547703443D-01,  9.938746764274359D-01,  1.693532564574805D-03, &
 6.497075309477621D-01,  8.190875365131459D-01,  4.464599165971847D-03, &
 6.531764939123219D-01,  8.722128479560702D-01,  7.098779024952168D-03, &
 6.562818147683037D-01, -4.576915030242588D-01,  1.578169238311144D-02, &
 6.591132614876472D-01,  9.562877989480233D-01,  4.990862456559823D-03, &
 6.665524280175228D-01, -6.564174347015698D-01,  1.340898468809120D-02, &
 6.700483215827622D-01, -2.620296401455633D-01,  1.661493024207803D-02, &
 6.739087687271405D-01, -5.912298687650318D-02,  1.738774404391026D-02, &
 6.804263668179958D-01,  1.460527560676405D-01,  1.628317266757141D-02, &
 6.912597270988795D-01,  3.404614930979913D-01,  1.475743069354967D-02, &
 7.014060026242689D-01, -8.344065963965686D-01,  8.628757323236287D-03, &
 7.058713078417868D-01, -9.347792116756997D-01,  5.591815013522645D-03, &
 7.079262640927377D-01,  7.724165756101982D-01,  8.029293398342626D-03, &
 7.088857312664080D-01,  4.967023279703596D-01,  1.280511610828170D-02, &
 7.101371621418650D-01,  6.457186195302522D-01,  1.105714695286113D-02, &
 7.202725263717996D-01,  9.994335364106648D-01,  3.332183106806338D-04, &
 7.207000082772794D-01, -9.895454215133570D-01,  2.196061699346258D-03, &
 7.292419930403204D-01,  9.157811426160827D-01,  6.384383783991632D-03, &
 7.313037161184995D-01, -5.505073556267344D-01,  1.356179225976500D-02, &
 7.360379569189480D-01,  9.821653512788314D-01,  2.896207033581717D-03, &
 7.420779913438207D-01, -7.334083762452253D-01,  1.091197483582354D-02, &
 7.426392282312145D-01, -3.645617372015513D-01,  1.485653149831074D-02, &
 7.528875171829301D-01, -1.601913784019904D-01,  1.550841643509901D-02, &
 7.554705394085318D-01,  4.459678870394624D-02,  1.525675110217471D-02, &
 7.615088314802664D-01,  8.361789767059251D-01,  7.437033911513647D-03, &
 7.616191329271083D-01,  2.428806469892401D-01,  1.393414245795238D-02, &
 7.690623514791849D-01, -8.832140323355561D-01,  6.416243610572680D-03, &
 7.769110395657105D-01, -9.640621745534697D-01,  3.536472011287542D-03, &
 7.791327107486173D-01,  7.076456730403544D-01,  8.608254113024549D-03, &
 7.829433189081187D-01,  4.115102550571496D-01,  1.200809373544269D-02, &
 7.868440926994443D-01,  5.651491336107541D-01,  1.060866196158618D-02, &
 7.972018338130737D-01, -9.982656120587307D-01,  6.617532655225795D-04, &
 7.992533072865277D-01,  9.540895776450939D-01,  4.268074259130473D-03, &
 7.997458930401107D-01, -6.367603626594224D-01,  1.111474927165712D-02, &
 8.081744777455525D-01,  9.960702140107771D-01,  1.017600517226123D-03, &
 8.089591973706927D-01, -4.632652606248073D-01,  1.251849428515888D-02, &
 8.099291035161289D-01, -8.014389840867161D-01,  8.342550278485161D-03, &
 8.178497193943023D-01, -2.666599682868107D-01,  1.332265855465428D-02, &
 8.217550355721945D-01,  8.852380807000872D-01,  5.823149693854945D-03, &
 8.248245538809940D-01, -5.566567666688539D-02,  1.345955258709000D-02, &
 8.273765716391087D-01,  1.453558810621134D-01,  1.259780460396138D-02, &
 8.290016229908019D-01, -9.229141926989057D-01,  4.488946673444931D-03, &
 8.312137267728380D-01,  7.737766398959207D-01,  7.517252141547089D-03, &
 8.388984040766698D-01, -9.832445987611033D-01,  1.929266776470329D-03, &
 8.403266531241620D-01,  3.204495146952222D-01,  1.029684622414818D-02, &
 8.460597215913815D-01,  6.338027356985795D-01,  8.416485697270661D-03, &
 8.568044167409157D-01,  4.819269934220108D-01,  1.007395289111620D-02, &
 8.594761322839366D-01, -7.158610827355618D-01,  8.544219655885121D-03, &
 8.596747778040242D-01,  9.812814052217911D-01,  2.240512756664986D-03, &
 8.673861033254269D-01, -5.560970888453474D-01,  9.984840676923732D-03, &
 8.687781521055384D-01, -8.598267927850410D-01,  5.909994487514023D-03, &
 8.736670048192481D-01, -3.696430123878972D-01,  1.076394694975309D-02, &
 8.755805123744724D-01,  9.286193847818732D-01,  4.104689783978988D-03, &
 8.802236992100727D-01, -1.636568935863089D-01,  1.134645488289895D-02, &
 8.818997102528549D-01, -9.534487417523689D-01,  2.910586840863237D-03, &
 8.822967422821377D-01,  8.327421092911165D-01,  5.857534910892974D-03, &
 8.855982125406932D-01,  4.859209760326954D-02,  1.081167505168916D-02, &
 8.890374543692038D-01, -9.948464939801149D-01,  8.623364516957774D-04, &
 8.910752241508448D-01,  2.326161934300192D-01,  8.657918564170076D-03, &
 8.924589745638828D-01,  7.060431740562146D-01,  7.042076085079714D-03, &
 9.038398251450660D-01,  3.788269004577886D-01,  7.187646339123819D-03, &
 9.047525315555535D-01,  9.968725405524917D-01,  6.949154523896342D-04, &
 9.073202051898728D-01,  5.601382603883635D-01,  7.436779820469599D-03, &
 9.094763644040651D-01, -7.866497708112262D-01,  6.068502473389529D-03, &
 9.156228827733042D-01, -6.431201317749281D-01,  7.377455744161945D-03, &
 9.180472655171079D-01, -9.072540984216338D-01,  3.786751966998675D-03, &
 9.201626776981597D-01, -4.661265100590501D-01,  8.127631621548038D-03, &
 9.203986204520849D-01,  9.637153195221804D-01,  2.417737344163030D-03, &
 9.253660941390490D-01, -2.716337337205402D-01,  8.801548207513724D-03, &
 9.261353319076545D-01,  8.862669995455879D-01,  4.060802203561684D-03, &
 9.267589978677341D-01, -9.763906164865308D-01,  1.670956060135679D-03, &
 9.296045895443023D-01, -5.692925807559270D-02,  8.746043891267270D-03, &
 9.333076832759312D-01,  7.750586963210155D-01,  5.218813242315273D-03, &
 9.349472019768319D-01,  1.484963626935633D-01,  7.389237501576750D-03, &
 9.374075610340270D-01,  4.399432525590961D-01,  5.306731082295346D-03, &
 9.400580998441358D-01,  2.800423571899046D-01,  2.918608608301983D-03, &
 9.427005957607336D-01, -9.981293404387946D-01,  3.121604460197559D-04, &
 9.429072476811193D-01,  6.363767343005619D-01,  5.407112479875284D-03, &
 9.493669863964902D-01, -8.473200668433625D-01,  3.846633887541680D-03, &
 9.531421892703198D-01,  9.886504733043840D-01,  1.059870260157853D-03, &
 9.531523577846154D-01, -7.227080846477228D-01,  4.913934090239149D-03, &
 9.551294253765648D-01, -5.565381013465578D-01,  5.502249381020629D-03, &
 9.565005297414140D-01, -9.442027533788165D-01,  2.096401005441424D-03, &
 9.593664858716742D-01,  3.053899240329821D-01,  4.414651034089092D-03, &
 9.596171541726947D-01,  9.321549520212439D-01,  2.376782646049461D-03, &
 9.608407654147756D-01, -3.746593104351715D-01,  6.173923907524476D-03, &
 9.621733022265412D-01, -1.656432296827873D-01,  6.194664026342116D-03, &
 9.653886055298680D-01,  5.150967645436137D-01,  4.919715066546461D-03, &
 9.657457263464734D-01,  8.382246690529398D-01,  3.337986835409403D-03, &
 9.659619334304088D-01,  5.177847935345642D-02,  5.910264564840144D-03, &
 9.680706602854513D-01, -9.879517363794693D-01,  7.458697645747395D-04, &
 9.699041735219510D-01,  7.091732174417210D-01,  3.716606593077174D-03, &
 9.780789408497448D-01, -8.978740559477660D-01,  2.027198167864543D-03, &
 9.785773409931260D-01,  3.759248114479532D-01,  2.296845005889542D-03, &
 9.787987362927277D-01, -6.363450519845599D-01,  3.147711109744902D-03, &
 9.798364272746407D-01, -7.938445879710778D-01,  2.695483313991862D-03, &
 9.808577769253177D-01,  9.991060454256292D-01,  1.898396166637044D-04, &
 9.809404950148999D-01,  2.027338094714153D-01,  3.990737313161254D-03, &
 9.816961339717497D-01,  9.686754967649751D-01,  1.091492569688088D-03, &
 9.840712745111234D-01, -2.626430872984131D-01,  3.097193509559313D-03, &
 9.843743224238546D-01, -4.750390603479636D-01,  3.584637477381167D-03, &
 9.862128026721591D-01, -9.654567087398049D-01,  8.890511587785677D-04, &
 9.863734263187778D-01, -5.930270513959802D-02,  3.688256991164665D-03, &
 9.865546785141253D-01,  6.035001549964859D-01,  3.023283764277423D-03, &
 9.869243250476414D-01,  8.947234846399443D-01,  1.668881526792388D-03, &
 9.893166095732513D-01,  7.775602858535637D-01,  2.064175704304855D-03, &
 9.894504025423468D-01,  4.193743047955185D-01,  2.246763513509927D-03, &
 9.896385884303135D-01, -9.973923443405563D-01,  1.851291041947312D-04, &
 9.901336007320924D-01, -7.114773894581000D-01,  1.034175772851253D-03, &
 9.919851856512742D-01, -3.114226899156755D-01,  1.170994569732132D-03, &
 9.940232288498372D-01,  1.283386128570500D-01,  1.603565228346927D-03, &
 9.953349820305321D-01, -8.536885202268084D-01,  1.025029596972725D-03, &
 9.959554742671337D-01, -6.783893531292533D-01,  6.259052194003695D-04, &
 9.962560319135685D-01,  9.890105787700981D-01,  2.669967855812931D-04, &
 9.964245305056454D-01, -9.302976837204511D-01,  6.033448523675142D-04, &
 9.967719421795390D-01, -5.665750992594114D-01,  1.303580233612213D-03, &
 9.972052149065609D-01,  9.417145950405990D-01,  5.101220212030444D-04, &
 9.973430748397051D-01,  2.936231135628724D-01,  1.457376036828792D-03, &
 9.977062733384420D-01,  3.661565190365799D-02,  9.783420284466598D-04, &
 9.978229005821968D-01,  6.875780893713088D-01,  9.676594371466553D-04, &
 9.978827039187840D-01, -1.661072510068121D-01,  1.283088734138761D-03, &
 9.979604058269933D-01,  5.108799809982550D-01,  1.066411053654888D-03, &
 9.980979734268004D-01, -3.916679884444568D-01,  1.034466005643900D-03, &
 9.983096397698943D-01, -7.631969332836371D-01,  5.325513292549041D-04, &
 9.985301658336433D-01,  8.440237285924725D-01,  5.771277489702493D-04, &
 9.987276765293339D-01, -9.843837655020101D-01,  1.687416201363766D-04 /)

  return
end
subroutine smr53 ( xyw )

!*****************************************************************************80
!
!! SMR53 returns the SMR rule of degree 53.
!
!  Discussion:
!
!    DEGREE: 53
!    SYMMETRY: (X,  Y),  (-X, -Y).
!    POINTS CARDINALITY: 498
!    NORM INF MOMS. RESIDUAL: 8.88178e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*498), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*498)

  xyw = (/ &
 -9.985928023604709D-01,  9.844383621232889D-01,  1.770821645368481D-04, &
 -9.985845745857554D-01, -8.445726670375774D-01,  5.544684199320334D-04, &
 -9.983624118051736D-01,  7.608024429037672D-01,  5.224452130672093D-04, &
 -9.981572755902530D-01,  3.878455559966326D-01,  9.745188221536845D-04, &
 -9.979563603675163D-01,  1.627643560997576D-01,  1.227147024948174D-03, &
 -9.979346610008943D-01, -5.127640690222413D-01,  1.033714442116006D-03, &
 -9.979107729485314D-01,  6.529159127971879D-01,  3.633867657362896D-04, &
 -9.978751297025205D-01, -6.879180639452499D-01,  9.450952193083518D-04, &
 -9.974464559033922D-01, -2.966888554053162D-01,  1.397441303354461D-03, &
 -9.973454309733404D-01, -9.423377622335455D-01,  4.836806630189215D-04, &
 -9.972986691166712D-01, -2.707798066058207D-02,  8.893716616277809D-04, &
 -9.965532592866511D-01,  9.290044070830288D-01,  6.034648824689160D-04, &
 -9.964624830190837D-01,  5.570787045642487D-01,  1.303165763686854D-03, &
 -9.964167588339662D-01, -9.892036664406441D-01,  2.516135591721077D-04, &
 -9.954005028570233D-01, -1.203116337354302D-01,  1.443569885953676D-03, &
 -9.953468235808713D-01,  8.508120228627952D-01,  1.028310207063733D-03, &
 -9.933660348449341D-01,  3.161717536031352D-01,  8.387713122106447D-04, &
 -9.914304305563754D-01, -4.291601514462605D-01,  1.270285302858647D-03, &
 -9.914052559973405D-01,  7.023250519059472D-01,  1.361348704496822D-03, &
 -9.896982696240531D-01, -7.781770875290389D-01,  1.992196225105480D-03, &
 -9.891720527404116D-01,  9.974135252406250D-01,  1.922590066403422D-04, &
 -9.875040522290420D-01, -8.954189297031747D-01,  1.599426753793162D-03, &
 -9.867187183083578D-01, -6.036002868761330D-01,  2.989922308625185D-03, &
 -9.865979212862428D-01,  5.871716068212986D-02,  3.448498853249387D-03, &
 -9.861629614331282D-01,  9.648994574590848D-01,  9.190271035579097D-04, &
 -9.853079288654077D-01,  2.623064638103086D-01,  3.238657892966299D-03, &
 -9.844227148004673D-01,  4.680325982952541D-01,  3.466798907655683D-03, &
 -9.831116643490232D-01, -3.932597865155385D-01,  2.757351758467422D-03, &
 -9.826130188082844D-01, -2.018533291539324D-01,  3.940386018971356D-03, &
 -9.825204731628883D-01, -9.691072435867270D-01,  1.033098155222703D-03, &
 -9.815923254661588D-01, -9.991082969355470D-01,  1.800328977889874D-04, &
 -9.799368890832454D-01,  7.898861275347491D-01,  2.697855299373055D-03, &
 -9.789828886434943D-01,  6.301653850940090D-01,  3.120578758401599D-03, &
 -9.785540980020077D-01,  8.955915042635302D-01,  2.022068123378164D-03, &
 -9.708143762319804D-01, -7.098339240446494D-01,  3.611310052438938D-03, &
 -9.679069092640856D-01, -5.291894734981822D-02,  5.483965867735776D-03, &
 -9.669765353727785D-01, -8.388123877959717D-01,  3.240365622776667D-03, &
 -9.666680119711900D-01,  9.879489037902746D-01,  8.035625344075275D-04, &
 -9.651954595073776D-01, -5.128458551084091D-01,  5.121256639651095D-03, &
 -9.634120661314701D-01,  1.626856446045910D-01,  5.991502859241982D-03, &
 -9.617304012154808D-01,  3.684756255396696D-01,  5.961021756038116D-03, &
 -9.614256374444105D-01, -9.328771743819428D-01,  2.264842731050030D-03, &
 -9.606958049220916D-01, -3.081366550020263D-01,  5.455334451053538D-03, &
 -9.572708860210799D-01,  9.424725960383203D-01,  2.087979607175203D-03, &
 -9.558923457352529D-01,  5.499187290928166D-01,  5.368921482058166D-03, &
 -9.549989203380340D-01, -9.887724667769165D-01,  1.007773895019914D-03, &
 -9.539639220051850D-01,  7.173033838147738D-01,  4.862799620669253D-03, &
 -9.502192536056790D-01,  8.439252795287028D-01,  3.825522511161339D-03, &
 -9.443304774038754D-01, -6.368742088572625D-01,  5.273401811778445D-03, &
 -9.395231994348571D-01, -1.457862489409124D-01,  6.657538796439106D-03, &
 -9.389178998337855D-01,  9.983688364336674D-01,  3.205800161394826D-04, &
 -9.350865783178156D-01, -7.749842255798853D-01,  5.158635670181725D-03, &
 -9.343242796602114D-01, -4.294254268855136D-01,  6.109989073144874D-03, &
 -9.338088134935508D-01, -2.598456851976017D-01,  2.595536800191603D-03, &
 -9.320728477635706D-01,  5.264490338972241D-02,  8.452404593360153D-03, &
 -9.290856294325159D-01, -8.871608380321619D-01,  3.918401242147426D-03, &
 -9.273226373183119D-01,  2.659618987488091D-01,  8.495674903422557D-03, &
 -9.261329198739888D-01,  9.746027153962696D-01,  1.776302974763280D-03, &
 -9.235763538947596D-01, -9.640444233499114D-01,  2.312159206833450D-03, &
 -9.220086198065640D-01,  4.592930118785874D-01,  7.896825458118423D-03, &
 -9.202380773523146D-01,  9.050386110265841D-01,  3.683312035807689D-03, &
 -9.172703778429636D-01,  6.365672819732232D-01,  7.262815260314241D-03, &
 -9.111951012665040D-01,  7.814905098540573D-01,  6.041492892648836D-03, &
 -9.096781399489776D-01, -5.604773052603598D-01,  7.205603970066971D-03, &
 -9.087015117883152D-01, -9.969915072869269D-01,  6.470318411854381D-04, &
 -9.013251796383466D-01, -3.666844788249730D-01,  6.151586476003017D-03, &
 -8.969710028279102D-01, -2.256802214985589D-01,  7.410425347310207D-03, &
 -8.940375402275955D-01, -7.041313708313275D-01,  7.142826419236804D-03, &
 -8.895672957850502D-01, -5.293510599726065D-02,  1.040987558289029D-02, &
 -8.866199302094060D-01,  9.938258930614400D-01,  9.839665860219130D-04, &
 -8.860972589276557D-01, -8.331612020727454D-01,  5.781048219808546D-03, &
 -8.837148490953154D-01,  1.576361975891787D-01,  1.099997902023932D-02, &
 -8.811873265749205D-01,  9.497474912342982D-01,  3.085534283412631D-03, &
 -8.801258841317081D-01, -9.290747990279913D-01,  3.975614899427044D-03, &
 -8.768491423274493D-01,  3.627381824235000D-01,  1.044386961685712D-02, &
 -8.732550362347075D-01,  8.574796771270368D-01,  5.681748093343370D-03, &
 -8.702282345000577D-01,  5.484829121208596D-01,  9.793908671588478D-03, &
 -8.659273047100809D-01, -9.818377837992252D-01,  2.087386821145729D-03, &
 -8.621111168073954D-01,  7.090421883632249D-01,  8.492263963507059D-03, &
 -8.619939023548052D-01, -4.806373416483297D-01,  9.672951472047629D-03, &
 -8.480068796648080D-01, -3.119740973719929D-01,  9.321790315925496D-03, &
 -8.467158604246162D-01, -6.289407999349215D-01,  8.567266871139807D-03, &
 -8.371745526664012D-01,  9.808931214242823D-01,  2.050522723814058D-03, &
 -8.345679943920669D-01, -7.722499650445845D-01,  7.694139784998021D-03, &
 -8.333486955686686D-01, -1.495187297327515D-01,  1.195411188321836D-02, &
 -8.298817228165417D-01,  4.932544049099609D-02,  1.308861281523968D-02, &
 -8.279841059514953D-01,  9.168099196511450D-01,  4.729333631541270D-03, &
 -8.271269848617255D-01, -8.851367103086550D-01,  5.783392447697547D-03, &
 -8.226990779980473D-01,  2.594419621957182D-01,  1.295208242924248D-02, &
 -8.174915256392483D-01,  7.995012686440126D-01,  7.949359593998170D-03, &
 -8.152897321117292D-01, -9.960859909883866D-01,  9.730665170684366D-04, &
 -8.132142904625197D-01,  4.548944220943146D-01,  1.223637699266143D-02, &
 -8.087394328827582D-01, -9.556037745856076D-01,  3.933758242891774D-03, &
 -8.034618006847678D-01,  6.281857009049345D-01,  1.103532286602404D-02, &
 -8.009671113820225D-01,  9.981533390719061D-01,  6.852854862182664D-04, &
 -7.947551849888224D-01, -4.052480669355576D-01,  1.157650073560808D-02, &
 -7.898299665920954D-01, -5.577510224714766D-01,  1.013316669078794D-02, &
 -7.803754591141053D-01, -7.029689837797256D-01,  8.961843744448235D-03, &
 -7.774912262938560D-01,  9.604818908070105D-01,  3.634588036562608D-03, &
 -7.686352988370738D-01, -2.446641549937693D-01,  1.323529815530171D-02, &
 -7.677740322724570D-01,  8.743907671109992D-01,  6.716521459650556D-03, &
 -7.660500336383849D-01, -8.342336877874392D-01,  7.639362847929806D-03, &
 -7.626828581715114D-01, -5.217879939928463D-02,  1.481683281953144D-02, &
 -7.594734183304540D-01,  1.526746736533888D-01,  1.510577254629861D-02, &
 -7.533200770053481D-01,  7.322571707312160D-01,  1.036649979314898D-02, &
 -7.486275502230029D-01,  3.557473677134377D-01,  1.447118457086799D-02, &
 -7.453991512679197D-01, -9.822746950042834D-01,  2.777507829800740D-03, &
 -7.437035450232024D-01, -9.192149785074237D-01,  5.716340360168384D-03, &
 -7.360777363538358D-01,  5.402149274576373D-01,  1.345453771968750D-02, &
 -7.329540430986968D-01, -9.994520361414482D-01,  3.041538127530700D-04, &
 -7.269321822743222D-01,  9.887675638640850D-01,  2.273665309343846D-03, &
 -7.196190732492783D-01, -4.882248666799530D-01,  1.197379647349226D-02, &
 -7.140404207255062D-01, -6.371246573044332D-01,  1.070392459478854D-02, &
 -7.086337444142102D-01, -7.695704670416541D-01,  8.641963674824546D-03, &
 -7.084219401683487D-01,  9.298201384783297D-01,  5.716321197953060D-03, &
 -7.024233424547481D-01, -3.412634918186152D-01,  1.381334136967731D-02, &
 -7.000574548967922D-01,  8.225599957784430D-01,  8.956533081134005D-03, &
 -6.875688691464135D-01, -1.523532795702211D-01,  1.589039314041529D-02, &
 -6.831396553262982D-01,  5.025358955518219D-02,  1.692483716041910D-02, &
 -6.816715380174886D-01,  6.562333074021302D-01,  1.277287173246379D-02, &
 -6.782866455285573D-01,  2.534754008840426D-01,  1.602307855437726D-02, &
 -6.743483706032866D-01, -8.786507719647361D-01,  6.600160557324268D-03, &
 -6.712488971549284D-01, -9.564498500229109D-01,  4.776110132553591D-03, &
 -6.620238508003119D-01,  4.457520355368754D-01,  1.565706421137813D-02, &
 -6.547035795617938D-01, -9.940970172871774D-01,  1.595895622818180D-03, &
 -6.450215203909843D-01,  9.694287012984952D-01,  4.254123969191675D-03, &
 -6.435026336621807D-01,  9.983082528329512D-01,  8.406070876814557D-04, &
 -6.410984836103271D-01, -8.238821673751913D-01,  5.824601846420805D-03, &
 -6.379215112130751D-01, -5.670614401267176D-01,  1.233100287824145D-02, &
 -6.326491461674595D-01, -7.087147856504342D-01,  1.065338418396687D-02, &
 -6.312112678821253D-01,  8.887426834499652D-01,  8.035436464026399D-03, &
 -6.261412120185321D-01,  7.612964882114873D-01,  1.115166684172651D-02, &
 -6.218404535164949D-01, -4.260251807764488D-01,  1.409803518042624D-02, &
 -6.122357177770217D-01, -2.548990689966739D-01,  1.629549089611943D-02, &
 -6.033379016027892D-01,  5.719396137245076D-01,  1.508372611713938D-02, &
 -6.007203269774244D-01,  1.597960513238969D-01,  1.570057785252238D-02, &
 -6.002219783980102D-01, -5.403874585262955D-02,  1.797054198971408D-02, &
 -5.890404501501693D-01, -9.206940307202106D-01,  6.572394666527264D-03, &
 -5.835973374377773D-01,  3.461086614433988D-01,  1.732203682677555D-02, &
 -5.799634263647828D-01, -9.772590728941044D-01,  3.449436790328003D-03, &
 -5.625099260935547D-01, -7.778619069194846D-01,  8.878902849634178D-03, &
 -5.587300450136236D-01, -8.583430849979702D-01,  5.927281418798553D-03, &
 -5.576025578329094D-01,  9.401328137991951D-01,  6.500514236109148D-03, &
 -5.528541698467803D-01, -6.361229352805877D-01,  1.171212237998683D-02, &
 -5.519019991796891D-01,  9.890368385507939D-01,  2.732564982558912D-03, &
 -5.492720320374657D-01,  8.373014762031777D-01,  1.023676166331683D-02, &
 -5.487723900103840D-01,  6.920470750806444D-01,  1.280023752030945D-02, &
 -5.371325089697084D-01,  8.011203379709990D-02,  1.181135941584131D-02, &
 -5.343185807415033D-01, -5.029270269025070D-01,  1.396353037202522D-02, &
 -5.331665865462701D-01, -9.970597494728978D-01,  1.110041538717393D-03, &
 -5.262824452533256D-01, -3.433052927748735D-01,  1.581695407925873D-02, &
 -5.196722725049188D-01,  4.801432725924391D-01,  1.725926992286396D-02, &
 -5.157073778702320D-01, -1.609863620383591D-01,  1.879587748844137D-02, &
 -4.969937503660588D-01,  2.466042915149466D-01,  1.784450657561326D-02, &
 -4.936443037514611D-01, -9.465513055935159D-01,  5.403406971553440D-03, &
 -4.845997407738473D-01, -7.035482990021875D-01,  1.037135994169719D-02, &
 -4.758233967224794D-01,  9.499700014764531D-03,  1.501969591730733D-02, &
 -4.731977818372050D-01, -8.122514030227285D-01,  6.930386109087627D-03, &
 -4.709097305697209D-01,  6.192328037671802D-01,  1.353895520891179D-02, &
 -4.688360336456553D-01, -8.843163742148189D-01,  7.157111782324953D-03, &
 -4.681987676963164D-01,  9.000816415421663D-01,  8.752217670591854D-03, &
 -4.671044062418229D-01,  7.773382366003790D-01,  1.148882380125715D-02, &
 -4.632227635675115D-01, -9.814205193370379D-01,  2.613335253646615D-03, &
 -4.561007226835129D-01,  9.700945862732528D-01,  4.912897122852274D-03, &
 -4.519080731349339D-01,  9.984396765695470D-01,  9.104456319465278D-04, &
 -4.472892660613361D-01, -5.690445212955879D-01,  1.221020583633636D-02, &
 -4.441617460367955D-01,  3.742961592477722D-01,  1.369039678808185D-02, &
 -4.362577546949490D-01, -4.202960350604942D-01,  1.486935839319106D-02, &
 -4.218638446966653D-01, -2.592840266301589D-01,  1.805298724340071D-02, &
 -4.145077201239032D-01,  1.434465664707271D-01,  1.725622426589416D-02, &
 -4.108551792292466D-01,  7.261324870817387D-01,  4.306155002341567D-03, &
 -4.077259796016033D-01, -7.492102429229035D-01,  8.694161987156229D-03, &
 -3.994375393561766D-01, -8.413566670896548D-02,  1.767270854523918D-02, &
 -3.989722688095441D-01, -9.952608430268175D-01,  1.546205690889865D-03, &
 -3.955046992121652D-01,  5.474259893157579D-01,  1.426771157675970D-02, &
 -3.864577517310250D-01, -6.299902317618596D-01,  1.049642638160978D-02, &
 -3.849225170655068D-01,  4.169734666972951D-01,  9.724255552168744D-03, &
 -3.802442553217521D-01,  8.493133552804323D-01,  1.051968675909273D-02, &
 -3.796487515464433D-01, -9.092228699079343D-01,  6.356176322652544D-03, &
 -3.737267040247370D-01, -9.590954871481244D-01,  4.640668672343144D-03, &
 -3.680086351266054D-01,  6.979889582949302D-01,  1.081487021761422D-02, &
 -3.617280769528435D-01,  9.401480659088486D-01,  7.154768091047104D-03, &
 -3.610877408616728D-01, -8.297008620205625D-01,  9.406051770632176D-03, &
 -3.522240818473209D-01,  9.904239151356983D-01,  2.630094662997393D-03, &
 -3.486739568508627D-01,  2.706799453032748D-01,  1.790534599137358D-02, &
 -3.459056603672409D-01, -4.880157144461191D-01,  1.427913060937561D-02, &
 -3.274412213828406D-01,  2.260401457313204D-02,  1.328209466144314D-02, &
 -3.211239215007341D-01, -3.481155947386593D-01,  1.639976888297377D-02, &
 -3.164232593211551D-01, -7.429261686367324D-01,  5.976361940569912D-03, &
 -3.145433255025609D-01, -1.887048598242300D-01,  1.548218828411259D-02, &
 -3.098139879229698D-01,  1.066163988920963D-01,  1.095431624202562D-02, &
 -3.093324993446162D-01,  7.866827669318777D-01,  8.507371224954144D-03, &
 -3.012423936798629D-01, -6.693885031733898D-01,  1.126757188865965D-02, &
 -2.957526162080209D-01,  4.876169383565411D-01,  1.534619575085735D-02, &
 -2.954492755010769D-01, -9.834117127161082D-01,  3.379925266369860D-03, &
 -2.898542188079066D-01,  6.330069652325342D-01,  1.412145798182586D-02, &
 -2.722006540631997D-01, -9.272099993727561D-01,  6.281659290118641D-03, &
 -2.721846392481617D-01,  8.970549509207049D-01,  9.025150443164945D-03, &
 -2.702194513535268D-01, -8.611546877103153D-01,  7.548029223327319D-03, &
 -2.701666789762488D-01,  9.741038333559231D-01,  3.879006409933471D-03, &
 -2.633486798231064D-01, -5.531499703542735D-01,  1.398453718361448D-02, &
 -2.602577385956935D-01,  3.559789948391511D-01,  1.590809902210510D-02, &
 -2.539085167701460D-01, -9.992367354749008D-01,  7.362226870467214D-04, &
 -2.528734987524705D-01, -1.000864569130400D-01,  1.372369295593181D-02, &
 -2.418266355083030D-01,  8.155977304752622D-01,  5.639586061670630D-03, &
 -2.299925708319869D-01, -7.766849935728968D-01,  1.162319829976198D-02, &
 -2.281975753978523D-01, -2.933251049638128D-01,  1.039571151862245D-02, &
 -2.264962677001022D-01,  7.406196628504332D-01,  9.018221989261329D-03, &
 -2.254137995022369D-01,  1.945262619590385D-01,  2.032600241526465D-02, &
 -2.202097667160187D-01,  9.977429662985270D-01,  1.303069934955326D-03, &
 -2.115604600690373D-01, -4.206501628650725D-01,  1.622528102872075D-02, &
 -2.042331092646998D-01,  1.225948074751524D-02,  1.663069524482181D-02, &
 -1.950313398093114D-01,  9.390444256419040D-01,  4.129734438091659D-03, &
 -1.946536814154290D-01, -9.612563295817905D-01,  5.490013367391810D-03, &
 -1.910999388491465D-01,  5.748539496478213D-01,  1.509977429582099D-02, &
 -1.816716354061224D-01,  9.615618491387735D-01,  2.978742099030132D-03, &
 -1.726116714065732D-01, -2.174974452316975D-01,  1.590035665116296D-02, &
 -1.725147740607741D-01, -5.976020811915204D-01,  1.140314608712299D-02, &
 -1.722055467782442D-01, -6.873345735469495D-01,  1.133583684301726D-02, &
 -1.706449838302763D-01, -8.836551802782431D-01,  8.038658519121712D-03, &
 -1.679988089754341D-01,  4.388106052157863D-01,  1.571275386456942D-02, &
 -1.602837781659527D-01,  8.546895483149928D-01,  9.885073478511747D-03, &
 -1.570373933725618D-01,  6.978163142964436D-01,  1.148876151378708D-02, &
 -1.442219587876548D-01, -9.917004260484690D-01,  2.527011807500108D-03, &
 -1.276588070261918D-01,  3.027418975026165D-01,  1.880072826559714D-02, &
 -1.231008517680125D-01, -4.753879650258501D-01,  1.324596293468438D-02, &
 -1.151860373260542D-01, -8.151600041578237D-01,  1.116067302973472D-02, &
 -1.128965150592470D-01, -8.839516814078634D-02,  1.821643608834104D-02, &
 -1.123053787507008D-01,  1.095876693506785D-01,  1.978565819024786D-02, &
 -1.100537548339115D-01,  9.869592350981791D-01,  3.620908902716640D-03, &
 -9.648898098941808D-02,  9.150132212119572D-01,  7.261424197102146D-03, &
 -9.000801156431583D-02, -9.281582931717732D-01,  7.762421934834004D-03, &
 -8.755571046923658D-02, -3.265338207762313D-01,  1.966893754969280D-02, &
 -8.676802116466929D-02,  7.890938948277969D-01,  1.182634147172253D-02, &
 -7.982169502523445D-02, -7.229964637208218D-01,  8.885119945778230D-03, &
 -7.533277250983217D-02,  5.253341801281358D-01,  1.477352957389778D-02, &
 -6.228882188644439D-02,  6.470376895730875D-01,  1.366136970817887D-02, &
 -5.300829581300114D-02, -9.768027160770031D-01,  3.724202248380016D-03, &
 -5.089861416336603D-02, -5.276784631402766D-01,  1.097680016715092D-02, &
 -4.834001433988518D-02, -6.180420749231472D-01,  1.165892332494916D-02, &
 -3.421706220224403D-02,  2.365146730869494D-01,  1.410226757763090D-02, &
 -3.231589699057937D-02,  9.563884909129237D-01,  5.327701488888538D-03, &
 -3.123410684940927D-02, -1.756994941404730D-01,  1.459727035314452D-02, &
 -2.386449228293084D-02,  2.645142455623201D-02,  1.287803629578976D-02, &
 -1.944503626409501D-02,  4.054741591181015D-01,  1.890683720388499D-02, &
 -8.808200593649371D-03, -8.379258906397793D-01,  5.653566114720740D-03, &
 -3.602758322849902D-03, -7.412893889188407D-01,  9.311057693238088D-03, &
 -1.793626428337108D-03, -8.801377765241419D-01,  7.932756458617183D-03, &
 -8.655140792606699D-04, -9.978429364835631D-01,  1.282195110221903D-03, &
 8.655140792606699D-04,  9.978429364835631D-01,  1.282195110221903D-03, &
 1.793626428337108D-03,  8.801377765241419D-01,  7.932756458617183D-03, &
 3.602758322849902D-03,  7.412893889188407D-01,  9.311057693238088D-03, &
 8.808200593649371D-03,  8.379258906397793D-01,  5.653566114720740D-03, &
 1.944503626409501D-02, -4.054741591181015D-01,  1.890683720388499D-02, &
 2.386449228293084D-02, -2.645142455623201D-02,  1.287803629578976D-02, &
 3.123410684940927D-02,  1.756994941404730D-01,  1.459727035314452D-02, &
 3.231589699057937D-02, -9.563884909129237D-01,  5.327701488888538D-03, &
 3.421706220224403D-02, -2.365146730869494D-01,  1.410226757763090D-02, &
 4.834001433988518D-02,  6.180420749231472D-01,  1.165892332494916D-02, &
 5.089861416336603D-02,  5.276784631402766D-01,  1.097680016715092D-02, &
 5.300829581300114D-02,  9.768027160770031D-01,  3.724202248380016D-03, &
 6.228882188644439D-02, -6.470376895730875D-01,  1.366136970817887D-02, &
 7.533277250983217D-02, -5.253341801281358D-01,  1.477352957389778D-02, &
 7.982169502523445D-02,  7.229964637208218D-01,  8.885119945778230D-03, &
 8.676802116466929D-02, -7.890938948277969D-01,  1.182634147172253D-02, &
 8.755571046923658D-02,  3.265338207762313D-01,  1.966893754969280D-02, &
 9.000801156431583D-02,  9.281582931717732D-01,  7.762421934834004D-03, &
 9.648898098941808D-02, -9.150132212119572D-01,  7.261424197102146D-03, &
 1.100537548339115D-01, -9.869592350981791D-01,  3.620908902716640D-03, &
 1.123053787507008D-01, -1.095876693506785D-01,  1.978565819024786D-02, &
 1.128965150592470D-01,  8.839516814078634D-02,  1.821643608834104D-02, &
 1.151860373260542D-01,  8.151600041578237D-01,  1.116067302973472D-02, &
 1.231008517680125D-01,  4.753879650258501D-01,  1.324596293468438D-02, &
 1.276588070261918D-01, -3.027418975026165D-01,  1.880072826559714D-02, &
 1.442219587876548D-01,  9.917004260484690D-01,  2.527011807500108D-03, &
 1.570373933725618D-01, -6.978163142964436D-01,  1.148876151378708D-02, &
 1.602837781659527D-01, -8.546895483149928D-01,  9.885073478511747D-03, &
 1.679988089754341D-01, -4.388106052157863D-01,  1.571275386456942D-02, &
 1.706449838302763D-01,  8.836551802782431D-01,  8.038658519121712D-03, &
 1.722055467782442D-01,  6.873345735469495D-01,  1.133583684301726D-02, &
 1.725147740607741D-01,  5.976020811915204D-01,  1.140314608712299D-02, &
 1.726116714065732D-01,  2.174974452316975D-01,  1.590035665116296D-02, &
 1.816716354061224D-01, -9.615618491387735D-01,  2.978742099030132D-03, &
 1.910999388491465D-01, -5.748539496478213D-01,  1.509977429582099D-02, &
 1.946536814154290D-01,  9.612563295817905D-01,  5.490013367391810D-03, &
 1.950313398093114D-01, -9.390444256419040D-01,  4.129734438091659D-03, &
 2.042331092646998D-01, -1.225948074751524D-02,  1.663069524482181D-02, &
 2.115604600690373D-01,  4.206501628650725D-01,  1.622528102872075D-02, &
 2.202097667160187D-01, -9.977429662985270D-01,  1.303069934955326D-03, &
 2.254137995022369D-01, -1.945262619590385D-01,  2.032600241526465D-02, &
 2.264962677001022D-01, -7.406196628504332D-01,  9.018221989261329D-03, &
 2.281975753978523D-01,  2.933251049638128D-01,  1.039571151862245D-02, &
 2.299925708319869D-01,  7.766849935728968D-01,  1.162319829976198D-02, &
 2.418266355083030D-01, -8.155977304752622D-01,  5.639586061670630D-03, &
 2.528734987524705D-01,  1.000864569130400D-01,  1.372369295593181D-02, &
 2.539085167701460D-01,  9.992367354749008D-01,  7.362226870467214D-04, &
 2.602577385956935D-01, -3.559789948391511D-01,  1.590809902210510D-02, &
 2.633486798231064D-01,  5.531499703542735D-01,  1.398453718361448D-02, &
 2.701666789762488D-01, -9.741038333559231D-01,  3.879006409933471D-03, &
 2.702194513535268D-01,  8.611546877103153D-01,  7.548029223327319D-03, &
 2.721846392481617D-01, -8.970549509207049D-01,  9.025150443164945D-03, &
 2.722006540631997D-01,  9.272099993727561D-01,  6.281659290118641D-03, &
 2.898542188079066D-01, -6.330069652325342D-01,  1.412145798182586D-02, &
 2.954492755010769D-01,  9.834117127161082D-01,  3.379925266369860D-03, &
 2.957526162080209D-01, -4.876169383565411D-01,  1.534619575085735D-02, &
 3.012423936798629D-01,  6.693885031733898D-01,  1.126757188865965D-02, &
 3.093324993446162D-01, -7.866827669318777D-01,  8.507371224954144D-03, &
 3.098139879229698D-01, -1.066163988920963D-01,  1.095431624202562D-02, &
 3.145433255025609D-01,  1.887048598242300D-01,  1.548218828411259D-02, &
 3.164232593211551D-01,  7.429261686367324D-01,  5.976361940569912D-03, &
 3.211239215007341D-01,  3.481155947386593D-01,  1.639976888297377D-02, &
 3.274412213828406D-01, -2.260401457313204D-02,  1.328209466144314D-02, &
 3.459056603672409D-01,  4.880157144461191D-01,  1.427913060937561D-02, &
 3.486739568508627D-01, -2.706799453032748D-01,  1.790534599137358D-02, &
 3.522240818473209D-01, -9.904239151356983D-01,  2.630094662997393D-03, &
 3.610877408616728D-01,  8.297008620205625D-01,  9.406051770632176D-03, &
 3.617280769528435D-01, -9.401480659088486D-01,  7.154768091047104D-03, &
 3.680086351266054D-01, -6.979889582949302D-01,  1.081487021761422D-02, &
 3.737267040247370D-01,  9.590954871481244D-01,  4.640668672343144D-03, &
 3.796487515464433D-01,  9.092228699079343D-01,  6.356176322652544D-03, &
 3.802442553217521D-01, -8.493133552804323D-01,  1.051968675909273D-02, &
 3.849225170655068D-01, -4.169734666972951D-01,  9.724255552168744D-03, &
 3.864577517310250D-01,  6.299902317618596D-01,  1.049642638160978D-02, &
 3.955046992121652D-01, -5.474259893157579D-01,  1.426771157675970D-02, &
 3.989722688095441D-01,  9.952608430268175D-01,  1.546205690889865D-03, &
 3.994375393561766D-01,  8.413566670896548D-02,  1.767270854523918D-02, &
 4.077259796016033D-01,  7.492102429229035D-01,  8.694161987156229D-03, &
 4.108551792292466D-01, -7.261324870817387D-01,  4.306155002341567D-03, &
 4.145077201239032D-01, -1.434465664707271D-01,  1.725622426589416D-02, &
 4.218638446966653D-01,  2.592840266301589D-01,  1.805298724340071D-02, &
 4.362577546949490D-01,  4.202960350604942D-01,  1.486935839319106D-02, &
 4.441617460367955D-01, -3.742961592477722D-01,  1.369039678808185D-02, &
 4.472892660613361D-01,  5.690445212955879D-01,  1.221020583633636D-02, &
 4.519080731349339D-01, -9.984396765695470D-01,  9.104456319465278D-04, &
 4.561007226835129D-01, -9.700945862732528D-01,  4.912897122852274D-03, &
 4.632227635675115D-01,  9.814205193370379D-01,  2.613335253646615D-03, &
 4.671044062418229D-01, -7.773382366003790D-01,  1.148882380125715D-02, &
 4.681987676963164D-01, -9.000816415421663D-01,  8.752217670591854D-03, &
 4.688360336456553D-01,  8.843163742148189D-01,  7.157111782324953D-03, &
 4.709097305697209D-01, -6.192328037671802D-01,  1.353895520891179D-02, &
 4.731977818372050D-01,  8.122514030227285D-01,  6.930386109087627D-03, &
 4.758233967224794D-01, -9.499700014764531D-03,  1.501969591730733D-02, &
 4.845997407738473D-01,  7.035482990021875D-01,  1.037135994169719D-02, &
 4.936443037514611D-01,  9.465513055935159D-01,  5.403406971553440D-03, &
 4.969937503660588D-01, -2.466042915149466D-01,  1.784450657561326D-02, &
 5.157073778702320D-01,  1.609863620383591D-01,  1.879587748844137D-02, &
 5.196722725049188D-01, -4.801432725924391D-01,  1.725926992286396D-02, &
 5.262824452533256D-01,  3.433052927748735D-01,  1.581695407925873D-02, &
 5.331665865462701D-01,  9.970597494728978D-01,  1.110041538717393D-03, &
 5.343185807415033D-01,  5.029270269025070D-01,  1.396353037202522D-02, &
 5.371325089697084D-01, -8.011203379709990D-02,  1.181135941584131D-02, &
 5.487723900103840D-01, -6.920470750806444D-01,  1.280023752030945D-02, &
 5.492720320374657D-01, -8.373014762031777D-01,  1.023676166331683D-02, &
 5.519019991796891D-01, -9.890368385507939D-01,  2.732564982558912D-03, &
 5.528541698467803D-01,  6.361229352805877D-01,  1.171212237998683D-02, &
 5.576025578329094D-01, -9.401328137991951D-01,  6.500514236109148D-03, &
 5.587300450136236D-01,  8.583430849979702D-01,  5.927281418798553D-03, &
 5.625099260935547D-01,  7.778619069194846D-01,  8.878902849634178D-03, &
 5.799634263647828D-01,  9.772590728941044D-01,  3.449436790328003D-03, &
 5.835973374377773D-01, -3.461086614433988D-01,  1.732203682677555D-02, &
 5.890404501501693D-01,  9.206940307202106D-01,  6.572394666527264D-03, &
 6.002219783980102D-01,  5.403874585262955D-02,  1.797054198971408D-02, &
 6.007203269774244D-01, -1.597960513238969D-01,  1.570057785252238D-02, &
 6.033379016027892D-01, -5.719396137245076D-01,  1.508372611713938D-02, &
 6.122357177770217D-01,  2.548990689966739D-01,  1.629549089611943D-02, &
 6.218404535164949D-01,  4.260251807764488D-01,  1.409803518042624D-02, &
 6.261412120185321D-01, -7.612964882114873D-01,  1.115166684172651D-02, &
 6.312112678821253D-01, -8.887426834499652D-01,  8.035436464026399D-03, &
 6.326491461674595D-01,  7.087147856504342D-01,  1.065338418396687D-02, &
 6.379215112130751D-01,  5.670614401267176D-01,  1.233100287824145D-02, &
 6.410984836103271D-01,  8.238821673751913D-01,  5.824601846420805D-03, &
 6.435026336621807D-01, -9.983082528329512D-01,  8.406070876814557D-04, &
 6.450215203909843D-01, -9.694287012984952D-01,  4.254123969191675D-03, &
 6.547035795617938D-01,  9.940970172871774D-01,  1.595895622818180D-03, &
 6.620238508003119D-01, -4.457520355368754D-01,  1.565706421137813D-02, &
 6.712488971549284D-01,  9.564498500229109D-01,  4.776110132553591D-03, &
 6.743483706032866D-01,  8.786507719647361D-01,  6.600160557324268D-03, &
 6.782866455285573D-01, -2.534754008840426D-01,  1.602307855437726D-02, &
 6.816715380174886D-01, -6.562333074021302D-01,  1.277287173246379D-02, &
 6.831396553262982D-01, -5.025358955518219D-02,  1.692483716041910D-02, &
 6.875688691464135D-01,  1.523532795702211D-01,  1.589039314041529D-02, &
 7.000574548967922D-01, -8.225599957784430D-01,  8.956533081134005D-03, &
 7.024233424547481D-01,  3.412634918186152D-01,  1.381334136967731D-02, &
 7.084219401683487D-01, -9.298201384783297D-01,  5.716321197953060D-03, &
 7.086337444142102D-01,  7.695704670416541D-01,  8.641963674824546D-03, &
 7.140404207255062D-01,  6.371246573044332D-01,  1.070392459478854D-02, &
 7.196190732492783D-01,  4.882248666799530D-01,  1.197379647349226D-02, &
 7.269321822743222D-01, -9.887675638640850D-01,  2.273665309343846D-03, &
 7.329540430986968D-01,  9.994520361414482D-01,  3.041538127530700D-04, &
 7.360777363538358D-01, -5.402149274576373D-01,  1.345453771968750D-02, &
 7.437035450232024D-01,  9.192149785074237D-01,  5.716340360168384D-03, &
 7.453991512679197D-01,  9.822746950042834D-01,  2.777507829800740D-03, &
 7.486275502230029D-01, -3.557473677134377D-01,  1.447118457086799D-02, &
 7.533200770053481D-01, -7.322571707312160D-01,  1.036649979314898D-02, &
 7.594734183304540D-01, -1.526746736533888D-01,  1.510577254629861D-02, &
 7.626828581715114D-01,  5.217879939928463D-02,  1.481683281953144D-02, &
 7.660500336383849D-01,  8.342336877874392D-01,  7.639362847929806D-03, &
 7.677740322724570D-01, -8.743907671109992D-01,  6.716521459650556D-03, &
 7.686352988370738D-01,  2.446641549937693D-01,  1.323529815530171D-02, &
 7.774912262938560D-01, -9.604818908070105D-01,  3.634588036562608D-03, &
 7.803754591141053D-01,  7.029689837797256D-01,  8.961843744448235D-03, &
 7.898299665920954D-01,  5.577510224714766D-01,  1.013316669078794D-02, &
 7.947551849888224D-01,  4.052480669355576D-01,  1.157650073560808D-02, &
 8.009671113820225D-01, -9.981533390719061D-01,  6.852854862182664D-04, &
 8.034618006847678D-01, -6.281857009049345D-01,  1.103532286602404D-02, &
 8.087394328827582D-01,  9.556037745856076D-01,  3.933758242891774D-03, &
 8.132142904625197D-01, -4.548944220943146D-01,  1.223637699266143D-02, &
 8.152897321117292D-01,  9.960859909883866D-01,  9.730665170684366D-04, &
 8.174915256392483D-01, -7.995012686440126D-01,  7.949359593998170D-03, &
 8.226990779980473D-01, -2.594419621957182D-01,  1.295208242924248D-02, &
 8.271269848617255D-01,  8.851367103086550D-01,  5.783392447697547D-03, &
 8.279841059514953D-01, -9.168099196511450D-01,  4.729333631541270D-03, &
 8.298817228165417D-01, -4.932544049099609D-02,  1.308861281523968D-02, &
 8.333486955686686D-01,  1.495187297327515D-01,  1.195411188321836D-02, &
 8.345679943920669D-01,  7.722499650445845D-01,  7.694139784998021D-03, &
 8.371745526664012D-01, -9.808931214242823D-01,  2.050522723814058D-03, &
 8.467158604246162D-01,  6.289407999349215D-01,  8.567266871139807D-03, &
 8.480068796648080D-01,  3.119740973719929D-01,  9.321790315925496D-03, &
 8.619939023548052D-01,  4.806373416483297D-01,  9.672951472047629D-03, &
 8.621111168073954D-01, -7.090421883632249D-01,  8.492263963507059D-03, &
 8.659273047100809D-01,  9.818377837992252D-01,  2.087386821145729D-03, &
 8.702282345000577D-01, -5.484829121208596D-01,  9.793908671588478D-03, &
 8.732550362347075D-01, -8.574796771270368D-01,  5.681748093343370D-03, &
 8.768491423274493D-01, -3.627381824235000D-01,  1.044386961685712D-02, &
 8.801258841317081D-01,  9.290747990279913D-01,  3.975614899427044D-03, &
 8.811873265749205D-01, -9.497474912342982D-01,  3.085534283412631D-03, &
 8.837148490953154D-01, -1.576361975891787D-01,  1.099997902023932D-02, &
 8.860972589276557D-01,  8.331612020727454D-01,  5.781048219808546D-03, &
 8.866199302094060D-01, -9.938258930614400D-01,  9.839665860219130D-04, &
 8.895672957850502D-01,  5.293510599726065D-02,  1.040987558289029D-02, &
 8.940375402275955D-01,  7.041313708313275D-01,  7.142826419236804D-03, &
 8.969710028279102D-01,  2.256802214985589D-01,  7.410425347310207D-03, &
 9.013251796383466D-01,  3.666844788249730D-01,  6.151586476003017D-03, &
 9.087015117883152D-01,  9.969915072869269D-01,  6.470318411854381D-04, &
 9.096781399489776D-01,  5.604773052603598D-01,  7.205603970066971D-03, &
 9.111951012665040D-01, -7.814905098540573D-01,  6.041492892648836D-03, &
 9.172703778429636D-01, -6.365672819732232D-01,  7.262815260314241D-03, &
 9.202380773523146D-01, -9.050386110265841D-01,  3.683312035807689D-03, &
 9.220086198065640D-01, -4.592930118785874D-01,  7.896825458118423D-03, &
 9.235763538947596D-01,  9.640444233499114D-01,  2.312159206833450D-03, &
 9.261329198739888D-01, -9.746027153962696D-01,  1.776302974763280D-03, &
 9.273226373183119D-01, -2.659618987488091D-01,  8.495674903422557D-03, &
 9.290856294325159D-01,  8.871608380321619D-01,  3.918401242147426D-03, &
 9.320728477635706D-01, -5.264490338972241D-02,  8.452404593360153D-03, &
 9.338088134935508D-01,  2.598456851976017D-01,  2.595536800191603D-03, &
 9.343242796602114D-01,  4.294254268855136D-01,  6.109989073144874D-03, &
 9.350865783178156D-01,  7.749842255798853D-01,  5.158635670181725D-03, &
 9.389178998337855D-01, -9.983688364336674D-01,  3.205800161394826D-04, &
 9.395231994348571D-01,  1.457862489409124D-01,  6.657538796439106D-03, &
 9.443304774038754D-01,  6.368742088572625D-01,  5.273401811778445D-03, &
 9.502192536056790D-01, -8.439252795287028D-01,  3.825522511161339D-03, &
 9.539639220051850D-01, -7.173033838147738D-01,  4.862799620669253D-03, &
 9.549989203380340D-01,  9.887724667769165D-01,  1.007773895019914D-03, &
 9.558923457352529D-01, -5.499187290928166D-01,  5.368921482058166D-03, &
 9.572708860210799D-01, -9.424725960383203D-01,  2.087979607175203D-03, &
 9.606958049220916D-01,  3.081366550020263D-01,  5.455334451053538D-03, &
 9.614256374444105D-01,  9.328771743819428D-01,  2.264842731050030D-03, &
 9.617304012154808D-01, -3.684756255396696D-01,  5.961021756038116D-03, &
 9.634120661314701D-01, -1.626856446045910D-01,  5.991502859241982D-03, &
 9.651954595073776D-01,  5.128458551084091D-01,  5.121256639651095D-03, &
 9.666680119711900D-01, -9.879489037902746D-01,  8.035625344075275D-04, &
 9.669765353727785D-01,  8.388123877959717D-01,  3.240365622776667D-03, &
 9.679069092640856D-01,  5.291894734981822D-02,  5.483965867735776D-03, &
 9.708143762319804D-01,  7.098339240446494D-01,  3.611310052438938D-03, &
 9.785540980020077D-01, -8.955915042635302D-01,  2.022068123378164D-03, &
 9.789828886434943D-01, -6.301653850940090D-01,  3.120578758401599D-03, &
 9.799368890832454D-01, -7.898861275347491D-01,  2.697855299373055D-03, &
 9.815923254661588D-01,  9.991082969355470D-01,  1.800328977889874D-04, &
 9.825204731628883D-01,  9.691072435867270D-01,  1.033098155222703D-03, &
 9.826130188082844D-01,  2.018533291539324D-01,  3.940386018971356D-03, &
 9.831116643490232D-01,  3.932597865155385D-01,  2.757351758467422D-03, &
 9.844227148004673D-01, -4.680325982952541D-01,  3.466798907655683D-03, &
 9.853079288654077D-01, -2.623064638103086D-01,  3.238657892966299D-03, &
 9.861629614331282D-01, -9.648994574590848D-01,  9.190271035579097D-04, &
 9.865979212862428D-01, -5.871716068212986D-02,  3.448498853249387D-03, &
 9.867187183083578D-01,  6.036002868761330D-01,  2.989922308625185D-03, &
 9.875040522290420D-01,  8.954189297031747D-01,  1.599426753793162D-03, &
 9.891720527404116D-01, -9.974135252406250D-01,  1.922590066403422D-04, &
 9.896982696240531D-01,  7.781770875290389D-01,  1.992196225105480D-03, &
 9.914052559973405D-01, -7.023250519059472D-01,  1.361348704496822D-03, &
 9.914304305563754D-01,  4.291601514462605D-01,  1.270285302858647D-03, &
 9.933660348449341D-01, -3.161717536031352D-01,  8.387713122106447D-04, &
 9.953468235808713D-01, -8.508120228627952D-01,  1.028310207063733D-03, &
 9.954005028570233D-01,  1.203116337354302D-01,  1.443569885953676D-03, &
 9.964167588339662D-01,  9.892036664406441D-01,  2.516135591721077D-04, &
 9.964624830190837D-01, -5.570787045642487D-01,  1.303165763686854D-03, &
 9.965532592866511D-01, -9.290044070830288D-01,  6.034648824689160D-04, &
 9.972986691166712D-01,  2.707798066058207D-02,  8.893716616277809D-04, &
 9.973454309733404D-01,  9.423377622335455D-01,  4.836806630189215D-04, &
 9.974464559033922D-01,  2.966888554053162D-01,  1.397441303354461D-03, &
 9.978751297025205D-01,  6.879180639452499D-01,  9.450952193083518D-04, &
 9.979107729485314D-01, -6.529159127971879D-01,  3.633867657362896D-04, &
 9.979346610008943D-01,  5.127640690222413D-01,  1.033714442116006D-03, &
 9.979563603675163D-01, -1.627643560997576D-01,  1.227147024948174D-03, &
 9.981572755902530D-01, -3.878455559966326D-01,  9.745188221536845D-04, &
 9.983624118051736D-01, -7.608024429037672D-01,  5.224452130672093D-04, &
 9.985845745857554D-01,  8.445726670375774D-01,  5.544684199320334D-04, &
 9.985928023604709D-01, -9.844383621232889D-01,  1.770821645368481D-04 /)

  return
end
subroutine smr54 ( xyw )

!*****************************************************************************80
!
!! SMR54 returns the SMR rule of degree 54.
!
!  Discussion:
!
!    DEGREE: 54
!    POINTS CARDINALITY: 530
!    NORM INF MOMS. RESIDUAL: 5.39824e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*530), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*530)

  xyw = (/ &
 -9.989817717908982D-01,  5.919272627455578D-01,  4.192164731453299D-04, &
 -9.987404572465737D-01,  1.308084790329531D-01,  1.021852171532156D-03, &
 -9.986234267784356D-01, -4.263738548438438D-01,  8.092096026376365D-04, &
 -9.981931054807527D-01,  3.646305906433953D-01,  9.508207239229283D-04, &
 -9.981856973324568D-01,  7.272619710460589D-01,  6.106524315481551D-04, &
 -9.980709749587124D-01, -6.001863748613854D-01,  8.126915872357096D-04, &
 -9.980413923840483D-01, -8.914269607610811D-01,  4.682310231840477D-04, &
 -9.979705384624564D-01, -7.412992362417765D-01,  7.151087866573973D-04, &
 -9.978690979638140D-01,  9.663123578468790D-01,  3.202153175837222D-04, &
 -9.977258243819628D-01, -9.652827050987313D-01,  3.283439367940058D-04, &
 -9.971716111831748D-01, -9.974268956785031D-01,  8.241300038356087D-05, &
 -9.970352418855494D-01,  9.974255320425583D-01,  8.212998926647490D-05, &
 -9.969224314551484D-01, -9.393125488685919D-02,  1.504803327632492D-03, &
 -9.960677559421486D-01, -2.647274988430133D-01,  1.572549858547515D-03, &
 -9.960215426387498D-01,  8.267393820611655D-01,  9.559033420839447D-04, &
 -9.948684167675756D-01,  9.071416133542933D-01,  8.949139768864249D-04, &
 -9.947720129850103D-01,  5.104011858905396D-01,  1.494625194595164D-03, &
 -9.928183610027883D-01, -8.240968026714828D-01,  1.339991144849752D-03, &
 -9.913254503184387D-01,  2.674834631813928D-01,  2.106476272485075D-03, &
 -9.904625945177303D-01,  6.584559213904446D-01,  1.813259044357879D-03, &
 -9.890383005625215D-01, -5.149553957207894D-01,  2.455252158291572D-03, &
 -9.881194568841846D-01,  2.614827265266613D-02,  3.325719901930421D-03, &
 -9.879408478281920D-01, -9.291292547818254D-01,  1.147091172840035D-03, &
 -9.875251490473347D-01, -6.727745764892368D-01,  2.262078818748468D-03, &
 -9.858527951227277D-01, -9.864963721615293D-01,  5.725658200176546D-04, &
 -9.854338631227043D-01,  9.874105156506667D-01,  5.586886490640081D-04, &
 -9.852263671099249D-01, -3.625385392177216D-01,  2.857661335439080D-03, &
 -9.825593639450432D-01,  1.995031163134125D-01,  2.367547927531011D-03, &
 -9.824114240376021D-01,  4.281675290505715D-01,  3.355872483204902D-03, &
 -9.817256672127911D-01,  7.647122894159171D-01,  2.575116468351886D-03, &
 -9.805318040753007D-01, -1.804457704525198D-01,  4.118289237515360D-03, &
 -9.805039503463728D-01,  9.466567028850934D-01,  1.325628488583474D-03, &
 -9.756665239670562D-01,  8.635894110547788D-01,  2.435706692004165D-03, &
 -9.752755423873182D-01,  5.832180325449532D-01,  3.514659543525947D-03, &
 -9.750402397814284D-01, -7.646880569660038D-01,  2.888748522483849D-03, &
 -9.735468564559212D-01, -8.717051891324532D-01,  2.366889660470246D-03, &
 -9.679592288793518D-01, -5.935816838222202D-01,  3.995306431519523D-03, &
 -9.677571838023695D-01, -9.595967788974593D-01,  1.428616809901578D-03, &
 -9.658639079002952D-01, -4.432770743101457D-01,  3.839496537131441D-03, &
 -9.650415941859795D-01,  1.236248887610379D-01,  4.840226470267086D-03, &
 -9.631290872983891D-01, -5.876034750881315D-02,  5.470783159765819D-03, &
 -9.631034141806328D-01, -9.976850977314620D-01,  3.419776280288853D-04, &
 -9.625553199946670D-01,  3.295323982859324D-01,  5.459065077538461D-03, &
 -9.612827522133878D-01,  9.981364356409019D-01,  3.166348923351850D-04, &
 -9.580877877056461D-01, -2.969810053181347D-01,  5.220897083430127D-03, &
 -9.571485087500350D-01,  6.922808060935507D-01,  4.586679952432644D-03, &
 -9.535301324509948D-01,  9.746155590088402D-01,  1.418913803798055D-03, &
 -9.524379004857232D-01,  9.162146344965918D-01,  2.407729567382604D-03, &
 -9.505895051965978D-01,  5.014963263274375D-01,  5.575945233813663D-03, &
 -9.478749822163210D-01, -6.944812783499223D-01,  4.655155635074236D-03, &
 -9.455021911300354D-01,  8.056725087594965D-01,  4.359359472393902D-03, &
 -9.447465384828663D-01, -9.154409664580865D-01,  2.795239997076277D-03, &
 -9.433146066792609D-01, -8.168805299510518D-01,  4.028643084029805D-03, &
 -9.387233616656319D-01, -5.109006904129239D-01,  4.894958084076135D-03, &
 -9.384629482238540D-01, -9.818626877894082D-01,  1.310428168181814D-03, &
 -9.381114810015984D-01,  2.185836698314924D-01,  4.884732944819899D-03, &
 -9.358560535321955D-01, -2.315428002863897D-01,  3.316562519259470D-03, &
 -9.308010611209707D-01, -1.424231144558627D-01,  5.747390039768777D-03, &
 -9.297630644633869D-01,  4.416527314167950D-02,  7.517898257378467D-03, &
 -9.233227723178385D-01,  4.023719757646702D-01,  5.284707530975812D-03, &
 -9.224542858756197D-01,  6.127728993680069D-01,  6.776489078687089D-03, &
 -9.196650460217998D-01, -3.918897734223120D-01,  7.307992712751874D-03, &
 -9.194831397810722D-01,  8.782442449140750D-01,  3.380706025809833D-03, &
 -9.150738342453455D-01,  2.565854509614714D-01,  4.607153630685746D-03, &
 -9.145318414055876D-01, -6.141747725191304D-01,  6.046283805446541D-03, &
 -9.139502328154178D-01,  9.519560268303220D-01,  2.502572477084220D-03, &
 -9.134793665954337D-01,  9.919095371825775D-01,  1.124626818044628D-03, &
 -9.060090402237246D-01, -9.506888110190086D-01,  2.778798298294591D-03, &
 -9.053928987959834D-01,  4.255816005703235D-01,  3.224317780033523D-03, &
 -9.044639609806726D-01,  7.378720657330040D-01,  6.636831081783288D-03, &
 -9.041783402072592D-01, -8.694205435587335D-01,  4.455650498659537D-03, &
 -9.040300328146645D-01, -7.515160741939899D-01,  5.918295079633594D-03, &
 -9.017899755155315D-01, -9.954102906217157D-01,  7.928254709759700D-04, &
 -8.897004636163042D-01, -2.191520488598997D-01,  5.655997887446038D-03, &
 -8.877453802381129D-01, -5.477593167943130D-02,  9.196179323015951D-03, &
 -8.840808803351360D-01,  1.391072028749891D-01,  9.640533450227940D-03, &
 -8.828518434418928D-01, -3.121002666602964D-01,  6.236556130589060D-03, &
 -8.818476420260746D-01,  8.364954439794862D-01,  4.678268202212999D-03, &
 -8.816605510809139D-01, -5.252727670887154D-01,  6.613415579576893D-03, &
 -8.785653704569504D-01,  5.278061262141955D-01,  8.847143039918376D-03, &
 -8.699871131424373D-01,  9.213357639099106D-01,  3.632006018382626D-03, &
 -8.683297949701945D-01,  3.231905589440098D-01,  9.593963354545314D-03, &
 -8.604990767543338D-01, -6.723649810540170D-01,  7.844257742747529D-03, &
 -8.592897950466277D-01,  9.761958158048712D-01,  2.408602549499724D-03, &
 -8.585649827583716D-01, -9.769138516545594D-01,  2.321654990097349D-03, &
 -8.555827158290819D-01, -4.472850328113563D-01,  7.381515678371422D-03, &
 -8.554969798794826D-01, -9.140049134243882D-01,  4.445756671413822D-03, &
 -8.549727674964507D-01, -8.129934326041193D-01,  6.375752094967673D-03, &
 -8.537907187771469D-01,  9.988992207578934D-01,  4.358179382894343D-04, &
 -8.531681357690770D-01,  6.611164416907961D-01,  9.119660780491236D-03, &
 -8.350636199588630D-01,  7.852767143246269D-01,  6.889525487372896D-03, &
 -8.349595897816755D-01, -1.520071332967412D-01,  1.065179565209894D-02, &
 -8.320657289288327D-01,  3.716906860716102D-02,  1.146602495213217D-02, &
 -8.268341463810431D-01, -2.968395593787465D-01,  6.862218866630454D-03, &
 -8.246596591114025D-01, -9.965096629638894D-01,  8.191929500848176D-04, &
 -8.245747953184245D-01,  4.399187035083351D-01,  1.074447207779778D-02, &
 -8.205544234046400D-01,  8.852149825875817D-01,  5.035650441337556D-03, &
 -8.201077685552812D-01,  2.167941468653240D-01,  1.120664310470067D-02, &
 -8.133180823505128D-01, -5.827868689492453D-01,  1.020050720602399D-02, &
 -8.039514840518650D-01, -3.887612693005317D-01,  8.156471508075192D-03, &
 -8.020182152432404D-01, -7.434295570675248D-01,  8.516722515686231D-03, &
 -7.993113635576975D-01,  9.508317269117940D-01,  3.951550791219958D-03, &
 -7.977917653551984D-01, -9.498027641226449D-01,  4.046020691573701D-03, &
 -7.966018517884945D-01, -8.670707527670807D-01,  6.396726072271494D-03, &
 -7.931825421678735D-01,  5.760232971144895D-01,  1.150512626594489D-02, &
 -7.926266834000572D-01,  9.921891129165684D-01,  1.367686056645448D-03, &
 -7.771396199978947D-01,  7.224416691496910D-01,  9.346300134052963D-03, &
 -7.734124506696661D-01,  3.227290869794067D-01,  8.975472976200140D-03, &
 -7.703196567703094D-01, -6.166649668685752D-02,  1.296602865392240D-02, &
 -7.639145055393257D-01, -9.849091728353774D-01,  2.189782887003045D-03, &
 -7.629322821804013D-01,  8.407308321500763D-01,  7.120214624978285D-03, &
 -7.626926298628909D-01, -2.351311412555938D-01,  1.196574993978526D-02, &
 -7.595961758924654D-01, -4.888664940264281D-01,  1.136013589405564D-02, &
 -7.583264577383526D-01,  1.203418784123442D-01,  1.319999781535264D-02, &
 -7.534370979577448D-01,  3.876976391386210D-01,  5.897710869634649D-03, &
 -7.446105000480632D-01, -6.652463657026361D-01,  1.063122807861948D-02, &
 -7.403189886112194D-01,  9.802339164748645D-01,  2.050796688775679D-03, &
 -7.335598541855958D-01, -8.081850052797745D-01,  8.660179094542753D-03, &
 -7.323073282715993D-01,  9.179212596057432D-01,  5.596503741402021D-03, &
 -7.283214984315893D-01, -9.121288534905104D-01,  6.106288648057536D-03, &
 -7.205165128910833D-01,  4.912094353971421D-01,  1.322119178401210D-02, &
 -7.202928498310126D-01, -9.987309089969828D-01,  5.258054963828562D-04, &
 -7.140760443768659D-01, -3.530100176005496D-01,  1.329784234525705D-02, &
 -7.124579482134324D-01,  6.494569766773742D-01,  1.132420139371352D-02, &
 -7.046398991051476D-01,  2.461557767190701D-01,  1.316382807437570D-02, &
 -6.965139599435282D-01,  9.980269396597710D-01,  8.468443147483151D-04, &
 -6.955976699513159D-01,  7.858134610190387D-01,  9.483582940511751D-03, &
 -6.933698254139239D-01, -9.638333240537718D-01,  3.924272626110384D-03, &
 -6.916049886292619D-01, -1.473824067364324D-01,  1.379946652263615D-02, &
 -6.900647649939231D-01, -5.756250123370613D-01,  1.131366317435485D-02, &
 -6.896395099305572D-01,  2.450716766496345D-02,  1.433783710214306D-02, &
 -6.791067170899857D-01,  9.629073491101878D-01,  3.765624216430676D-03, &
 -6.665583661377872D-01, -7.396479470660201D-01,  1.078002527678657D-02, &
 -6.617665117353752D-01,  8.782682043901964D-01,  7.160836419170941D-03, &
 -6.547645869221170D-01, -4.567828647957672D-01,  1.235987868867504D-02, &
 -6.534762438686446D-01, -8.630076300534779D-01,  8.538047957473528D-03, &
 -6.520027037508170D-01,  3.735882243699723D-01,  1.516020774574135D-02, &
 -6.517784533911791D-01, -9.917908605039587D-01,  1.649695282763077D-03, &
 -6.392095883446625D-01,  5.800402186061466D-01,  1.161152099493760D-02, &
 -6.376246103269898D-01,  1.586423655659965D-01,  1.380903763545163D-02, &
 -6.327846798140507D-01, -2.616795092165446D-01,  1.537715962316561D-02, &
 -6.240350274451502D-01,  7.202357912728578D-01,  1.128423081027187D-02, &
 -6.149539141562774D-01, -9.331114005968212D-01,  5.973942783567584D-03, &
 -6.122194846749883D-01, -6.515331165545560D-01,  1.111044461856676D-02, &
 -6.109552256753611D-01,  9.882437872281699D-01,  2.667119864257815D-03, &
 -6.075850901806646D-01, -6.310115283305893D-02,  1.462210878363727D-02, &
 -6.072861502023867D-01,  4.905670021193503D-01,  8.470043747920344D-03, &
 -6.015220267548393D-01,  9.349603376928803D-01,  6.061794422141538D-03, &
 -5.905725005438208D-01,  8.331968654144224D-01,  8.330672895641352D-03, &
 -5.805512578578408D-01, -9.781724160170889D-01,  3.002089846665531D-03, &
 -5.766322657231936D-01, -8.019456106219724D-01,  1.071573135474418D-02, &
 -5.758873833179518D-01, -3.797930059724561D-01,  1.410780437411866D-02, &
 -5.758044628531556D-01, -5.431666836509476D-01,  1.250321425804641D-02, &
 -5.701897881977539D-01,  7.196089886371619D-02,  1.340015602318261D-02, &
 -5.675904138396737D-01,  2.751253062951665D-01,  1.737410839787904D-02, &
 -5.553792678938588D-01, -9.985017652958537D-01,  7.085987040688918D-04, &
 -5.456087648129923D-01,  6.599941556879438D-01,  1.081777781980287D-02, &
 -5.428550764673452D-01, -1.681164911727584D-01,  1.620487411044344D-02, &
 -5.392986597197948D-01,  4.382461398474867D-01,  1.322051456706655D-02, &
 -5.333581011400846D-01, -8.924070574982715D-01,  8.096515253402553D-03, &
 -5.293207101815004D-01, -7.129696889928183D-01,  1.046695608551654D-02, &
 -5.290868756599331D-01,  7.840020586708457D-01,  8.165858398272986D-03, &
 -5.276014126395560D-01,  5.734029485384756D-01,  8.947303079726300D-03, &
 -5.208347199729565D-01,  9.983223158535289D-01,  9.204125169539234D-04, &
 -5.167452045861149D-01,  9.688882331602159D-01,  4.810895911417227D-03, &
 -5.152624846429958D-01,  8.963754564805726D-01,  8.321128511156680D-03, &
 -5.002251071203062D-01, -9.570565024360769D-01,  4.944271560105734D-03, &
 -4.932266910589403D-01, -4.711107586002372D-01,  1.392484590851878D-02, &
 -4.921580787739357D-01, -2.932163995933711D-01,  1.583029572106085D-02, &
 -4.879008547264502D-01, -6.201644318968081D-03,  1.496619326816272D-02, &
 -4.852163690035972D-01,  1.624165605662743D-01,  1.717478193204391D-02, &
 -4.823665194042128D-01, -6.169799586006250D-01,  1.293927977760325D-02, &
 -4.703674730266642D-01, -9.914498714302058D-01,  2.012990135531071D-03, &
 -4.636605522134049D-01,  3.574499996088237D-01,  1.446178985104287D-02, &
 -4.635626709780222D-01, -8.379512800964518D-01,  8.670390056290013D-03, &
 -4.616882999336276D-01,  7.441874849999627D-01,  9.278333622213229D-03, &
 -4.428826220830571D-01,  5.242412903345882D-01,  1.401423158385144D-02, &
 -4.375574474750148D-01, -7.560923913938994D-01,  1.060832188420960D-02, &
 -4.373507999119863D-01,  2.790611242916685D-01,  5.124081896234384D-03, &
 -4.360016080614369D-01, -9.911845198571319D-02,  1.336294282347855D-02, &
 -4.318212671580576D-01,  6.490625104897801D-01,  1.048403694888664D-02, &
 -4.312768828083386D-01,  8.458926838617457D-01,  1.005241229734938D-02, &
 -4.195936220368654D-01,  9.896332053755005D-01,  2.832340745872356D-03, &
 -4.195035071205845D-01,  9.391789505533757D-01,  7.087287993156248D-03, &
 -4.158372945781164D-01, -9.247166955115301D-01,  7.200678481835746D-03, &
 -4.082322252181940D-01, -3.895067692217146D-01,  1.571591993987856D-02, &
 -3.945619771869534D-01, -2.102382908787201D-01,  1.645442705259772D-02, &
 -3.927191939155762D-01, -5.456985704133576D-01,  1.387951318062375D-02, &
 -3.871818805737522D-01, -9.785560486250816D-01,  3.357590491647819D-03, &
 -3.777405489965089D-01,  2.271876155103771D-01,  1.464444862096865D-02, &
 -3.759119908505304D-01,  6.749055163565303D-02,  1.970543400262736D-02, &
 -3.723355165014207D-01, -6.701266603185027D-01,  1.262000893299485D-02, &
 -3.676289846847610D-01, -8.661368970945535D-01,  7.011405339219392D-03, &
 -3.664037660595558D-01,  4.496056266935061D-01,  1.177520117108604D-02, &
 -3.644175466900805D-01, -9.988404483094074D-01,  6.861446217182368D-04, &
 -3.612218369591753D-01,  7.139281737711283D-01,  8.660409393382987D-03, &
 -3.533163408214845D-01,  3.703602260250929D-01,  7.687812735908846D-03, &
 -3.390251629862523D-01,  7.979819236131581D-01,  1.008487673748482D-02, &
 -3.345649108519196D-01,  9.723276852657335D-01,  2.678299050653827D-03, &
 -3.293646261299018D-01,  5.938175713548932D-01,  1.490674822227216D-02, &
 -3.289203518655379D-01,  8.957126445136651D-01,  8.989588878027095D-03, &
 -3.243047057088739D-01, -7.936980547794279D-01,  1.075979049243002D-02, &
 -3.129605000582947D-01, -6.643571783650405D-02,  1.856839158447809D-02, &
 -3.117073855253361D-01, -3.093183812990403D-01,  1.656632086288442D-02, &
 -3.072762353389070D-01, -9.564548826763054D-01,  5.369964649875180D-03, &
 -3.061436378051206D-01, -4.704135840359435D-01,  1.475623099958883D-02, &
 -3.021913077128562D-01,  9.981390270674768D-01,  1.131666739617315D-03, &
 -2.949530243768917D-01,  9.686835034877084D-01,  2.797024137967235D-03, &
 -2.924635827539191D-01, -7.047858510122733D-01,  6.851571387118350D-03, &
 -2.812350771273387D-01, -8.980684313341059D-01,  7.363138635454566D-03, &
 -2.806273605262599D-01,  3.029645468518594D-01,  1.520110596476129D-02, &
 -2.745982375561375D-01, -9.934986711091262D-01,  1.673742994343650D-03, &
 -2.710331296874568D-01,  4.652469064012115D-01,  1.090810494083061D-02, &
 -2.635463086619279D-01,  1.586055674415278D-01,  1.746954739472360D-02, &
 -2.625382248376168D-01, -5.932891429782097D-01,  1.529823413526504D-02, &
 -2.590525077776922D-01, -1.823032100069667D-01,  1.460011251776361D-02, &
 -2.581989912968990D-01,  6.927205540494286D-01,  1.020066380845207D-02, &
 -2.411331427499952D-01,  9.344875760714670D-01,  5.158877832261257D-03, &
 -2.406223697257603D-01,  7.735613151103899D-01,  6.930533482154789D-03, &
 -2.306207507959519D-01,  4.834271168445705D-02,  1.167695287885717D-02, &
 -2.256547660822549D-01, -8.303251302805508D-01,  5.969813944396011D-03, &
 -2.233405416434596D-01,  8.513588948939629D-01,  1.041708126169881D-02, &
 -2.200209241310239D-01,  5.418414720955490D-01,  1.204616875868074D-02, &
 -2.140824323336795D-01, -3.999817827003599D-01,  1.469205327663902D-02, &
 -2.099887189967384D-01, -7.385652177919024D-01,  1.102272008220242D-02, &
 -2.055981693756977D-01, -9.815381529846507D-01,  3.208405941212317D-03, &
 -1.907642188897441D-01,  9.883341858044101D-01,  3.400965087265759D-03, &
 -1.897223918835828D-01, -9.336864994968639D-01,  6.598813190376643D-03, &
 -1.856872749545497D-01,  3.807518860810150D-01,  1.626600502334043D-02, &
 -1.856560896180115D-01,  6.458143580207676D-01,  9.595353199870314D-03, &
 -1.771535862151187D-01, -8.502150916777047D-01,  6.882856119388930D-03, &
 -1.761506840632638D-01, -2.849688737894649D-01,  1.376397443479240D-02, &
 -1.760694512771735D-01,  9.487132134491084D-01,  3.463137052103194D-03, &
 -1.759090616673586D-01, -1.668583040865908D-02,  1.494943461671058D-02, &
 -1.743545387314084D-01, -6.480592314695985D-01,  8.068616752476498D-03, &
 -1.646646667032431D-01, -1.549382245795711D-01,  1.229946774808041D-02, &
 -1.564278540839040D-01, -5.099794466889294D-01,  1.583679910644951D-02, &
 -1.476250668191063D-01,  2.508400888737863D-01,  1.598240477070294D-02, &
 -1.378533885088872D-01,  7.470167466939204D-01,  1.025090566987707D-02, &
 -1.339102361885577D-01,  1.587463638591125D-01,  1.042002071483287D-02, &
 -1.253458474656329D-01,  9.016084675302966D-01,  8.382092697242076D-03, &
 -1.242718966113707D-01, -9.975311977305669D-01,  1.307493707247085D-03, &
 -1.149177253012365D-01,  5.015141775843105D-01,  1.335216066856519D-02, &
 -1.062013123816681D-01,  8.113862649434280D-01,  8.240179055283665D-03, &
 -1.005242315957304D-01, -6.768307306217036D-01,  9.892753624061720D-03, &
 -9.910296904870308D-02, -9.655033098878887D-01,  4.971432564142077D-03, &
 -9.822456345521705D-02,  6.182616980114717D-01,  1.154982585129897D-02, &
 -9.094894553724515D-02, -7.832264404807726D-01,  1.272153770310018D-02, &
 -8.951973571157114D-02, -8.934469335864712D-01,  9.040121806196625D-03, &
 -8.864913498943343D-02, -5.752029154809029D-01,  7.696987946647426D-03, &
 -7.813610453536655D-02, -3.824731713047965D-01,  1.595389785417394D-02, &
 -7.808279619773810D-02,  9.678657629328651D-01,  5.348961931934154D-03, &
 -7.518429220875299D-02, -9.501265478490149D-02,  1.603342783311217D-02, &
 -7.256720788480295D-02,  9.980188020733000D-01,  1.239829395370563D-03, &
 -7.160051871827056D-02,  7.964916268348117D-02,  1.747639962808621D-02, &
 -6.658775866489877D-02, -2.544806391357054D-01,  1.439738622078677D-02, &
 -5.912591896874869D-02,  4.086931280855817D-01,  1.434397636411426D-02, &
 -3.003234825592526D-02,  8.585057270530800D-01,  8.172528647752865D-03, &
 -2.645953523971930D-02,  7.046260937171298D-01,  1.344291776488621D-02, &
 -2.534886371863461D-02,  2.933719416861227D-01,  1.759197717607860D-02, &
 -1.323065725566219D-02, -4.759685548931392D-01,  1.437852891867941D-02, &
 -1.108857312313384D-02, -6.086185473503245D-01,  1.096431541959337D-02, &
 -9.767336568716133D-03, -9.880188324263295D-01,  3.240769608183762D-03, &
 2.472574608889389D-03,  9.298777848313345D-01,  7.408272240383237D-03, &
 3.476131508526145D-03,  5.622804755214021D-01,  1.417273440946883D-02, &
 5.102825364173400D-03, -9.360854000426274D-01,  7.306890259002694D-03, &
 7.481806578463433D-03, -4.304909728461822D-03,  9.644021597489717D-03, &
 1.083187044442501D-02, -8.405067439387872D-01,  1.139227327264933D-02, &
 2.078810983363222D-02, -7.184977995593806D-01,  1.419275964745119D-02, &
 2.352332931112040D-02, -1.777262641278441D-01,  1.513652886721543D-02, &
 2.605792957621816D-02,  1.714141618252540D-01,  1.746784365412643D-02, &
 3.419270449758923D-02,  7.926923352194076D-01,  1.114588247114633D-02, &
 3.689227013453180D-02,  9.869329842141271D-01,  3.587800597955966D-03, &
 5.231331279344743D-02, -2.983724214658152D-01,  1.282800566620749D-02, &
 5.333417882238150D-02, -3.150790865005272D-02,  1.067689529371097D-02, &
 5.515446270123405D-02,  4.640348051148255D-01,  1.483471286370125D-02, &
 7.326926690316637D-02, -3.859166123826371D-01,  1.317399038328787D-02, &
 7.896436713254719D-02,  6.515068803712124D-01,  1.175778018467305D-02, &
 8.106589543358063D-02, -5.455789831489050D-01,  1.257961431518928D-02, &
 9.143189128962997D-02,  8.849636002129454D-01,  7.995804990083446D-03, &
 9.183620472220967D-02, -9.982620877010548D-01,  1.071611175557207D-03, &
 1.020899734795291D-01, -9.680677235297332D-01,  5.359511511849509D-03, &
 1.032064648808839D-01,  3.508166883429220D-01,  1.821445820076782D-02, &
 1.055465484669112D-01, -8.936553035854308D-01,  9.364571370580868D-03, &
 1.116319040200762D-01,  9.569683551028125D-01,  5.799167128957759D-03, &
 1.184093061912173D-01,  6.460797547191485D-02,  1.538648042988892D-02, &
 1.211496833043070D-01, -7.832288499871760D-01,  1.305125306673873D-02, &
 1.222296761980543D-01, -6.414978463247534D-01,  1.274307450341386D-02, &
 1.268780973858983D-01,  2.124489885142361D-01,  1.303843019488049D-02, &
 1.334028983920185D-01,  7.430849024557798D-01,  1.170710723942358D-02, &
 1.377561712790752D-01, -1.149141127497300D-01,  1.518998754371716D-02, &
 1.443645551391211D-01,  5.914798921541217D-01,  9.267995494968094D-03, &
 1.464713397158526D-01,  9.975108317870389D-01,  1.344221020630127D-03, &
 1.471243438702994D-01,  8.406549255746518D-01,  6.868706503673577D-03, &
 1.539021244046412D-01, -2.177903033576761D-01,  1.189096266115889D-02, &
 1.645948745810365D-01, -4.622499482006776D-01,  1.598264890363537D-02, &
 1.737606299255193D-01,  5.108712579502437D-01,  1.343700851176021D-02, &
 1.960337529226180D-01, -3.160892037041645D-01,  1.517528874189867D-02, &
 1.996879640965994D-01, -6.932804184761608D-01,  1.065797263441093D-02, &
 2.020074577970664D-01, -9.886491220693521D-01,  3.111072986126015D-03, &
 2.033963003224787D-01, -9.351529309857213D-01,  7.383713855162398D-03, &
 2.050316445884164D-01,  9.183031846509473D-01,  7.915254944655616D-03, &
 2.133741088627701D-01, -8.457977005703088D-01,  1.089663499513872D-02, &
 2.141494782415598D-01,  9.779765604905496D-01,  4.137849906961731D-03, &
 2.177197497330517D-01,  2.653968084572469D-01,  1.606441497945596D-02, &
 2.182669785207582D-01,  1.002641349031797D-01,  1.470303701111106D-02, &
 2.208729153200149D-01, -3.179321251109352D-02,  1.319786624286162D-02, &
 2.223340049334479D-01,  6.699405548173695D-01,  1.117930035973834D-02, &
 2.292846440205571D-01,  4.151794226086859D-01,  1.606327398417143D-02, &
 2.309770714797946D-01,  8.143538927981072D-01,  8.974695973354508D-03, &
 2.394458713565459D-01, -5.651074560068458D-01,  1.649544265573178D-02, &
 2.617303912242682D-01,  7.450665189174808D-01,  6.665865551621909D-03, &
 2.691992761760191D-01, -7.480558691506524D-01,  1.062817914743759D-02, &
 2.801184378515139D-01, -8.648253256664529D-02,  1.029103279941478D-02, &
 2.802549482883130D-01, -3.882923892722029D-01,  1.369193939295842D-02, &
 2.839000603830919D-01, -2.046740542904322D-01,  1.736776423460412D-02, &
 2.887898581531176D-01,  5.814667573861627D-01,  1.465252164582414D-02, &
 2.943230313566177D-01,  8.763787360351365D-01,  7.624320350783295D-03, &
 2.984713532756781D-01, -9.662504924043853D-01,  5.098404762337242D-03, &
 3.006596174432872D-01,  9.936320220137688D-01,  2.068083074134366D-03, &
 3.050565768027433D-01, -9.982304187004531D-01,  1.009394886038144D-03, &
 3.085263100239341D-01, -7.996443277472217D-01,  3.534840513865065D-03, &
 3.116498242262688D-01, -8.955597721317096D-01,  9.093317546816406D-03, &
 3.117692757107713D-01,  1.675250048357164D-01,  1.698233278167723D-02, &
 3.159624611068410D-01,  9.489971508109396D-01,  6.529106763034471D-03, &
 3.197420491834217D-01, -4.656026992118575D-01,  1.003556952514073D-02, &
 3.267298270221274D-01,  3.348095746744744D-01,  1.595497306519906D-02, &
 3.309355307192962D-01,  7.014929727551507D-01,  6.957256742470056D-03, &
 3.342067700349441D-01, -6.419472908347359D-01,  1.483566807534002D-02, &
 3.430031057615673D-01,  4.809677053778840D-01,  1.448748066501445D-02, &
 3.497052562336275D-01,  1.998383478506136D-02,  1.800443798157775D-02, &
 3.644044878216754D-01,  7.810190581938899D-01,  1.024800809296951D-02, &
 3.661215757514518D-01,  8.526602936761131D-01,  4.944710357542757D-03, &
 3.672978740253939D-01, -8.151652782533108D-01,  8.850306571457656D-03, &
 3.728404816069009D-01, -2.931068378076280D-01,  1.638751096673266D-02, &
 3.898390476140786D-01, -9.858802308984792D-01,  2.780360483093786D-03, &
 3.909041204424732D-01, -5.186781535306678D-01,  1.326546194250014D-02, &
 3.968946098564246D-01,  9.780951815512755D-01,  3.201595614419611D-03, &
 4.004938098642667D-01, -7.280056190997359D-01,  7.945101887599497D-03, &
 4.022693250846630D-01,  6.492118066390665D-01,  1.299783839137487D-02, &
 4.046537911668389D-01, -9.367754362358695D-01,  6.856064424860622D-03, &
 4.069866793578729D-01, -1.279310253654376D-01,  1.953042326766891D-02, &
 4.136981826382187D-01,  2.469380555174871D-01,  1.590510409056284D-02, &
 4.155832387933074D-01,  9.987480710406026D-01,  7.122111647233873D-04, &
 4.163004497201460D-01,  9.096099007093472D-01,  7.935410861629728D-03, &
 4.170780839937515D-01, -3.956847909278206D-01,  6.071769193397902D-03, &
 4.358054536464377D-01,  5.406610991088344D-01,  1.142900377925798D-02, &
 4.402901712712737D-01,  1.068482982519669D-01,  1.483195555696222D-02, &
 4.415350462115391D-01,  3.998613126727678D-01,  1.544068952195007D-02, &
 4.424667710350890D-01,  9.683394190344123D-01,  1.611489458792926D-03, &
 4.438046510707432D-01, -6.946709046201798D-01,  6.566325499215901D-03, &
 4.460211421946402D-01, -8.651830868268215D-01,  8.948003496330081D-03, &
 4.538136212528461D-01, -9.949158557964749D-01,  9.385320236765432D-04, &
 4.539118311079229D-01, -3.619729438336315D-01,  7.295767791185555D-03, &
 4.640451021391556D-01, -5.874486068652885D-01,  1.173519860285180D-02, &
 4.730268087671548D-01,  8.312799295231539D-01,  9.822207517714310D-03, &
 4.758178764632183D-01,  7.358820987969293D-01,  1.092908968471396D-02, &
 4.903555614512899D-01, -1.585768379668491D-02,  1.599968590908050D-02, &
 4.941909567997217D-01, -7.741409899278064D-01,  9.298225635133817D-03, &
 4.963751357099565D-01, -9.672078799697353D-01,  4.661655661126369D-03, &
 4.967756100113436D-01, -4.362959868721491D-01,  1.193356100090212D-02, &
 5.000706488516046D-01, -2.331541719563617D-01,  1.856492166793463D-02, &
 5.046834517044907D-01,  9.440657290862045D-01,  5.549588703986526D-03, &
 5.082232650322930D-01,  9.906467286106726D-01,  2.226696053003991D-03, &
 5.160453615337504D-01,  5.957388605223901D-01,  1.121045861005303D-02, &
 5.174302117309763D-01, -9.984556911044671D-01,  6.178035235308593D-04, &
 5.242858161358990D-01, -6.284397942390747D-01,  6.102441007443274D-03, &
 5.256042669730074D-01,  3.069119064348889D-01,  1.440185388865715D-02, &
 5.269880492231742D-01,  1.756864225241269D-01,  1.321861287755303D-02, &
 5.270935009054812D-01, -9.093268419114411D-01,  7.024404856386155D-03, &
 5.351103385815182D-01,  4.676099826976436D-01,  1.240897009695142D-02, &
 5.522815966751274D-01,  6.908618824073344D-01,  8.695368896060368D-03, &
 5.538334779895970D-01, -8.184578724868724D-01,  6.919587428835741D-03, &
 5.538529139427266D-01,  8.832881173595583D-01,  8.500683283786904D-03, &
 5.632577394770644D-01, -1.008778811503898D-01,  1.434254071405664D-02, &
 5.636677818818019D-01, -6.847919323382405D-01,  9.749954332983632D-03, &
 5.639706182528545D-01, -5.072914896235071D-01,  1.248972405626944D-02, &
 5.855037849088083D-01, -9.870796028611907D-01,  2.635159595180530D-03, &
 5.871939805088643D-01, -3.393304454099807D-01,  1.722776519999956D-02, &
 5.873693348599127D-01,  9.705200439306851D-01,  3.780770676414746D-03, &
 5.906291713968752D-01,  7.237558809133927D-02,  1.587807859048982D-02, &
 5.925278367683712D-01,  7.893333499850927D-01,  1.138048852557252D-02, &
 5.953381157637589D-01,  9.983578941888753D-01,  7.034511014927064D-04, &
 6.048511251578461D-01, -9.438915264002324D-01,  5.098619467503369D-03, &
 6.096234974510961D-01,  3.718408906537116D-01,  1.196081090276131D-02, &
 6.109255118670557D-01,  5.230124092297559D-01,  1.003484742952671D-02, &
 6.137767907325069D-01, -8.605257481153944D-01,  7.236718965777555D-03, &
 6.217826405123270D-01, -5.581746176691810D-01,  4.316164008023176D-03, &
 6.246099189559922D-01,  6.358877552910304D-01,  1.025865841557620D-02, &
 6.284044434870041D-01, -7.434235031370082D-01,  9.441418508366915D-03, &
 6.310832515721740D-01, -1.878541135764036D-01,  1.431221258093288D-02, &
 6.345735406340975D-01,  2.275406791927811D-01,  1.538937487698498D-02, &
 6.360661118767135D-01,  9.263313590847803D-01,  6.260040454883993D-03, &
 6.398284843293994D-01, -5.970215524417410D-01,  8.476553668468471D-03, &
 6.649793750204779D-01,  9.883407907673419D-01,  2.094151290945697D-03, &
 6.654072620160371D-01, -2.363946414555849D-02,  1.496699675280598D-02, &
 6.659574757730714D-01, -9.976555625653712D-01,  8.961864501173595D-04, &
 6.691783842005241D-01, -4.395721919427361D-01,  1.512613718261678D-02, &
 6.721936512472663D-01,  8.515744193688413D-01,  8.861042223773296D-03, &
 6.777928890916691D-01,  4.328419152202564D-01,  9.776985446244503D-03, &
 6.782432986711542D-01, -9.696626891387243D-01,  3.431665660167878D-03, &
 6.812902581446887D-01,  7.225085203170045D-01,  1.117216385145412D-02, &
 6.834490098708866D-01, -9.033281433037320D-01,  6.317527410068836D-03, &
 6.924893003140195D-01, -8.005420801936927D-01,  8.320626487524666D-03, &
 6.983314069183064D-01, -6.580165170885999D-01,  9.761529855522378D-03, &
 6.985277688751799D-01, -2.783908913323763D-01,  1.342822159901166D-02, &
 7.008430500305758D-01,  5.594372141944102D-01,  1.072177885303342D-02, &
 7.068216200939229D-01,  1.246262362418973D-01,  1.472068962752201D-02, &
 7.126940396729210D-01,  9.599964346557995D-01,  4.096951260374946D-03, &
 7.178748920387166D-01,  3.138413638113185D-01,  1.320209574966812D-02, &
 7.341287552219317D-01,  9.979860760796205D-01,  6.952108677952970D-04, &
 7.342099274750985D-01, -1.209563345827185D-01,  1.379890445331191D-02, &
 7.423415965113581D-01, -5.379109496936945D-01,  1.292345963370039D-02, &
 7.444692651522274D-01, -9.882712947131560D-01,  1.957053218307852D-03, &
 7.453095007801902D-01,  9.038501012536742D-01,  6.328045119260687D-03, &
 7.494521020396612D-01,  7.927256925287816D-01,  8.961091095120005D-03, &
 7.528242556745927D-01, -9.406599209068169D-01,  4.646624808921421D-03, &
 7.547920587433695D-01, -3.572335113090026D-01,  7.889039673801524D-03, &
 7.566797098881304D-01, -8.534641077327416D-01,  6.970605288870389D-03, &
 7.576126656619195D-01,  6.437458483576055D-01,  1.076928925040325D-02, &
 7.581112942065328D-01, -7.245614233244616D-01,  9.029141466832830D-03, &
 7.628918949884904D-01,  4.623403366366171D-01,  1.090159565188403D-02, &
 7.766396378745131D-01,  2.261756565641802D-02,  1.348877811014296D-02, &
 7.810744268992557D-01,  2.131893811715405D-01,  1.210095928415743D-02, &
 7.812685180469271D-01,  9.836432079909175D-01,  2.255486894669111D-03, &
 7.833445634886622D-01, -4.071221655913209D-01,  7.458693727198815D-03, &
 7.964722407123696D-01, -2.187772943009381D-01,  1.222549520115298D-02, &
 8.020186660324402D-01, -9.983065602932809D-01,  5.862836379827036D-04, &
 8.041315522722302D-01,  3.586679600337050D-01,  8.633096906834895D-03, &
 8.090967096294495D-01, -6.272230964719828D-01,  1.054178563124901D-02, &
 8.108485375531935D-01,  9.451998657334438D-01,  4.141165511985786D-03, &
 8.109640154941112D-01,  8.551876501059489D-01,  6.621506960771783D-03, &
 8.151954694973160D-01,  7.229674728378743D-01,  8.717208142352892D-03, &
 8.153549506988876D-01, -9.703796385813469D-01,  2.953498033751418D-03, &
 8.172395811056902D-01, -7.891470762601582D-01,  7.528638399462986D-03, &
 8.177798317131469D-01, -9.009186885288820D-01,  5.272832904013914D-03, &
 8.208257565286451D-01,  5.503592548730148D-01,  1.054494230976308D-02, &
 8.329246417765747D-01, -4.845120828987132D-01,  9.960600804233005D-03, &
 8.375428168005339D-01, -8.162809594255294D-02,  1.178121026024084D-02, &
 8.386131595480735D-01,  9.965580003832177D-01,  8.087443020783061D-04, &
 8.415522987753493D-01,  1.153254562596080D-01,  1.088575597786116D-02, &
 8.503864327379893D-01, -3.173993641314918D-01,  1.038483762724286D-02, &
 8.531522884093242D-01,  4.035736040841352D-01,  6.302313466112946D-03, &
 8.541610211751280D-01,  2.680874670901057D-01,  7.527298628284477D-03, &
 8.657666650779589D-01,  9.068436211751228D-01,  4.549038886289249D-03, &
 8.664555255514452D-01, -7.090083499012046D-01,  8.071696882394806D-03, &
 8.664770965796653D-01,  7.958591698926688D-01,  6.538372590971846D-03, &
 8.677306492980269D-01, -9.908410519990466D-01,  1.416231188437276D-03, &
 8.684658881444902D-01,  9.747744029833587D-01,  2.379114842060784D-03, &
 8.691737799892778D-01,  6.418561562064864D-01,  8.197723506703251D-03, &
 8.711421380941257D-01, -8.482965458047063D-01,  5.636974183261061D-03, &
 8.717470929454793D-01, -9.410134880535705D-01,  3.553458092063557D-03, &
 8.842658311334305D-01, -5.712045519918001D-01,  8.457837440018774D-03, &
 8.858918774596265D-01,  4.761224644485181D-01,  7.791095831926886D-03, &
 8.887874898320439D-01, -4.134188226282018D-01,  4.059336672999811D-03, &
 8.888733039484702D-01, -1.867627150101622D-01,  9.832441758484581D-03, &
 8.924277378906769D-01,  1.414711422648437D-02,  9.363946896165124D-03, &
 9.009124683482767D-01,  2.977042992859208D-01,  4.958146707886305D-03, &
 9.010130683954759D-01,  1.826981564981862D-01,  6.492822410153440D-03, &
 9.072024742810378D-01, -4.184292901501477D-01,  4.774740801925348D-03, &
 9.111065823100322D-01,  9.944171031036695D-01,  8.780207710373898D-04, &
 9.114979269985268D-01,  8.578389833509421D-01,  4.544508627245127D-03, &
 9.115732033892179D-01,  7.257086927558489D-01,  6.103200593411189D-03, &
 9.131615645699338D-01,  9.465673322575073D-01,  2.807911611163054D-03, &
 9.141377233271082D-01, -7.823208061882461D-01,  5.719546762015152D-03, &
 9.154133627565975D-01, -9.723972924107900D-01,  2.022847142178555D-03, &
 9.167586103246737D-01, -8.996397400727117D-01,  3.801697006719042D-03, &
 9.185218417882126D-01, -3.128496473837001D-01,  3.188755821162131D-03, &
 9.195615536817429D-01,  5.722168961060426D-01,  6.380773543501595D-03, &
 9.224781848073185D-01, -9.985982423657683D-01,  3.867061146665929D-04, &
 9.267209776934766D-01, -6.555982315165978D-01,  6.278150490060387D-03, &
 9.287273685779625D-01,  3.701731556290727D-01,  6.625786458114385D-03, &
 9.335598233788510D-01, -8.772263219538960D-02,  7.531298731793813D-03, &
 9.372373370259899D-01,  1.003699940791335D-01,  5.803669510571517D-03, &
 9.381596020314867D-01, -2.714682784663502D-01,  5.599760135209719D-03, &
 9.392008661159771D-01, -5.070230655068764D-01,  6.382320939876130D-03, &
 9.458552781613642D-01,  9.787913214594990D-01,  1.364728190261521D-03, &
 9.467118325180552D-01,  2.073531201970276D-01,  3.340176953373344D-03, &
 9.474307117494180D-01,  7.982968423254421D-01,  4.139255006817926D-03, &
 9.488517823808786D-01,  9.079595933711595D-01,  2.809691915547652D-03, &
 9.500559469496047D-01,  4.843282580769499D-01,  4.555672065182541D-03, &
 9.514139598012699D-01,  6.593996703812790D-01,  4.775414025344274D-03, &
 9.515054065604527D-01, -8.462535973926137D-01,  3.659192971392661D-03, &
 9.518829254547306D-01, -9.423704869562158D-01,  2.246099949633720D-03, &
 9.577559031192738D-01, -9.884414315999143D-01,  9.138432349434030D-04, &
 9.597823200164480D-01, -7.333102517228226D-01,  4.172167786588739D-03, &
 9.632858025253836D-01,  2.676516560448716D-01,  4.435731025511098D-03, &
 9.633285939046516D-01, -3.830059130508450D-01,  5.251904961064754D-03, &
 9.659428214621411D-01, -1.681070365939437D-01,  3.910206880549662D-03, &
 9.662259959061779D-01,  9.975594517947205D-01,  3.405077457162791D-04, &
 9.667240278631448D-01,  1.427934466963100D-02,  5.159593067194380D-03, &
 9.682866853444982D-01, -5.956513635056965D-01,  4.355417541710161D-03, &
 9.710401795521018D-01,  4.115441754007046D-01,  3.080413657595975D-03, &
 9.723123261969079D-01,  9.532023404173199D-01,  1.437187961183978D-03, &
 9.749343472618806D-01,  5.694643711049896D-01,  3.514758009687542D-03, &
 9.750107495446679D-01,  8.593595879607496D-01,  2.404761206356202D-03, &
 9.755637104115001D-01, -2.162755744715040D-01,  2.069281536160542D-03, &
 9.761350537022933D-01,  7.378942771881075D-01,  2.990197999475044D-03, &
 9.778730077694230D-01, -9.006863126694932D-01,  2.019519731278123D-03, &
 9.822797218536741D-01, -9.673403735244110D-01,  1.011623047148952D-03, &
 9.828503527488298D-01, -9.972100487317516D-01,  2.034653337738994D-04, &
 9.828700260178675D-01,  1.402696637585946D-01,  3.875549745497106D-03, &
 9.829328496130976D-01, -8.027321126645347D-01,  2.328452025760749D-03, &
 9.830518093779190D-01, -4.725198861348646D-01,  2.884600800613669D-03, &
 9.865083692792747D-01,  3.318292049120302D-01,  2.535389452668076D-03, &
 9.870651427476129D-01,  9.851097580641042D-01,  5.787962104520319D-04, &
 9.878909985266884D-01, -6.792964437614948D-01,  2.397415128865462D-03, &
 9.890599145180482D-01, -3.004235153742925D-01,  2.952394914871963D-03, &
 9.891268190165852D-01, -7.461522335461102D-02,  3.147967359176418D-03, &
 9.900018031563753D-01,  9.183273178173896D-01,  1.129303662157627D-03, &
 9.906700419592033D-01,  6.532346934319574D-01,  1.929434615425692D-03, &
 9.912596163219474D-01,  4.801078529393079D-01,  2.082572420594760D-03, &
 9.924744721609760D-01,  8.057094807256353D-01,  1.431280556327198D-03, &
 9.936122984604325D-01, -5.399266031918037D-01,  1.361643312207529D-03, &
 9.945101783976882D-01, -9.964564449204121D-01,  6.738824280797225D-05, &
 9.959237770580724D-01, -9.356939566617255D-01,  6.409569163115698D-04, &
 9.960185717579940D-01, -8.614455712828953D-01,  8.970688263528367D-04, &
 9.963549802489995D-01,  2.297860268936834D-01,  1.493840185718328D-03, &
 9.974280487247386D-01,  9.970685285995574D-01,  8.386486527342163D-05, &
 9.974477484292649D-01,  4.872754674637698D-02,  1.368835501840511D-03, &
 9.974884982557854D-01, -9.835909301201050D-01,  2.155878200460052D-04, &
 9.979151073110650D-01,  9.613613215256067D-01,  3.343893771661675D-04, &
 9.979318948645635D-01, -7.553329869388302D-01,  7.631344418442518D-04, &
 9.981736018665053D-01, -4.034601085328000D-01,  1.016793649077959D-03, &
 9.983952046173069D-01, -1.854951369598807D-01,  1.067126311051324D-03, &
 9.985153359170394D-01,  5.693738362511860D-01,  6.823019963489656D-04, &
 9.985841032168380D-01,  8.747010290291490D-01,  4.298394507636698D-04, &
 9.986616936036532D-01,  7.274743018665757D-01,  5.666609989068298D-04, &
 9.986723383294596D-01, -6.114560344532366D-01,  5.878791899273640D-04, &
 9.988762864534128D-01,  3.869508160326630D-01,  6.702204214070438D-04 /)

  return
end
subroutine smr55 ( xyw )

!*****************************************************************************80
!
!! SMR55 returns the SMR rule of degree 55.
!
!  Discussion:
!
!    DEGREE: 55
!    SYMMETRY: (X,  Y),  (-X, -Y).
!    POINTS CARDINALITY: 536
!    NORM INF MOMS. RESIDUAL: 2.29858e-16
!    SUM NEGATIVE WEIGHTS: 0.00000D+00
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    Original MATLAB version by Mattia Festa, Alvise Sommariva,
!    FORTRAN90 version by John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, real ( kind = rk ) XYW(3*536), the requested rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) xyw(3*536)

  xyw = (/ &
 -9.988024883360008D-01, -4.104312670989267D-01,  7.247738364520382D-04, &
 -9.986637711500016D-01,  5.835721439184322D-01,  6.485919247428450D-04, &
 -9.985517638075939D-01,  1.568937801098068D-01,  1.047965997616771D-03, &
 -9.983624199159088D-01, -7.311569400195331D-01,  6.234634259867621D-04, &
 -9.982698924284638D-01, -5.843339960398285D-01,  7.392815641484668D-04, &
 -9.982434766908749D-01,  3.819333028903024D-01,  9.500630778549490D-04, &
 -9.982097416579526D-01, -8.832442641091779D-01,  4.604405106623550D-04, &
 -9.978286522784937D-01, -9.628763075615144D-01,  3.344694660648939D-04, &
 -9.976963561372271D-01,  9.678687355428703D-01,  3.138082077303478D-04, &
 -9.976125620794032D-01,  7.261201764578525D-01,  8.279866159627213D-04, &
 -9.973396392196245D-01, -9.972222237164891D-01,  8.333752929282447D-05, &
 -9.972455951936153D-01, -7.187156081293171D-02,  1.410032513903549D-03, &
 -9.971099785500591D-01,  9.975224120853297D-01,  7.798442798007867D-05, &
 -9.963480933133427D-01, -2.479538638037798D-01,  1.491315677106339D-03, &
 -9.958519119176469D-01,  9.077787403602237D-01,  7.431854366720857D-04, &
 -9.952342237683616D-01,  8.286466960550624D-01,  1.082707396932906D-03, &
 -9.929995253631880D-01, -8.129871703624600D-01,  1.347117277977657D-03, &
 -9.920960970276202D-01,  5.044070130004836D-01,  1.824136223192767D-03, &
 -9.906699598276788D-01,  2.862146444653838D-01,  2.228303203490404D-03, &
 -9.900482572019094D-01, -4.985621080229760D-01,  2.242724334598082D-03, &
 -9.892479265001065D-01, -6.612276378064350D-01,  2.043285817276434D-03, &
 -9.888908697853098D-01, -9.233667636095402D-01,  1.140018239107126D-03, &
 -9.885804018012844D-01,  4.855418553020024D-02,  3.260277409726965D-03, &
 -9.872410998898277D-01,  6.516124343282037D-01,  2.451688694670727D-03, &
 -9.865494934684096D-01, -9.856652402947823D-01,  5.802863637376822D-04, &
 -9.864237410369340D-01, -3.474984134057699D-01,  2.626333169195453D-03, &
 -9.854696330893135D-01,  9.878927125972993D-01,  5.302485898777602D-04, &
 -9.823718529863428D-01,  9.448695023246775D-01,  1.256965089029987D-03, &
 -9.820307319973294D-01, -1.607872100549523D-01,  3.959806596474525D-03, &
 -9.817367673963038D-01,  2.211661902207940D-01,  2.176154471489884D-03, &
 -9.798298883847092D-01,  7.687042632123031D-01,  2.691125475983456D-03, &
 -9.794817550638735D-01,  4.308079229171551D-01,  3.138802635622372D-03, &
 -9.760951773774511D-01, -7.497184921929896D-01,  2.895893718670046D-03, &
 -9.756611980550673D-01,  8.717067247715160D-01,  2.345719243525908D-03, &
 -9.748150682339674D-01, -8.630701855337108D-01,  2.379490945836736D-03, &
 -9.716942423922518D-01, -5.810982845814314D-01,  3.659348716877558D-03, &
 -9.702051269912042D-01, -9.560511844190226D-01,  1.434791120385777D-03, &
 -9.688706334298569D-01, -4.266194891481059D-01,  3.409732775774852D-03, &
 -9.675772091594030D-01,  5.706238471045659D-01,  4.319580505788219D-03, &
 -9.654793296651025D-01,  1.449151374798731D-01,  4.901363403832491D-03, &
 -9.648815628338514D-01, -9.976194228266280D-01,  3.422316968868938D-04, &
 -9.644011406655369D-01, -3.955662605890648D-02,  5.487620385431768D-03, &
 -9.621685673801630D-01,  9.981498616350863D-01,  2.983264390605248D-04, &
 -9.618072357953964D-01, -2.840075572844367D-01,  4.584997220482829D-03, &
 -9.603547491901058D-01,  3.444098104140523D-01,  5.192860463827343D-03, &
 -9.572722322598644D-01,  9.727383585296555D-01,  1.371820477478312D-03, &
 -9.543120615194950D-01,  6.978166939707769D-01,  4.657220418242932D-03, &
 -9.502228126713501D-01, -6.756755603285315D-01,  4.638832336370128D-03, &
 -9.497373302590694D-01,  9.198416005546896D-01,  2.489219831374708D-03, &
 -9.477372910934111D-01, -9.097890847623551D-01,  2.819888629654258D-03, &
 -9.461037891822155D-01,  8.162510788029149D-01,  4.131502513773345D-03, &
 -9.459596501532294D-01, -8.050199903923727D-01,  4.077330276254603D-03, &
 -9.454153692097916D-01, -4.969416983931578D-01,  4.614178689184361D-03, &
 -9.435279532066055D-01, -2.221999393850942D-01,  3.479548412810748D-03, &
 -9.426467016723202D-01, -9.801477693736759D-01,  1.345953538075658D-03, &
 -9.392911967713488D-01,  4.855179051814372D-01,  6.174008549382279D-03, &
 -9.351449029460894D-01,  2.406511548034665D-01,  5.779691515292159D-03, &
 -9.316323693555080D-01, -1.260692370780684D-01,  6.144629409760324D-03, &
 -9.303888378867309D-01,  6.224958329536455D-02,  7.669256083745869D-03, &
 -9.252698678871364D-01, -3.816000875630634D-01,  6.720562662548456D-03, &
 -9.211332348776220D-01,  9.906945704103310D-01,  1.078080942745430D-03, &
 -9.188758666484276D-01,  6.191245374224351D-01,  6.822998261844405D-03, &
 -9.180486167649172D-01, -5.920245031381465D-01,  6.069384535392124D-03, &
 -9.147536811475745D-01,  8.800465507878222D-01,  3.625599405917247D-03, &
 -9.116846414755537D-01,  3.946552397032295D-01,  4.799510717398269D-03, &
 -9.109269835273496D-01, -9.474408959785233D-01,  2.828303409790731D-03, &
 -9.107962036779229D-01,  9.546466357227235D-01,  2.504361618864681D-03, &
 -9.097119148344930D-01,  2.791721791436264D-01,  3.325039377988705D-03, &
 -9.088140552343917D-01, -8.613880826568586D-01,  4.524206023005564D-03, &
 -9.085091703518080D-01, -7.357866023957996D-01,  5.980225096092428D-03, &
 -9.069440260746182D-01, -9.948615423994508D-01,  8.460206194961731D-04, &
 -9.060257668239784D-01,  7.510933281143483D-01,  6.285183519604021D-03, &
 -8.966458818425863D-01, -3.077535071435578D-01,  5.074492497678043D-03, &
 -8.914497061411687D-01, -2.063254399354762D-01,  6.379677376597891D-03, &
 -8.886925006776532D-01,  4.029207162992898D-01,  3.953122632176603D-03, &
 -8.877478758386065D-01, -3.703102823746122D-02,  9.391237982629010D-03, &
 -8.863873331866154D-01, -5.014911962761207D-01,  6.732637721829442D-03, &
 -8.840931476725340D-01,  1.591395148790940D-01,  9.725396029596314D-03, &
 -8.750871750612564D-01,  8.371208783269141D-01,  4.667481132791865D-03, &
 -8.746997180248225D-01,  5.337452183276610D-01,  8.969697082860535D-03, &
 -8.738193544174702D-01,  9.987050363801271D-01,  4.029777384147725D-04, &
 -8.656342986234824D-01, -6.539955758641589D-01,  8.007673011011452D-03, &
 -8.653144381651936D-01,  9.229713406820786D-01,  3.786147464455085D-03, &
 -8.649186611907598D-01, -9.752422585287235D-01,  2.397696219433860D-03, &
 -8.620920815291837D-01, -9.088307352715838D-01,  4.535170978475270D-03, &
 -8.618783040518693D-01, -8.015653601725335D-01,  6.476664260979469D-03, &
 -8.591213496900382D-01,  9.789218555148047D-01,  2.183949091910629D-03, &
 -8.580096391046452D-01, -4.289163888579028D-01,  7.032590377677609D-03, &
 -8.561231024886632D-01,  6.768698449375528D-01,  8.653374792867137D-03, &
 -8.531080996665429D-01,  3.100864425712632D-01,  9.462959763014268D-03, &
 -8.445552751701417D-01, -2.869258517851172D-01,  7.087178777230579D-03, &
 -8.345746770920350D-01, -1.348195251852799D-01,  1.086669255897672D-02, &
 -8.323840732904080D-01,  5.770931774582546D-02,  1.157981674113329D-02, &
 -8.316280572729237D-01, -9.963536786620084D-01,  8.601012497443448D-04, &
 -8.302233642792779D-01,  7.887974291015537D-01,  6.403870452065013D-03, &
 -8.198903592035567D-01,  4.474759410866835D-01,  1.039723732697557D-02, &
 -8.179555207385244D-01, -5.630877825822931D-01,  1.038670426889326D-02, &
 -8.131642862712356D-01,  8.855936518041989D-01,  5.172308318006293D-03, &
 -8.095710479011895D-01, -7.299545306893604D-01,  8.640988335276857D-03, &
 -8.060880027952726D-01, -9.464168885010812D-01,  4.138102993626548D-03, &
 -8.055768707550288D-01, -8.588418294042808D-01,  6.546425691890088D-03, &
 -8.052848747707124D-01,  2.154694645963307D-01,  1.115929240605312D-02, &
 -8.048061510789419D-01, -3.718357650456645D-01,  8.637973753390449D-03, &
 -8.013660329335811D-01,  9.549385718300994D-01,  3.667653054187556D-03, &
 -7.996575186605993D-01,  9.945437983737444D-01,  1.170500089565615D-03, &
 -7.978946443412313D-01,  5.940088162963154D-01,  1.102206312002593D-02, &
 -7.753719582521668D-01,  7.296837750586209D-01,  8.830371768634843D-03, &
 -7.728941799568024D-01, -9.834791267225803D-01,  2.318079830785805D-03, &
 -7.713573933240646D-01, -2.292623609101414D-01,  1.222664318821314D-02, &
 -7.703655439710254D-01, -4.177172398061163D-02,  1.320655645297225D-02, &
 -7.696542328903390D-01,  3.800140053796911D-01,  5.896276097702543D-03, &
 -7.613061970586104D-01, -4.720892602078328D-01,  1.121593897330926D-02, &
 -7.555601563064301D-01,  8.414687309753481D-01,  6.891618536870428D-03, &
 -7.520357832344026D-01, -6.508886285165648D-01,  1.070105581225020D-02, &
 -7.490155562917605D-01,  3.252336868606283D-01,  9.351093216509690D-03, &
 -7.459343555200221D-01,  1.236717037454283D-01,  1.296776589532101D-02, &
 -7.431555210822531D-01, -7.977482842071556D-01,  8.833161716226669D-03, &
 -7.403849867503648D-01,  9.819171911401473D-01,  2.337724717192945D-03, &
 -7.391722285237710D-01, -9.062068947141577D-01,  6.258431339300329D-03, &
 -7.351348537506192D-01,  9.235000024040693D-01,  5.339474521352486D-03, &
 -7.281406688886811D-01,  5.071254424742396D-01,  1.331196820325115D-02, &
 -7.243383015839274D-01, -9.980207065293273D-01,  7.199560063855860D-04, &
 -7.131083800360229D-01, -3.348252722558369D-01,  1.317500343117314D-02, &
 -7.125260040531168D-01,  6.588957967703316D-01,  1.101941046086741D-02, &
 -7.032675418563811D-01, -9.600474050632336D-01,  4.157108404417536D-03, &
 -6.986567532110330D-01, -1.382567167908484D-01,  1.442120114433883D-02, &
 -6.958360474648256D-01, -5.644565737670422D-01,  1.103743316814278D-02, &
 -6.909159146496135D-01,  7.887887571343239D-01,  8.977062336109128D-03, &
 -6.906859319625951D-01,  9.979604128976195D-01,  8.435777152586793D-04, &
 -6.849076257411216D-01,  2.427166387314666D-01,  1.397568311805146D-02, &
 -6.779414345191699D-01,  3.063740688329146D-02,  1.447701175069298D-02, &
 -6.754749986154636D-01, -7.281422316126919D-01,  1.097118103052011D-02, &
 -6.718973107043948D-01,  9.628615704165838D-01,  3.868709630540442D-03, &
 -6.652837909761897D-01, -8.550121217464759D-01,  8.720558763742966D-03, &
 -6.641092110776139D-01,  8.842872475223941D-01,  7.073002093332755D-03, &
 -6.638595707485085D-01, -4.439193977915850D-01,  1.102925103533717D-02, &
 -6.582656205134384D-01,  4.038261118251286D-01,  1.497892745877775D-02, &
 -6.531607555762389D-01, -9.883039600294047D-01,  2.166784944891255D-03, &
 -6.403455995923052D-01,  5.867373929097057D-01,  1.193450620498925D-02, &
 -6.314704538659979D-01, -2.446105067220338D-01,  1.537286390141198D-02, &
 -6.254538870491240D-01, -9.264854004436116D-01,  6.307266862024064D-03, &
 -6.226576289009583D-01,  7.259246555573967D-01,  1.069584666724211D-02, &
 -6.191838769193574D-01, -6.420040583801523D-01,  1.067988406928965D-02, &
 -6.149834556692348D-01,  1.527830270721475D-01,  1.405889213374533D-02, &
 -6.058697705151179D-01,  9.883839405182854D-01,  2.594759629417247D-03, &
 -6.031110203472072D-01,  5.107400343109616D-01,  6.474717016434753D-03, &
 -6.014430739812223D-01, -6.305652605767732D-02,  1.564707540156174D-02, &
 -5.949690407134853D-01,  9.351174758101611D-01,  5.854723529644378D-03, &
 -5.939522570295417D-01, -5.310108582117370D-01,  1.096129405119757D-02, &
 -5.910214836343624D-01,  8.384444159782082D-01,  8.418868716555618D-03, &
 -5.881718967548081D-01, -3.744506110517851D-01,  1.307998578130345D-02, &
 -5.864634403080233D-01, -7.932418330534410D-01,  1.112227385834183D-02, &
 -5.811601592234984D-01, -9.983496902489798D-01,  7.104280334676121D-04, &
 -5.757548043279564D-01, -9.703367418123594D-01,  3.757168119063795D-03, &
 -5.748025638560177D-01,  3.067973240959255D-01,  1.707935332348776D-02, &
 -5.497845124077343D-01,  7.333202414867040D-02,  1.235895418614051D-02, &
 -5.484074961393921D-01,  6.660476228238359D-01,  1.048532964530446D-02, &
 -5.467362660936782D-01,  4.682073286935134D-01,  1.236063811528119D-02, &
 -5.421728509707354D-01, -8.831112721261267D-01,  8.569226685725167D-03, &
 -5.413187638370147D-01, -7.008354250408056D-01,  9.314699663035950D-03, &
 -5.351205786493067D-01, -1.662338233527932D-01,  1.523192606517475D-02, &
 -5.291031884464018D-01,  7.888885157981417D-01,  7.737672122912299D-03, &
 -5.186382422892405D-01,  5.909018703387654D-01,  8.134241234233111D-03, &
 -5.176647451047708D-01,  9.983923444453340D-01,  8.821790616867712D-04, &
 -5.132865237464714D-01, -4.688970718806879D-01,  1.282967010005945D-02, &
 -5.131329313010590D-01,  9.693478795578427D-01,  4.668299073616817D-03, &
 -5.113306771546843D-01,  8.975233040638488D-01,  8.023411794220729D-03, &
 -5.043040025277375D-01, -6.040349373214349D-01,  1.160242726756205D-02, &
 -5.035820355440569D-01, -2.986926997353190D-01,  1.507793601848234D-02, &
 -4.965158961324884D-01, -9.906821956576266D-01,  2.159685403265884D-03, &
 -4.961172566625360D-01, -9.440998487019658D-01,  5.059202691726304D-03, &
 -4.886505110046377D-01,  2.014030458083448D-01,  1.779060966900524D-02, &
 -4.814712707153859D-01,  1.018471840513952D-03,  1.494149892965163D-02, &
 -4.724465250882208D-01,  3.901946239850855D-01,  1.407056045257186D-02, &
 -4.673690443814725D-01,  7.510905791040010D-01,  8.653955385139918D-03, &
 -4.643134260679443D-01, -8.291696117863686D-01,  9.380625377758188D-03, &
 -4.620662895796879D-01, -7.420575670812756D-01,  1.005785415907135D-02, &
 -4.544968567562652D-01, -9.637138942504565D-01,  1.122463533992389D-03, &
 -4.392936416624263D-01,  5.418537987967835D-01,  1.354180192499032D-02, &
 -4.360207998774642D-01,  3.149360384017255D-01,  5.844690041934657D-03, &
 -4.337443890556876D-01,  6.598862990786999D-01,  8.546812451435981D-03, &
 -4.331554234268176D-01, -1.092637162347169D-01,  1.439377035472382D-02, &
 -4.291577428294838D-01,  8.476059832446078D-01,  9.902296083341852D-03, &
 -4.229143668793170D-01, -3.960647752213135D-01,  1.549781901257185D-02, &
 -4.187017631471830D-01, -5.436803325150400D-01,  1.209743843849932D-02, &
 -4.183500029509192D-01,  9.898883598570750D-01,  2.709117739353572D-03, &
 -4.173246329940232D-01,  9.401616974636222D-01,  6.891766839873124D-03, &
 -4.112319822368788D-01, -9.120363501798638D-01,  7.424471893404875D-03, &
 -4.048315435775057D-01, -9.987956142180350D-01,  6.718324805703920D-04, &
 -3.980418991846619D-01, -2.327471046963004D-01,  1.625275270500379D-02, &
 -3.953464161989157D-01, -9.776274329999616D-01,  3.590227670893820D-03, &
 -3.927964120379244D-01, -6.567324722323492D-01,  1.286468850270801D-02, &
 -3.908992398262501D-01,  1.029204492534816D-01,  1.923372019735730D-02, &
 -3.783036687069794D-01,  7.129987503369131D-01,  8.163366302461943D-03, &
 -3.709983918669602D-01,  3.878951046903481D-01,  5.919722230014070D-03, &
 -3.686946309484030D-01,  2.658237229153717D-01,  1.502100476996729D-02, &
 -3.670884151507721D-01, -8.541749683199031D-01,  5.997903388653519D-03, &
 -3.597392305547168D-01,  4.702440999029917D-01,  1.222936506074443D-02, &
 -3.456801320384574D-01, -7.767804274879180D-01,  1.064901135031854D-02, &
 -3.354206745206995D-01,  7.970083033314623D-01,  1.098275538515688D-02, &
 -3.349659026157715D-01,  9.738986981710231D-01,  2.585251695131729D-03, &
 -3.317394233870357D-01, -3.629784813923093D-02,  1.817689182146082D-02, &
 -3.292032308163682D-01,  8.969852827615720D-01,  8.651055110598674D-03, &
 -3.270737918480568D-01, -4.795137218921213D-01,  1.439474911975008D-02, &
 -3.252517001548298D-01,  6.111780771310250D-01,  1.471608963923809D-02, &
 -3.127045248917160D-01, -9.507593463893184D-01,  6.165042832173903D-03, &
 -3.122739080164743D-01, -7.037282845144895D-01,  6.502793402916389D-03, &
 -3.121872182700364D-01, -3.284494967900573D-01,  1.665094260609503D-02, &
 -3.021802314007289D-01,  9.981802915822515D-01,  1.089216259085527D-03, &
 -2.961390561335081D-01, -9.938134682747217D-01,  1.955987410825677D-03, &
 -2.929939168803610D-01,  9.675850235289137D-01,  2.923308696330317D-03, &
 -2.870583486247197D-01, -1.684615473834412D-01,  1.611587845368105D-02, &
 -2.869268892504222D-01, -8.836970380549014D-01,  7.313309499881776D-03, &
 -2.824132709710231D-01, -5.861790192624122D-01,  1.402973677831503D-02, &
 -2.801601822730441D-01,  4.674597814398905D-01,  7.723487106141499D-03, &
 -2.735536542584517D-01,  1.882929761148383D-01,  1.635032477992683D-02, &
 -2.681837896607717D-01,  3.462108439336833D-01,  1.561212360653534D-02, &
 -2.638750753550576D-01,  7.175917772976728D-01,  9.196701513559774D-03, &
 -2.562280695633936D-01,  7.536618699046908D-02,  1.159566375455242D-02, &
 -2.449718364656067D-01,  9.329876539574047D-01,  4.442995362383195D-03, &
 -2.367076649306707D-01, -8.164340093215012D-01,  8.859159397898358D-03, &
 -2.263564338237641D-01,  8.525868904257583D-01,  1.025853294633492D-02, &
 -2.233777787601983D-01, -6.690920935223389D-01,  8.457199667884932D-03, &
 -2.225881310352093D-01,  5.464598853057760D-01,  1.451315283307596D-02, &
 -2.172243346336479D-01,  7.779346875182629D-01,  5.453876637219251D-03, &
 -2.167851796507998D-01, -7.340009575500001D-01,  7.704445266317693D-03, &
 -2.156912547618889D-01, -4.159114007166079D-01,  1.600761576189837D-02, &
 -2.126675089250964D-01, -9.790313276822009D-01,  3.898756652243800D-03, &
 -2.057013987550619D-01,  6.714574222473618D-01,  8.548373971133082D-03, &
 -2.001222956524658D-01, -9.229708435499334D-01,  7.317697261380912D-03, &
 -1.968485732716530D-01, -2.684443696987204D-01,  1.551989981674327D-02, &
 -1.952851800362058D-01, -1.181886347339289D-01,  1.249411507302537D-02, &
 -1.930088850045736D-01,  1.067037967524868D-02,  1.502128981902244D-02, &
 -1.927893567464448D-01,  9.885913799935848D-01,  3.285042178348613D-03, &
 -1.843627359591440D-01,  9.475189594826643D-01,  3.879323024081221D-03, &
 -1.721744096018839D-01, -5.142401574740272D-01,  1.164304712326221D-02, &
 -1.700184298252278D-01,  4.192688036006606D-01,  1.408971892461283D-02, &
 -1.624664921006047D-01,  2.057032829234850D-01,  1.045498739102006D-02, &
 -1.559859159591793D-01,  2.894304583316343D-01,  1.306941393934462D-02, &
 -1.518484005740585D-01, -8.477732470072303D-01,  7.414729733024272D-03, &
 -1.476070990486803D-01, -5.880708608342150D-01,  9.069852257674605D-03, &
 -1.416105434314038D-01, -9.974967466477315D-01,  1.331241793936731D-03, &
 -1.264308798345233D-01,  9.023791087885762D-01,  8.220753803377345D-03, &
 -1.229412724709716D-01,  7.559125625986661D-01,  9.067738186701686D-03, &
 -1.211233536563693D-01,  6.333611074991552D-01,  1.314389634964796D-02, &
 -1.171435843878661D-01, -7.589099321895559D-01,  1.034402317344686D-02, &
 -1.142916155264042D-01,  8.134828246262563D-01,  6.912585182173686D-03, &
 -1.091562261809793D-01, -9.593556005291021D-01,  5.529710901059238D-03, &
 -1.050166495242263D-01, -2.262609218574975D-01,  1.163508798500837D-02, &
 -1.039822454676996D-01,  1.147960727732085D-01,  1.726822277670347D-02, &
 -9.753315478770204D-02,  5.156121655539427D-01,  1.303842924168740D-02, &
 -9.563339138231701D-02, -8.253348748785061D-02,  1.590204206847470D-02, &
 -9.364067514936512D-02, -6.600655556642241D-01,  1.223016394781105D-02, &
 -8.965966879899780D-02, -3.586799588937428D-01,  1.756886760866844D-02, &
 -8.551197009473779D-02, -8.901928888130525D-01,  7.846676697391447D-03, &
 -8.365029898380197D-02,  9.685292909194466D-01,  5.214647863353589D-03, &
 -7.568647243766341D-02,  9.980944345717083D-01,  1.190071691701019D-03, &
 -5.482069463596000D-02, -4.814553453340769D-01,  1.503245155554792D-02, &
 -4.844652587154250D-02,  4.108333656727153D-01,  1.342616839842313D-02, &
 -3.841094055935779D-02,  2.983156459040408D-01,  1.541784656069183D-02, &
 -3.632741707588952D-02,  8.600961271871967D-01,  8.090610682724464D-03, &
 -3.153704671275477D-02, -9.872255003269456D-01,  3.471711085681394D-03, &
 -3.056480134457628D-02,  2.747004986895673D-02,  1.221572001121651D-02, &
 -2.872714752032467D-02, -8.038829114783085D-01,  9.938639300940503D-03, &
 -2.162030480223479D-02,  7.100363302853934D-01,  1.355512556979677D-02, &
 -7.873257230365114D-03, -1.856407375954660D-01,  1.627356809068969D-02, &
 -1.536827915034127D-03,  9.326306951328229D-01,  7.198183297047558D-03, &
 -2.078796471167668D-05, -5.847656060556753D-01,  1.411565553024802D-02, &
 2.078796471167668D-05, 5.847656060556753D-01,  1.411565553024802D-02, &
 1.536827915034127D-03, -9.326306951328229D-01,  7.198183297047558D-03, &
 7.873257230365114D-03,  1.856407375954660D-01,  1.627356809068969D-02, &
 2.162030480223479D-02, -7.100363302853934D-01,  1.355512556979677D-02, &
 2.872714752032467D-02,  8.038829114783085D-01,  9.938639300940503D-03, &
 3.056480134457628D-02, -2.747004986895673D-02,  1.221572001121651D-02, &
 3.153704671275477D-02,  9.872255003269456D-01,  3.471711085681394D-03, &
 3.632741707588952D-02, -8.600961271871967D-01,  8.090610682724464D-03, &
 3.841094055935779D-02, -2.983156459040408D-01,  1.541784656069183D-02, &
 4.844652587154250D-02, -4.108333656727153D-01,  1.342616839842313D-02, &
 5.482069463596000D-02,  4.814553453340769D-01,  1.503245155554792D-02, &
 7.568647243766341D-02, -9.980944345717083D-01,  1.190071691701019D-03, &
 8.365029898380197D-02, -9.685292909194466D-01,  5.214647863353589D-03, &
 8.551197009473779D-02,  8.901928888130525D-01,  7.846676697391447D-03, &
 8.965966879899780D-02,  3.586799588937428D-01,  1.756886760866844D-02, &
 9.364067514936512D-02,  6.600655556642241D-01,  1.223016394781105D-02, &
 9.563339138231701D-02,  8.253348748785061D-02,  1.590204206847470D-02, &
 9.753315478770204D-02, -5.156121655539427D-01,  1.303842924168740D-02, &
 1.039822454676996D-01, -1.147960727732085D-01,  1.726822277670347D-02, &
 1.050166495242263D-01,  2.262609218574975D-01,  1.163508798500837D-02, &
 1.091562261809793D-01,  9.593556005291021D-01,  5.529710901059238D-03, &
 1.142916155264042D-01, -8.134828246262563D-01,  6.912585182173686D-03, &
 1.171435843878661D-01,  7.589099321895559D-01,  1.034402317344686D-02, &
 1.211233536563693D-01, -6.333611074991552D-01,  1.314389634964796D-02, &
 1.229412724709716D-01, -7.559125625986661D-01,  9.067738186701686D-03, &
 1.264308798345233D-01, -9.023791087885762D-01,  8.220753803377345D-03, &
 1.416105434314038D-01,  9.974967466477315D-01,  1.331241793936731D-03, &
 1.476070990486803D-01,  5.880708608342150D-01,  9.069852257674605D-03, &
 1.518484005740585D-01,  8.477732470072303D-01,  7.414729733024272D-03, &
 1.559859159591793D-01, -2.894304583316343D-01,  1.306941393934462D-02, &
 1.624664921006047D-01, -2.057032829234850D-01,  1.045498739102006D-02, &
 1.700184298252278D-01, -4.192688036006606D-01,  1.408971892461283D-02, &
 1.721744096018839D-01,  5.142401574740272D-01,  1.164304712326221D-02, &
 1.843627359591440D-01, -9.475189594826643D-01,  3.879323024081221D-03, &
 1.927893567464448D-01, -9.885913799935848D-01,  3.285042178348613D-03, &
 1.930088850045736D-01, -1.067037967524868D-02,  1.502128981902244D-02, &
 1.952851800362058D-01,  1.181886347339289D-01,  1.249411507302537D-02, &
 1.968485732716530D-01,  2.684443696987204D-01,  1.551989981674327D-02, &
 2.001222956524658D-01,  9.229708435499334D-01,  7.317697261380912D-03, &
 2.057013987550619D-01, -6.714574222473618D-01,  8.548373971133082D-03, &
 2.126675089250964D-01,  9.790313276822009D-01,  3.898756652243800D-03, &
 2.156912547618889D-01,  4.159114007166079D-01,  1.600761576189837D-02, &
 2.167851796507998D-01,  7.340009575500001D-01,  7.704445266317693D-03, &
 2.172243346336479D-01, -7.779346875182629D-01,  5.453876637219251D-03, &
 2.225881310352093D-01, -5.464598853057760D-01,  1.451315283307596D-02, &
 2.233777787601983D-01,  6.690920935223389D-01,  8.457199667884932D-03, &
 2.263564338237641D-01, -8.525868904257583D-01,  1.025853294633492D-02, &
 2.367076649306707D-01,  8.164340093215012D-01,  8.859159397898358D-03, &
 2.449718364656067D-01, -9.329876539574047D-01,  4.442995362383195D-03, &
 2.562280695633936D-01, -7.536618699046908D-02,  1.159566375455242D-02, &
 2.638750753550576D-01, -7.175917772976728D-01,  9.196701513559774D-03, &
 2.681837896607717D-01, -3.462108439336833D-01,  1.561212360653534D-02, &
 2.735536542584517D-01, -1.882929761148383D-01,  1.635032477992683D-02, &
 2.801601822730441D-01, -4.674597814398905D-01,  7.723487106141499D-03, &
 2.824132709710231D-01,  5.861790192624122D-01,  1.402973677831503D-02, &
 2.869268892504222D-01,  8.836970380549014D-01,  7.313309499881776D-03, &
 2.870583486247197D-01,  1.684615473834412D-01,  1.611587845368105D-02, &
 2.929939168803610D-01, -9.675850235289137D-01,  2.923308696330317D-03, &
 2.961390561335081D-01,  9.938134682747217D-01,  1.955987410825677D-03, &
 3.021802314007289D-01, -9.981802915822515D-01,  1.089216259085527D-03, &
 3.121872182700364D-01,  3.284494967900573D-01,  1.665094260609503D-02, &
 3.122739080164743D-01,  7.037282845144895D-01,  6.502793402916389D-03, &
 3.127045248917160D-01,  9.507593463893184D-01,  6.165042832173903D-03, &
 3.252517001548298D-01, -6.111780771310250D-01,  1.471608963923809D-02, &
 3.270737918480568D-01,  4.795137218921213D-01,  1.439474911975008D-02, &
 3.292032308163682D-01, -8.969852827615720D-01,  8.651055110598674D-03, &
 3.317394233870357D-01,  3.629784813923093D-02,  1.817689182146082D-02, &
 3.349659026157715D-01, -9.738986981710231D-01,  2.585251695131729D-03, &
 3.354206745206995D-01, -7.970083033314623D-01,  1.098275538515688D-02, &
 3.456801320384574D-01,  7.767804274879180D-01,  1.064901135031854D-02, &
 3.597392305547168D-01, -4.702440999029917D-01,  1.222936506074443D-02, &
 3.670884151507721D-01,  8.541749683199031D-01,  5.997903388653519D-03, &
 3.686946309484030D-01, -2.658237229153717D-01,  1.502100476996729D-02, &
 3.709983918669602D-01, -3.878951046903481D-01,  5.919722230014070D-03, &
 3.783036687069794D-01, -7.129987503369131D-01,  8.163366302461943D-03, &
 3.908992398262501D-01, -1.029204492534816D-01,  1.923372019735730D-02, &
 3.927964120379244D-01,  6.567324722323492D-01,  1.286468850270801D-02, &
 3.953464161989157D-01,  9.776274329999616D-01,  3.590227670893820D-03, &
 3.980418991846619D-01,  2.327471046963004D-01,  1.625275270500379D-02, &
 4.048315435775057D-01,  9.987956142180350D-01,  6.718324805703920D-04, &
 4.112319822368788D-01,  9.120363501798638D-01,  7.424471893404875D-03, &
 4.173246329940232D-01, -9.401616974636222D-01,  6.891766839873124D-03, &
 4.183500029509192D-01, -9.898883598570750D-01,  2.709117739353572D-03, &
 4.187017631471830D-01,  5.436803325150400D-01,  1.209743843849932D-02, &
 4.229143668793170D-01,  3.960647752213135D-01,  1.549781901257185D-02, &
 4.291577428294838D-01, -8.476059832446078D-01,  9.902296083341852D-03, &
 4.331554234268176D-01,  1.092637162347169D-01,  1.439377035472382D-02, &
 4.337443890556876D-01, -6.598862990786999D-01,  8.546812451435981D-03, &
 4.360207998774642D-01, -3.149360384017255D-01,  5.844690041934657D-03, &
 4.392936416624263D-01, -5.418537987967835D-01,  1.354180192499032D-02, &
 4.544968567562652D-01,  9.637138942504565D-01,  1.122463533992389D-03, &
 4.620662895796879D-01,  7.420575670812756D-01,  1.005785415907135D-02, &
 4.643134260679443D-01,  8.291696117863686D-01,  9.380625377758188D-03, &
 4.673690443814725D-01, -7.510905791040010D-01,  8.653955385139918D-03, &
 4.724465250882208D-01, -3.901946239850855D-01,  1.407056045257186D-02, &
 4.814712707153859D-01, -1.018471840513952D-03,  1.494149892965163D-02, &
 4.886505110046377D-01, -2.014030458083448D-01,  1.779060966900524D-02, &
 4.961172566625360D-01,  9.440998487019658D-01,  5.059202691726304D-03, &
 4.965158961324884D-01,  9.906821956576266D-01,  2.159685403265884D-03, &
 5.035820355440569D-01,  2.986926997353190D-01,  1.507793601848234D-02, &
 5.043040025277375D-01,  6.040349373214349D-01,  1.160242726756205D-02, &
 5.113306771546843D-01, -8.975233040638488D-01,  8.023411794220729D-03, &
 5.131329313010590D-01, -9.693478795578427D-01,  4.668299073616817D-03, &
 5.132865237464714D-01,  4.688970718806879D-01,  1.282967010005945D-02, &
 5.176647451047708D-01, -9.983923444453340D-01,  8.821790616867712D-04, &
 5.186382422892405D-01, -5.909018703387654D-01,  8.134241234233111D-03, &
 5.291031884464018D-01, -7.888885157981417D-01,  7.737672122912299D-03, &
 5.351205786493067D-01,  1.662338233527932D-01,  1.523192606517475D-02, &
 5.413187638370147D-01,  7.008354250408056D-01,  9.314699663035950D-03, &
 5.421728509707354D-01,  8.831112721261267D-01,  8.569226685725167D-03, &
 5.467362660936782D-01, -4.682073286935134D-01,  1.236063811528119D-02, &
 5.484074961393921D-01, -6.660476228238359D-01,  1.048532964530446D-02, &
 5.497845124077343D-01, -7.333202414867040D-02,  1.235895418614051D-02, &
 5.748025638560177D-01, -3.067973240959255D-01,  1.707935332348776D-02, &
 5.757548043279564D-01,  9.703367418123594D-01,  3.757168119063795D-03, &
 5.811601592234984D-01,  9.983496902489798D-01,  7.104280334676121D-04, &
 5.864634403080233D-01,  7.932418330534410D-01,  1.112227385834183D-02, &
 5.881718967548081D-01,  3.744506110517851D-01,  1.307998578130345D-02, &
 5.910214836343624D-01, -8.384444159782082D-01,  8.418868716555618D-03, &
 5.939522570295417D-01,  5.310108582117370D-01,  1.096129405119757D-02, &
 5.949690407134853D-01, -9.351174758101611D-01,  5.854723529644378D-03, &
 6.014430739812223D-01,  6.305652605767732D-02,  1.564707540156174D-02, &
 6.031110203472072D-01, -5.107400343109616D-01,  6.474717016434753D-03, &
 6.058697705151179D-01, -9.883839405182854D-01,  2.594759629417247D-03, &
 6.149834556692348D-01, -1.527830270721475D-01,  1.405889213374533D-02, &
 6.191838769193574D-01,  6.420040583801523D-01,  1.067988406928965D-02, &
 6.226576289009583D-01, -7.259246555573967D-01,  1.069584666724211D-02, &
 6.254538870491240D-01,  9.264854004436116D-01,  6.307266862024064D-03, &
 6.314704538659979D-01,  2.446105067220338D-01,  1.537286390141198D-02, &
 6.403455995923052D-01, -5.867373929097057D-01,  1.193450620498925D-02, &
 6.531607555762389D-01,  9.883039600294047D-01,  2.166784944891255D-03, &
 6.582656205134384D-01, -4.038261118251286D-01,  1.497892745877775D-02, &
 6.638595707485085D-01,  4.439193977915850D-01,  1.102925103533717D-02, &
 6.641092110776139D-01, -8.842872475223941D-01,  7.073002093332755D-03, &
 6.652837909761897D-01,  8.550121217464759D-01,  8.720558763742966D-03, &
 6.718973107043948D-01, -9.628615704165838D-01,  3.868709630540442D-03, &
 6.754749986154636D-01,  7.281422316126919D-01,  1.097118103052011D-02, &
 6.779414345191699D-01, -3.063740688329146D-02,  1.447701175069298D-02, &
 6.849076257411216D-01, -2.427166387314666D-01,  1.397568311805146D-02, &
 6.906859319625951D-01, -9.979604128976195D-01,  8.435777152586793D-04, &
 6.909159146496135D-01, -7.887887571343239D-01,  8.977062336109128D-03, &
 6.958360474648256D-01,  5.644565737670422D-01,  1.103743316814278D-02, &
 6.986567532110330D-01,  1.382567167908484D-01,  1.442120114433883D-02, &
 7.032675418563811D-01,  9.600474050632336D-01,  4.157108404417536D-03, &
 7.125260040531168D-01, -6.588957967703316D-01,  1.101941046086741D-02, &
 7.131083800360229D-01,  3.348252722558369D-01,  1.317500343117314D-02, &
 7.243383015839274D-01,  9.980207065293273D-01,  7.199560063855860D-04, &
 7.281406688886811D-01, -5.071254424742396D-01,  1.331196820325115D-02, &
 7.351348537506192D-01, -9.235000024040693D-01,  5.339474521352486D-03, &
 7.391722285237710D-01,  9.062068947141577D-01,  6.258431339300329D-03, &
 7.403849867503648D-01, -9.819171911401473D-01,  2.337724717192945D-03, &
 7.431555210822531D-01,  7.977482842071556D-01,  8.833161716226669D-03, &
 7.459343555200221D-01, -1.236717037454283D-01,  1.296776589532101D-02, &
 7.490155562917605D-01, -3.252336868606283D-01,  9.351093216509690D-03, &
 7.520357832344026D-01,  6.508886285165648D-01,  1.070105581225020D-02, &
 7.555601563064301D-01, -8.414687309753481D-01,  6.891618536870428D-03, &
 7.613061970586104D-01,  4.720892602078328D-01,  1.121593897330926D-02, &
 7.696542328903390D-01, -3.800140053796911D-01,  5.896276097702543D-03, &
 7.703655439710254D-01,  4.177172398061163D-02,  1.320655645297225D-02, &
 7.713573933240646D-01,  2.292623609101414D-01,  1.222664318821314D-02, &
 7.728941799568024D-01,  9.834791267225803D-01,  2.318079830785805D-03, &
 7.753719582521668D-01, -7.296837750586209D-01,  8.830371768634843D-03, &
 7.978946443412313D-01, -5.940088162963154D-01,  1.102206312002593D-02, &
 7.996575186605993D-01, -9.945437983737444D-01,  1.170500089565615D-03, &
 8.013660329335811D-01, -9.549385718300994D-01,  3.667653054187556D-03, &
 8.048061510789419D-01,  3.718357650456645D-01,  8.637973753390449D-03, &
 8.052848747707124D-01, -2.154694645963307D-01,  1.115929240605312D-02, &
 8.055768707550288D-01,  8.588418294042808D-01,  6.546425691890088D-03, &
 8.060880027952726D-01,  9.464168885010812D-01,  4.138102993626548D-03, &
 8.095710479011895D-01,  7.299545306893604D-01,  8.640988335276857D-03, &
 8.131642862712356D-01, -8.855936518041989D-01,  5.172308318006293D-03, &
 8.179555207385244D-01,  5.630877825822931D-01,  1.038670426889326D-02, &
 8.198903592035567D-01, -4.474759410866835D-01,  1.039723732697557D-02, &
 8.302233642792779D-01, -7.887974291015537D-01,  6.403870452065013D-03, &
 8.316280572729237D-01,  9.963536786620084D-01,  8.601012497443448D-04, &
 8.323840732904080D-01, -5.770931774582546D-02,  1.157981674113329D-02, &
 8.345746770920350D-01,  1.348195251852799D-01,  1.086669255897672D-02, &
 8.445552751701417D-01,  2.869258517851172D-01,  7.087178777230579D-03, &
 8.531080996665429D-01, -3.100864425712632D-01,  9.462959763014268D-03, &
 8.561231024886632D-01, -6.768698449375528D-01,  8.653374792867137D-03, &
 8.580096391046452D-01,  4.289163888579028D-01,  7.032590377677609D-03, &
 8.591213496900382D-01, -9.789218555148047D-01,  2.183949091910629D-03, &
 8.618783040518693D-01,  8.015653601725335D-01,  6.476664260979469D-03, &
 8.620920815291837D-01,  9.088307352715838D-01,  4.535170978475270D-03, &
 8.649186611907598D-01,  9.752422585287235D-01,  2.397696219433860D-03, &
 8.653144381651936D-01, -9.229713406820786D-01,  3.786147464455085D-03, &
 8.656342986234824D-01,  6.539955758641589D-01,  8.007673011011452D-03, &
 8.738193544174702D-01, -9.987050363801271D-01,  4.029777384147725D-04, &
 8.746997180248225D-01, -5.337452183276610D-01,  8.969697082860535D-03, &
 8.750871750612564D-01, -8.371208783269141D-01,  4.667481132791865D-03, &
 8.840931476725340D-01, -1.591395148790940D-01,  9.725396029596314D-03, &
 8.863873331866154D-01,  5.014911962761207D-01,  6.732637721829442D-03, &
 8.877478758386065D-01,  3.703102823746122D-02,  9.391237982629010D-03, &
 8.886925006776532D-01, -4.029207162992898D-01,  3.953122632176603D-03, &
 8.914497061411687D-01,  2.063254399354762D-01,  6.379677376597891D-03, &
 8.966458818425863D-01,  3.077535071435578D-01,  5.074492497678043D-03, &
 9.060257668239784D-01, -7.510933281143483D-01,  6.285183519604021D-03, &
 9.069440260746182D-01,  9.948615423994508D-01,  8.460206194961731D-04, &
 9.085091703518080D-01,  7.357866023957996D-01,  5.980225096092428D-03, &
 9.088140552343917D-01,  8.613880826568586D-01,  4.524206023005564D-03, &
 9.097119148344930D-01, -2.791721791436264D-01,  3.325039377988705D-03, &
 9.107962036779229D-01, -9.546466357227235D-01,  2.504361618864681D-03, &
 9.109269835273496D-01,  9.474408959785233D-01,  2.828303409790731D-03, &
 9.116846414755537D-01, -3.946552397032295D-01,  4.799510717398269D-03, &
 9.147536811475745D-01, -8.800465507878222D-01,  3.625599405917247D-03, &
 9.180486167649172D-01,  5.920245031381465D-01,  6.069384535392124D-03, &
 9.188758666484276D-01, -6.191245374224351D-01,  6.822998261844405D-03, &
 9.211332348776220D-01, -9.906945704103310D-01,  1.078080942745430D-03, &
 9.252698678871364D-01,  3.816000875630634D-01,  6.720562662548456D-03, &
 9.303888378867309D-01, -6.224958329536455D-02,  7.669256083745869D-03, &
 9.316323693555080D-01,  1.260692370780684D-01,  6.144629409760324D-03, &
 9.351449029460894D-01, -2.406511548034665D-01,  5.779691515292159D-03, &
 9.392911967713488D-01, -4.855179051814372D-01,  6.174008549382279D-03, &
 9.426467016723202D-01,  9.801477693736759D-01,  1.345953538075658D-03, &
 9.435279532066055D-01,  2.221999393850942D-01,  3.479548412810748D-03, &
 9.454153692097916D-01,  4.969416983931578D-01,  4.614178689184361D-03, &
 9.459596501532294D-01,  8.050199903923727D-01,  4.077330276254603D-03, &
 9.461037891822155D-01, -8.162510788029149D-01,  4.131502513773345D-03, &
 9.477372910934111D-01,  9.097890847623551D-01,  2.819888629654258D-03, &
 9.497373302590694D-01, -9.198416005546896D-01,  2.489219831374708D-03, &
 9.502228126713501D-01,  6.756755603285315D-01,  4.638832336370128D-03, &
 9.543120615194950D-01, -6.978166939707769D-01,  4.657220418242932D-03, &
 9.572722322598644D-01, -9.727383585296555D-01,  1.371820477478312D-03, &
 9.603547491901058D-01, -3.444098104140523D-01,  5.192860463827343D-03, &
 9.618072357953964D-01,  2.840075572844367D-01,  4.584997220482829D-03, &
 9.621685673801630D-01, -9.981498616350863D-01,  2.983264390605248D-04, &
 9.644011406655369D-01,  3.955662605890648D-02,  5.487620385431768D-03, &
 9.648815628338514D-01,  9.976194228266280D-01,  3.422316968868938D-04, &
 9.654793296651025D-01, -1.449151374798731D-01,  4.901363403832491D-03, &
 9.675772091594030D-01, -5.706238471045659D-01,  4.319580505788219D-03, &
 9.688706334298569D-01,  4.266194891481059D-01,  3.409732775774852D-03, &
 9.702051269912042D-01,  9.560511844190226D-01,  1.434791120385777D-03, &
 9.716942423922518D-01,  5.810982845814314D-01,  3.659348716877558D-03, &
 9.748150682339674D-01,  8.630701855337108D-01,  2.379490945836736D-03, &
 9.756611980550673D-01, -8.717067247715160D-01,  2.345719243525908D-03, &
 9.760951773774511D-01,  7.497184921929896D-01,  2.895893718670046D-03, &
 9.794817550638735D-01, -4.308079229171551D-01,  3.138802635622372D-03, &
 9.798298883847092D-01, -7.687042632123031D-01,  2.691125475983456D-03, &
 9.817367673963038D-01, -2.211661902207940D-01,  2.176154471489884D-03, &
 9.820307319973294D-01,  1.607872100549523D-01,  3.959806596474525D-03, &
 9.823718529863428D-01, -9.448695023246775D-01,  1.256965089029987D-03, &
 9.854696330893135D-01, -9.878927125972993D-01,  5.302485898777602D-04, &
 9.864237410369340D-01,  3.474984134057699D-01,  2.626333169195453D-03, &
 9.865494934684096D-01,  9.856652402947823D-01,  5.802863637376822D-04, &
 9.872410998898277D-01, -6.516124343282037D-01,  2.451688694670727D-03, &
 9.885804018012844D-01, -4.855418553020024D-02,  3.260277409726965D-03, &
 9.888908697853098D-01,  9.233667636095402D-01,  1.140018239107126D-03, &
 9.892479265001065D-01,  6.612276378064350D-01,  2.043285817276434D-03, &
 9.900482572019094D-01,  4.985621080229760D-01,  2.242724334598082D-03, &
 9.906699598276788D-01, -2.862146444653838D-01,  2.228303203490404D-03, &
 9.920960970276202D-01, -5.044070130004836D-01,  1.824136223192767D-03, &
 9.929995253631880D-01,  8.129871703624600D-01,  1.347117277977657D-03, &
 9.952342237683616D-01, -8.286466960550624D-01,  1.082707396932906D-03, &
 9.958519119176469D-01, -9.077787403602237D-01,  7.431854366720857D-04, &
 9.963480933133427D-01,  2.479538638037798D-01,  1.491315677106339D-03, &
 9.971099785500591D-01, -9.975224120853297D-01,  7.798442798007867D-05, &
 9.972455951936153D-01,  7.187156081293171D-02,  1.410032513903549D-03, &
 9.973396392196245D-01,  9.972222237164891D-01,  8.333752929282447D-05, &
 9.976125620794032D-01, -7.261201764578525D-01,  8.279866159627213D-04, &
 9.976963561372271D-01, -9.678687355428703D-01,  3.138082077303478D-04, &
 9.978286522784937D-01,  9.628763075615144D-01,  3.344694660648939D-04, &
 9.982097416579526D-01,  8.832442641091779D-01,  4.604405106623550D-04, &
 9.982434766908749D-01, -3.819333028903024D-01,  9.500630778549490D-04, &
 9.982698924284638D-01,  5.843339960398285D-01,  7.392815641484668D-04, &
 9.983624199159088D-01,  7.311569400195331D-01,  6.234634259867621D-04, &
 9.985517638075939D-01, -1.568937801098068D-01,  1.047965997616771D-03, &
 9.986637711500016D-01, -5.835721439184322D-01,  6.485919247428450D-04, &
 9.988024883360008D-01,  4.104312670989267D-01,  7.247738364520382D-04 /)

  return
end
subroutine square_minimal_rule ( degree, xyw )

!*****************************************************************************80
!
!! SQUARE_MINIMAL_RULE returns a minimal rule for the square.
!
!  Licensing:
!
!    This code is distributed under the GNU GPL license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Input, integer DEGREE, the degree, between 0 and 55.
!
!    Output, real ( kind = rk ) *SQUARE_MINIMAL_RULE(3*ORDER), the rule.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  integer degree
  real ( kind = rk ) xyw(*)

  if ( degree == 0 ) then
    call smr00 ( xyw )
  else if ( degree ==1 ) then
    call smr01 ( xyw )
  else if ( degree == 2 ) then
    call smr02 ( xyw )
  else if ( degree == 3 ) then
    call smr03 ( xyw )
  else if ( degree == 4 ) then
    call smr04 ( xyw )
  else if ( degree == 5 ) then
    call smr05 ( xyw )
  else if ( degree == 6 ) then
    call smr06 ( xyw )
  else if ( degree == 7 ) then
    call smr07 ( xyw )
  else if ( degree == 8 ) then
    call smr08 ( xyw )
  else if ( degree == 9 ) then
    call smr09 ( xyw )
  else if ( degree == 10 ) then
    call smr10 ( xyw )
  else if ( degree == 11 ) then
    call smr11 ( xyw )
  else if ( degree == 12 ) then
    call smr12 ( xyw )
  else if ( degree == 13 ) then
    call smr13 ( xyw )
  else if ( degree == 14 ) then
    call smr14 ( xyw )
  else if ( degree == 15 ) then
    call smr15 ( xyw )
  else if ( degree == 16 ) then
    call smr16 ( xyw )
  else if ( degree == 17 ) then
    call smr17 ( xyw )
  else if ( degree == 18 ) then
    call smr18 ( xyw )
  else if ( degree == 19 ) then
    call smr19 ( xyw )
  else if ( degree == 20 ) then
    call smr20 ( xyw )
  else if ( degree == 21 ) then
    call smr21 ( xyw )
  else if ( degree == 22 ) then
    call smr22 ( xyw )
  else if ( degree == 23 ) then
    call smr23 ( xyw )
  else if ( degree == 24 ) then
    call smr24 ( xyw )
  else if ( degree == 25 ) then
    call smr25 ( xyw )
  else if ( degree == 26 ) then
    call smr26 ( xyw )
  else if ( degree == 27 ) then
    call smr27 ( xyw )
  else if ( degree == 28 ) then
    call smr28 ( xyw )
  else if ( degree == 29 ) then
    call smr29 ( xyw )
  else if ( degree == 30 ) then
    call smr30 ( xyw )
  else if ( degree == 31 ) then
    call smr31 ( xyw )
  else if ( degree == 32 ) then
    call smr32 ( xyw )
  else if ( degree == 33 ) then
    call smr33 ( xyw )
  else if ( degree == 34 ) then
    call smr34 ( xyw )
  else if ( degree == 35 ) then
    call smr35 ( xyw )
  else if ( degree == 36 ) then
    call smr36 ( xyw )
  else if ( degree == 37 ) then
    call smr37 ( xyw )
  else if ( degree == 38 ) then
    call smr38 ( xyw )
  else if ( degree == 39 ) then
    call smr39 ( xyw )
  else if ( degree == 40 ) then
    call smr40 ( xyw )
  else if ( degree == 41 ) then
    call smr41 ( xyw )
  else if ( degree == 42 ) then
    call smr42 ( xyw )
  else if ( degree == 43 ) then
    call smr43 ( xyw )
  else if ( degree == 44 ) then
    call smr44 ( xyw )
  else if ( degree == 45 ) then
    call smr45 ( xyw )
  else if ( degree == 46 ) then
    call smr46 ( xyw )
  else if ( degree == 47 ) then
    call smr47 ( xyw )
  else if ( degree == 48 ) then
    call smr48 ( xyw )
  else if ( degree == 49 ) then
    call smr49 ( xyw )
  else if ( degree == 50 ) then
    call smr50 ( xyw )
  else if ( degree == 51 ) then
    call smr51 ( xyw )
  else if ( degree == 52 ) then
    call smr52 ( xyw )
  else if ( degree == 53 ) then
    call smr53 ( xyw )
  else if ( degree == 54 ) then
    call smr54 ( xyw )
  else if ( degree == 55 ) then
    call smr55 ( xyw )
  else
    write ( *, '(a)' ) ''
    write ( *, '(a)' ) 'SQUARE_MINIMAL_RULE - Fatal error!'
    write ( *, '(a)' ) '  0 <= DEGREE <= 55 is required.'
    stop 1
  end if

  return
end
subroutine square_minimal_rule_degree_max ( degree_max )

!*****************************************************************************80
!
!! SQUARE_MINIMAL_RULE_DEGREE_MAX returns the maximum rule degree.
!
!  Licensing:
!
!    This code is distributed under the GNU GPL license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Output, integer DEGREE_MAX, the maximum degree of the minimal
!    rules for the square.
!
  implicit none

  integer degree_max

  degree_max = 55

  return
end
subroutine square_minimal_rule_error_max ( degree, error_max )

!*****************************************************************************80
!
!! SQUARE_MINIMAL_RULE_ERROR_MAX returns the maximum error.
!
!  Discussion:
!
!    The rule of given DEGREE should theoretically have zero error
!    for all monomials of degrees 0 <= D <= DEGREE.  This function
!    checks every such monomial and reports the maximum error.
!
!  Licensing:
!
!    This code is distributed under the GNU GPL license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Input, integer DEGREE, the desired total polynomial degree
!    exactness of the quadrature rule.
!
!    Output, real ( kind = rk ) SQUARE_MINIMAL_RULE_ERROR_MAX, the maximum error
!    observed when using the rule to compute the integrals of all monomials of
!    degree between 0 and DEGREE.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  integer d
  integer degree
  integer e(2)
  real ( kind = rk ) error
  real ( kind = rk ) error_max
  real ( kind = rk ) exact
  integer i
  integer j
  integer k
  integer order
  real ( kind = rk ) s
  real ( kind = rk ), allocatable :: xyw(:)

  call square_minimal_rule_order ( degree, order )

  allocate ( xyw(1:3*order))

  call square_minimal_rule ( degree, xyw )

  error_max = 0.0D+00

  do d = 0, degree
    do i = 0, d
      j = d - i
      e(1) = i
      e(2) = j
      call squaresym_monomial_integral ( e, exact )
      s = 0.0D+00
      do k = 1, order
        s = s + xyw(3+(k-1)*3) * xyw(1+(k-1)*3) ** i *  xyw(2+(k-1)*3) ** j
      end do
      error = abs ( exact - s )
      error_max = max ( error_max, error )
    end do
  end do

  deallocate ( xyw )

  return
end
subroutine square_minimal_rule_order ( degree, order )

!*****************************************************************************80
!
!! SQUARE_MINIMAL_RULE_ORDER returns the order of a minimal square rule.
!
!  Licensing:
!
!    This code is distributed under the GNU GPL license.
!
!  Modified:
!
!    23 February 2018
!
!  Author:
!
!    John Burkardt.
!
!  Reference:
!
!    Mattia Festa, Alvise Sommariva,
!    Computing almost minimal formulas on the square,
!    Journal of Computational and Applied Mathematics,
!    Volume 17, Number 236, November 2012, pages 4296-4302.
!
!  Parameters:
!
!    Input, integer DEGREE, the degree of the rule,
!    between 0 and 55.
!
!    Output, integer ORDER, the order of the rule.
!
  implicit none

  integer degree
  integer degree_max
  integer order
  integer :: order_list(0:55) = (/ &
    1,    1,    3,    4,    6, &
    7,   10,   12,   16,   17, &  
   22,   24,   31,   33,   40, & 
   43,   52,   54,   64,   67, &
   78,   81,   93,   96,  109, &
  113,  127,  132,  146,  153, &
  167,  172,  189,  197,  211, &
  220,  238,  245,  265,  274, &
  296,  303,  326,  331,  353, &
  359,  387,  396,  417,  427, &
  454,  462,  493,  498,  530, &
  536 /)
 
  call square_minimal_rule_degree_max ( degree_max )

  if ( degree < 0 ) then
    order = 0
  else if ( degree_max < degree ) then
    order = 0
  else
    order = order_list(degree)
  end if

  return
end
subroutine squaresym_area ( area )

!*****************************************************************************80
!
!! SQUARESYM_AREA: area of the symmetric unit square in 2D.
!
!  Licensing:
!
!    This code is distributed under the MIT license. 
!
!  Modified:
!
!    20 February 2018
!
!  Author:
!
!    John Burkardt
!
!  Parameters:
!
!    Output, real ( kind = rk ) AREA, the area.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  real ( kind = rk ) area

  area = 4.0D+00

  return
end
subroutine squaresym_monomial_integral ( e, integral )

!*****************************************************************************80
!
!! SQUARESYM_MONOMIAL_INTEGRAL: integral over interior of symmetric unit square.
!
!  Discussion:
!
!    The integration region is 
!
!      -1 <= X <= 1, 
!      -1 <= Y <= 1.
!
!    The monomial is F(X,Y) = X^E(1) * Y^E(2).
!
!  Licensing:
!
!    This code is distributed under the MIT license. 
!
!  Modified:
!
!    20 February 2018
!
!  Author:
!
!    John Burkardt
!
!  Parameters:
!
!    Input, integer E(2), the exponents.  
!    Each exponent must be nonnegative.
!
!    Output, real ( kind = rk ) INTEGRAL, the integral.
!
  implicit none

  integer, parameter :: rk = kind ( 1.0D+00 )

  integer, parameter :: m = 2

  integer e(m)
  real ( kind = rk ) integral

  if ( any ( e(1:m) < 0 ) ) then
    write ( *, '(a)' ) ' '
    write ( *, '(a)' ) 'SQUARESYM_MONOMIAL_INTEGRAL - Fatal error!'
    write ( *, '(a)' ) '  All exponents must be nonnegative.'
    stop 1
  end if

  if ( mod ( e(1), 2 ) == 1 .or. mod ( e(2), 2 ) == 1 ) then
    integral = 0.0D+00
  else
    integral = 4.0D+00 &
      / real ( e(1) + 1, kind = rk ) &
      / real ( e(2) + 1, kind = rk )
  end if

  return
end
subroutine timestamp ( )

!*****************************************************************************80
!
!! TIMESTAMP prints the current YMDHMS date as a time stamp.
!
!  Example:
!
!    31 May 2001   9:45:54.872 AM
!
!  Licensing:
!
!    This code is distributed under the MIT license.
!
!  Modified:
!
!    18 May 2013
!
!  Author:
!
!    John Burkardt
!
  implicit none

  character ( len = 8 ) ampm
  integer d
  integer h
  integer m
  integer mm
  character ( len = 9 ), parameter, dimension(12) :: month = (/ &
    'January  ', 'February ', 'March    ', 'April    ', &
    'May      ', 'June     ', 'July     ', 'August   ', &
    'September', 'October  ', 'November ', 'December ' /)
  integer n
  integer s
  integer values(8)
  integer y

  call date_and_time ( values = values )

  y = values(1)
  m = values(2)
  d = values(3)
  h = values(5)
  n = values(6)
  s = values(7)
  mm = values(8)

  if ( h < 12 ) then
    ampm = 'AM'
  else if ( h == 12 ) then
    if ( n == 0 .and. s == 0 ) then
      ampm = 'Noon'
    else
      ampm = 'PM'
    end if
  else
    h = h - 12
    if ( h < 12 ) then
      ampm = 'PM'
    else if ( h == 12 ) then
      if ( n == 0 .and. s == 0 ) then
        ampm = 'Midnight'
      else
        ampm = 'AM'
      end if
    end if
  end if

  write ( *, '(i2,1x,a,1x,i4,2x,i2,a1,i2.2,a1,i2.2,a1,i3.3,1x,a)' ) &
    d, trim ( month(m) ), y, h, ':', n, ':', s, '.', mm, trim ( ampm )

  return
end