28 March 2023   6:29:54.869 PM
 
STRIPACK_PRB3
  FORTRAN90 version
 
  Have TRMESH create the Delaunay triangulation of
  points on a sphere.
 
  Have TRLIST return the triangle vertices,
  and the triangle neighbors.
 
  Data points:
 
  Row          1             2             3      
  Col
 
    1:  0.915568     -0.257797     -0.308668    
    2: -0.171751      0.901345      0.397592    
    3:  0.541822      0.447986     -0.711152    
    4: -0.620052     -0.745456      0.244603    
    5:  0.262807E-01 -0.894727      0.445840    
    6:  0.167158E-01 -0.591520      0.806117    
    7:  0.987108      0.846611E-01  0.135834    
    8: -0.220974      0.974193      0.460176E-01
    9:  0.679580     -0.416543     -0.603873    
   10:  0.936980     -0.375368E-01  0.347361    
 
  Number of triangles =       16
 
  Check Euler's formula:
 
  Faces =          16
  Vertices =       10
  Edges =          24
 
  F+V-E-2 =         0
 
  Delaunay triangles:
 
  Row        1       2       3
  Col
 
    1:       1       7      10
    2:       1      10       5
    3:       1       5       9
    4:       1       9       3
    5:       1       3       7
    6:       2       8       4
    7:       2       4       6
    8:       2       6      10
    9:       2      10       7
   10:       2       7       8
   11:       3       9       4
   12:       3       4       8
   13:       3       8       7
   14:       4       9       5
   15:       4       5       6
   16:       5      10       6
 
  Triangle neighbors:
 
  Row        1       2       3
  Col
 
    1:       9       2       5
    2:      16       3       1
    3:      14       4       2
    4:      11       5       3
    5:      13       1       4
    6:      12       7      10
    7:      15       8       6
    8:      16       9       7
    9:       1      10       8
   10:      13       6       9
   11:      14      12       4
   12:       6      13      11
   13:      10       5      12
   14:       3      15      11
   15:      16       7      14
   16:       8      15       2
 
  Spherical area of triangles:
 
    1:  0.68950287E-01
    2:  0.58807231    
    3:  0.36554555    
    4:  0.20080066    
    5:  0.29487983    
    6:  0.61452252    
    7:   1.2530835    
    8:   1.4492844    
    9:  0.26174284    
   10:  0.38464567    
   11:   1.1733477    
   12:   3.8249532    
   13:  0.91270867    
   14:  0.64458545    
   15:  0.17884589    
   16:  0.35040208    
 
  Area sum =    12.5664    
  4*PI =        12.5664    
 
STRIPACK_PRB3:
  Normal end of execution.
 
28 March 2023   6:29:54.869 PM