11 July 2023   9:14:49.468 AM

triangle_witherden_rule_test():
  Fortan90 version
  Test triangle_witherden_rule().

triangle_witherden_rule_test01():
  Quadrature rule for the triangle,
  given in barycentric coordinates.
  Precision p =  5

  Number of nodes N =   7

     I      W          A           B           C

     1    0.225000        0.333333        0.333333        0.333333    
     2    0.125939        0.101287        0.797427        0.101287    
     3    0.125939        0.797427        0.101287        0.101287    
     4    0.125939        0.101287        0.101287        0.797427    
     5    0.132394        0.470142        0.597159E-01    0.470142    
     6    0.132394        0.597159E-01    0.470142        0.470142    
     7    0.132394        0.470142        0.470142        0.597159E-01

  Weight Sum    1.00000    

triangle_witherden_rule_test02():
  Test the precision of a quadrature rule for the unit triangle,

  Number of nodes N =   7

  Stated precision of rule    =  5
  Number of quadrature points =   7

  Degree  Maximum error

   0    0.1110223024625157E-15
   1    0.5551115123125783E-16
   2    0.2775557561562891E-16
   3    0.1387778780781446E-16
   4    0.6938893903907228E-17
   5    0.1387778780781446E-16
   6    0.8188460569411721E-04
   7    0.2540522381792205E-03

triangle_symq_rule_test03():
  Test the precision of a quadrature rule for the unit triangle,
  Check rules of precision p = 0 through 20
  for error in approximating integrals of monomials.

              maximum                   maximum
   p          absolute                  relative
              error                     error

   0     0.000000000000000         0.000000000000000    
   1    0.5551115123125783E-16    0.3330669073875470E-15
   2    0.1110223024625157E-15    0.6661338147750939E-15
   3    0.2220446049250313E-15    0.8326672684688674E-15
   4    0.2220446049250313E-15    0.8326672684688674E-15
   5    0.1110223024625157E-15    0.5828670879282072E-15
   6    0.5551115123125783E-16    0.4163336342344337E-15
   7    0.1110223024625157E-15    0.1623701173514291E-14
   8    0.1665334536937735E-15    0.1249000902703301E-14
   9    0.4996003610813204E-15    0.1775923158531256E-14
  10    0.1110223024625157E-15    0.1526556658859590E-14
  11    0.8326672684688674E-16    0.5412337245047638E-14
  12    0.2220446049250313E-15    0.2367897544708342E-14
  13    0.6245004513516506E-16    0.3107865527429698E-14
  14    0.1387778780781446E-14    0.1020017403874363E-13
  15    0.6938893903907228E-16    0.2289275946544198E-14
  16    0.7771561172376096E-15    0.1526122977990596E-13
  17    0.4857225732735060E-16    0.9640725717741105E-14
  18    0.3885780586188048E-15    0.1878705524482882E-13
  19    0.7216449660063518E-15    0.4917941054394247E-14
  20    0.4440892098500626E-15    0.9016225266389453E-14

triangle_witherden_rule_test():
  Normal end of execution.

11 July 2023   9:14:49.469 AM