June 13 2005 3:04:11.215 PM TRIANGULATION_BOUNDARY_NODES (FORTRAN90 version) Read a node dataset of NODE_NUM points in 2 dimensions. Read an associated triangulation dataset of triangles using 3 or 6 nodes. Determine which triangle edges are boundary edges. Write the edges of each connected boundary segment to a separate file. Read the header of "channel.65.nodes.txt". Spatial dimension DIM_NUM = 2 Number of nodes NODE_NUM = 65 Read the data in "channel.65.nodes.txt". Portion of coordinate data from file: Row 1 2 Col 1 0.00000 0.00000 2 1.00000 0.00000 3 2.00000 0.00000 4 3.00000 0.00000 5 0.00000 1.00000 Read the header of "channel.65.triangles6.txt". Triangle order = 6 Number of triangles = 24 Read the data in "channel.65.triangles6.txt". Portion of triangle file: Row 1 2 3 4 5 6 Col 1 5 9 11 22 23 24 2 1 10 9 25 26 27 3 2 11 10 28 29 30 4 9 10 11 26 29 23 5 5 11 13 24 31 32 Boundary nodes: New Old Index Index X and Y Coordinates 1 1 0.00000 0.00000 2 2 1.00000 0.00000 3 3 2.00000 0.00000 4 4 3.00000 0.00000 5 5 0.00000 1.00000 6 6 1.00000 1.00000 7 7 2.00000 1.00000 8 8 3.00000 1.00000 9 9 0.00000 0.500000 10 10 0.500000 0.00000 11 13 0.500000 1.00000 12 14 1.50000 0.00000 13 17 1.50000 1.00000 14 18 2.50000 0.00000 15 20 3.00000 0.500000 16 21 2.50000 1.00000 17 22 0.00000 0.750000 18 25 0.250000 0.00000 19 27 0.00000 0.250000 20 30 0.750000 0.00000 21 32 0.250000 1.00000 22 35 0.750000 1.00000 23 40 1.25000 0.00000 24 44 1.75000 0.00000 25 46 1.25000 1.00000 26 49 1.75000 1.00000 27 54 2.25000 0.00000 28 58 2.75000 0.00000 29 60 2.25000 1.00000 30 61 3.00000 0.250000 31 63 2.75000 1.00000 32 65 3.00000 0.750000 Created the boundary node coordinate file "boundary_nodes.txt". TRIANGULATION_BOUNDARY_NODES Normal end of execution. June 13 2005 3:04:11.613 PM