13 March 2009 11:33:07.549 AM TRIANGULATION_T3_TO_T4 FORTRAN90 version Read a "linear" T3 triangulation and write out a "quadratic" T6 triangulation. Read a dataset of NODE_NUM1 points in 2 dimensions. Read an associated triangulation dataset of ELEMENT_NUM triangles which uses 3 nodes per element. Create new nodes which are triangle midpoints, generate new node and triangulation data for quadratic 6-node elements, and write them out. Read the header of "nodes_order3.txt". Spatial dimension DIM_NUM = 2 Number of points NODE_NUM_T3 = 20 Read the data in "nodes_order3.txt". 5 by 5 portion of data read 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 4.00000 0.00000 Read the header of "triangles_order3.txt". Element order = 3 Number of elements ELEMENT_NUM = 24 Read the data in "triangles_order3.txt". 3 by 10 portion ELEMENT_NODE_T3: Row 1 2 3 Col 1 6 1 2 2 7 6 2 3 7 11 6 4 12 11 7 5 16 11 12 6 16 12 17 7 7 2 3 8 8 7 3 9 8 12 7 10 13 12 8 ELEMENT_NODE_T4 Row 1 2 3 4 Col 1 6 1 2 21 2 7 6 2 22 3 7 11 6 23 4 12 11 7 24 5 16 11 12 25 6 16 12 17 26 7 7 2 3 27 8 8 7 3 28 9 8 12 7 29 10 13 12 8 30 11 17 12 13 31 12 17 13 18 32 13 8 3 4 33 14 9 8 4 34 15 9 13 8 35 16 14 13 9 36 17 18 13 14 37 18 18 14 19 38 19 9 4 5 39 20 10 9 5 40 21 10 14 9 41 22 15 14 10 42 23 19 14 15 43 24 19 15 20 44 NODE_XY_T4: 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 4.00000 0.00000 6 0.00000 1.00000 7 1.00000 1.00000 8 2.00000 1.00000 9 3.00000 1.00000 10 4.00000 1.00000 11 0.00000 2.00000 12 1.00000 2.00000 13 2.00000 2.00000 14 3.00000 2.00000 15 4.00000 2.00000 16 0.00000 3.00000 17 1.00000 3.00000 18 2.00000 3.00000 19 3.00000 3.00000 20 4.00000 3.00000 21 0.333333 0.333333 22 0.666667 0.666667 23 0.333333 1.33333 24 0.666667 1.66667 25 0.333333 2.33333 26 0.666667 2.66667 27 1.33333 0.333333 28 1.66667 0.666667 29 1.33333 1.33333 30 1.66667 1.66667 31 1.33333 2.33333 32 1.66667 2.66667 33 2.33333 0.333333 34 2.66667 0.666667 35 2.33333 1.33333 36 2.66667 1.66667 37 2.33333 2.33333 38 2.66667 2.66667 39 3.33333 0.333333 40 3.66667 0.666667 41 3.33333 1.33333 42 3.66667 1.66667 43 3.33333 2.33333 44 3.66667 2.66667 TRIANGULATION_T3_TO_T4 Normal end of execution. 13 March 2009 11:33:07.562 AM