9 May 2025   9:47:31.912 PM
 
triangulation_rcm():
  Fortran90 version
  Read a node dataset of NODE_NUM points in 2 dimensions.
  Read an associated triangulation dataset of TRIANGLE_NUM 
  triangles using 3 or 6 nodes.
 
  Apply the RCM reordering (Reverse Cuthill-McKee).
 
  Reorder the data and write it out to files.
 
  Read the header of "test3_nodes.txt".
 
  Spatial dimension DIM_NUM =        2
  Number of nodes NODE_NUM  =        9
 
  Read the data in "test3_nodes.txt".
 
  Coordinates of first 5 nodes:
 
  Row         1             2       
  Col
 
    1    1.00000       0.00000    
    2    2.00000       1.00000    
    3    2.00000       0.00000    
    4    0.00000       1.00000    
    5    1.00000       2.00000    
 
  Read the header of "test3_elements.txt".
 
  Triangle order TRIANGLE_ORDER =        3
  Number of triangles TRIANGLE_NUM  =        7
 
  Read the data in "test3_elements.txt".
 
  First 5 triangles:
 
  Row       1      2      3
  Col
 
    1       1      8      9
    2       4      9      8
    3       3      2      1
    4       8      1      2
    5       2      7      8
 
MESH_BASE_ONE:
  The element indexing appears to be 1-based!
  No conversion is necessary.
 
  ADJ bandwidth =       17
 
  Permuted ADJ bandwidth =       11
 
  Created the node file "test3_rcm_nodes.txt".
 
  Created the triangulation file "test3_rcm_elements.txt".
 
TRIANGULATION_RCM
  Normal end of execution.
 
 9 May 2025   9:47:31.912 PM