March 13 2005 12:23:13.529 PM TRIANGULATION_RCM (FORTRAN90 version) Read a node dataset of NODE_NUM points in 2 dimensions. Read an associated triangulation dataset of TRI_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 "nodes3.txt". Spatial dimension DIM_NUM = 2 Number of nodes NODE_NUM = 9 Read the data in "nodes3.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 "triangles3.txt". Triangle order TRI_ORDER = 3 Number of triangles TRI_NUM = 7 Read the data in "triangles3.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 ADJ bandwidth = 17 Permuted ADJ bandwidth = 11 Created the node file "nodes3.rcm.txt". Created the triangulation file "triangles3.rcm.txt". TRIANGULATION_RCM Normal end of execution. March 13 2005 12:23:13.555 PM