17 September 2021 11:53:57.355 PM TEST_MESH_TEST FORTRAN90 version Test the TEST_MESH library. TEST01 MESH00_NUM reports the number of meshes. MESH00_NAME gives the name of any mesh. MESH00_ELEMENT_NUM gives the number of elements. MESH00_NODE_NUM gives the number of nodes. Number of meshes available = 9 Mesh number: 1 Name: "The Square" Number of elements: 2 Number of nodes: 4 Mesh number: 2 Name: "The Graded L" Number of elements: 30 Number of nodes: 22 Mesh number: 3 Name: "The Plus Shaped Domain" Number of elements: 26 Number of nodes: 28 Mesh number: 4 Name: "The H Shaped Domain" Number of elements: 38 Number of nodes: 40 Mesh number: 5 Name: "The Hollow Square (Small Hole)" Number of elements: 12 Number of nodes: 12 Mesh number: 6 Name: "The Hollow Square (Large Hole)" Number of elements: 32 Number of nodes: 32 Mesh number: 7 Name: "The 3-Hole Problem" Number of elements: 56 Number of nodes: 48 Mesh number: 8 Name: "The 6-Hole Problem" Number of elements: 56 Number of nodes: 46 Mesh number: 9 Name: "The Pinched Hole Problem" Number of elements: 7 Number of nodes: 8 TEST02 MESH00_NAME gets the name of a mesh. MESH00_NODE_NUM gets the number of nodes. MESH00_NODE_XY gets the node coordinates. MESH00_ELEMENT_NUM gets the number of elements. MESH00_ELEMENT_NODE gets the element->node data. Mesh name: The Square Number of nodes = 4 Node coordinates: 1 0.000000 0.000000 2 1.000000 0.000000 3 0.000000 1.000000 4 1.000000 1.000000 Number of elements = 2 Element nodes: 1 1 2 3 2 4 3 2 Mesh name: The Graded L Number of nodes = 22 Node coordinates: 1 0.000000 0.000000 2 0.500000 0.000000 3 1.000000 0.000000 4 0.250000 0.250000 5 0.500000 0.250000 6 0.750000 0.250000 7 0.375000 0.375000 8 0.500000 0.375000 9 0.625000 0.375000 10 0.000000 0.500000 11 0.250000 0.500000 12 0.375000 0.500000 13 0.500000 0.500000 14 0.625000 0.500000 15 0.750000 0.500000 16 1.000000 0.500000 17 0.375000 0.625000 18 0.500000 0.625000 19 0.250000 0.750000 20 0.500000 0.750000 21 0.000000 1.000000 22 0.500000 1.000000 Number of elements = 30 Element nodes: 1 4 1 2 2 6 2 3 3 4 10 1 4 5 4 2 5 5 2 6 6 6 3 16 7 7 4 5 8 9 5 6 9 11 10 4 10 7 11 4 11 8 7 5 12 8 5 9 13 9 6 15 14 15 6 16 15 7 8 12 16 9 14 8 17 12 11 7 18 13 12 8 19 13 8 14 20 14 9 15 21 11 19 10 22 12 17 11 23 13 18 12 24 19 21 10 25 17 19 11 26 17 12 18 27 18 20 17 28 17 20 19 29 20 22 19 30 19 22 21 Mesh name: The Plus Shaped Domain Number of nodes = 28 Node coordinates: 1 0.428571 0.000000 2 0.571429 0.000000 3 0.428571 0.142857 4 0.571429 0.142857 5 0.428571 0.285714 6 0.571429 0.285714 7 0.000000 0.428571 8 0.142857 0.428571 9 0.285714 0.428571 10 0.428571 0.428571 11 0.571429 0.428571 12 0.714286 0.428571 13 0.857143 0.428571 14 1.000000 0.428571 15 0.000000 0.571429 16 0.142857 0.571429 17 0.285714 0.571429 18 0.428571 0.571429 19 0.571429 0.571429 20 0.714286 0.571429 21 0.857143 0.571429 22 1.000000 0.571429 23 0.428571 0.714286 24 0.571429 0.714286 25 0.428571 0.857143 26 0.571429 0.857143 27 0.428571 1.000000 28 0.571429 1.000000 Number of elements = 26 Element nodes: 1 3 1 4 2 2 4 1 3 5 3 6 4 4 6 3 5 10 5 11 6 6 11 5 7 15 7 16 8 8 16 7 9 16 8 17 10 9 17 8 11 17 9 18 12 10 18 9 13 18 10 19 14 11 19 10 15 19 11 20 16 12 20 11 17 20 12 21 18 13 21 12 19 21 13 22 20 14 22 13 21 23 18 24 22 19 24 18 23 25 23 26 24 24 26 23 25 27 25 28 26 26 28 25 Mesh name: The H Shaped Domain Number of nodes = 40 Node coordinates: 1 0.000000 0.000000 2 0.142857 0.000000 3 0.857143 0.000000 4 1.000000 0.000000 5 0.000000 0.142857 6 0.142857 0.142857 7 0.857143 0.142857 8 1.000000 0.142857 9 0.000000 0.285714 10 0.142857 0.285714 11 0.857143 0.285714 12 1.000000 0.285714 13 0.000000 0.428571 14 0.142857 0.428571 15 0.285714 0.428571 16 0.428571 0.428571 17 0.571429 0.428571 18 0.714286 0.428571 19 0.857143 0.428571 20 1.000000 0.428571 21 0.000000 0.571429 22 0.142857 0.571429 23 0.285714 0.571429 24 0.428571 0.571429 25 0.571429 0.571429 26 0.714286 0.571429 27 0.857143 0.571429 28 1.000000 0.571429 29 0.000000 0.714286 30 0.142857 0.714286 31 0.857143 0.714286 32 1.000000 0.714286 33 0.000000 0.857143 34 0.142857 0.857143 35 0.857143 0.857143 36 1.000000 0.857143 37 0.000000 1.000000 38 0.142857 1.000000 39 0.857143 1.000000 40 1.000000 1.000000 Number of elements = 38 Element nodes: 1 1 2 5 2 6 5 2 3 3 4 7 4 8 7 4 5 5 6 9 6 10 9 6 7 7 8 11 8 12 11 8 9 9 10 13 10 14 13 10 11 11 12 19 12 20 19 12 13 13 14 21 14 22 21 14 15 14 15 22 16 23 22 15 17 15 16 23 18 24 23 16 19 16 17 24 20 25 24 17 21 17 18 25 22 26 25 18 23 18 19 26 24 27 26 19 25 19 20 27 26 28 27 20 27 21 22 29 28 30 29 22 29 27 28 31 30 32 31 28 31 29 30 33 32 34 33 30 33 31 32 35 34 36 35 32 35 33 34 37 36 38 37 34 37 35 36 39 38 40 39 36 Mesh name: The Hollow Square (Small Hole) Number of nodes = 12 Node coordinates: 1 0.000000 0.000000 2 0.500000 0.000000 3 1.000000 0.000000 4 0.250000 0.250000 5 0.750000 0.250000 6 0.000000 0.500000 7 1.000000 0.500000 8 0.250000 0.750000 9 0.750000 0.750000 10 0.000000 1.000000 11 0.500000 1.000000 12 1.000000 1.000000 Number of elements = 12 Element nodes: 1 4 1 2 2 2 5 4 3 5 2 3 4 5 3 7 5 7 9 5 6 9 7 12 7 9 12 11 8 11 8 9 9 8 11 10 10 8 10 6 11 6 4 8 12 4 6 1 Mesh name: The Hollow Square (Large Hole) Number of nodes = 32 Node coordinates: 1 0.000000 0.000000 2 0.200000 0.000000 3 0.400000 0.000000 4 0.600000 0.000000 5 0.800000 0.000000 6 1.000000 0.000000 7 0.000000 0.200000 8 0.200000 0.200000 9 0.400000 0.200000 10 0.600000 0.200000 11 0.800000 0.200000 12 1.000000 0.200000 13 0.000000 0.400000 14 0.200000 0.400000 15 0.800000 0.400000 16 1.000000 0.400000 17 0.000000 0.600000 18 0.200000 0.600000 19 0.800000 0.600000 20 1.000000 0.600000 21 0.000000 0.800000 22 0.200000 0.800000 23 0.400000 0.800000 24 0.600000 0.800000 25 0.800000 0.800000 26 1.000000 0.800000 27 0.000000 1.000000 28 0.200000 1.000000 29 0.400000 1.000000 30 0.600000 1.000000 31 0.800000 1.000000 32 1.000000 1.000000 Number of elements = 32 Element nodes: 1 1 2 7 2 8 7 2 3 2 3 8 4 9 8 3 5 3 4 9 6 10 9 4 7 4 5 10 8 11 10 5 9 5 6 11 10 12 11 6 11 11 12 15 12 16 15 12 13 15 16 19 14 20 19 16 15 19 20 25 16 26 25 20 17 25 26 31 18 32 31 26 19 31 30 25 20 24 25 30 21 30 29 24 22 23 24 29 23 29 28 23 24 22 23 28 25 28 27 22 26 21 22 27 27 22 21 18 28 17 18 21 29 18 17 14 30 13 14 17 31 14 13 8 32 7 8 13 Mesh name: The 3-Hole Problem Number of nodes = 48 Node coordinates: 1 0.272727 0.000000 2 0.363636 0.000000 3 0.545455 0.000000 4 0.727273 0.000000 5 0.909091 0.000000 6 0.090909 0.166667 7 0.181818 0.166667 8 0.272727 0.166667 9 0.454545 0.166667 10 0.545455 0.166667 11 0.636364 0.166667 12 0.727273 0.166667 13 0.818182 0.166667 14 1.000000 0.166667 15 0.000000 0.333333 16 0.090909 0.333333 17 0.181818 0.333333 18 0.272727 0.333333 19 0.545455 0.333333 20 0.636364 0.333333 21 0.909091 0.333333 22 0.090909 0.500000 23 0.181818 0.500000 24 0.363636 0.500000 25 0.545455 0.500000 26 0.818182 0.500000 27 1.000000 0.500000 28 0.000000 0.666667 29 0.090909 0.666667 30 0.272727 0.666667 31 0.636364 0.666667 32 0.818182 0.666667 33 0.909091 0.666667 34 0.090909 0.833333 35 0.181818 0.833333 36 0.363636 0.833333 37 0.545455 0.833333 38 0.727273 0.833333 39 0.818182 0.833333 40 0.909091 0.833333 41 1.000000 0.833333 42 0.181818 1.000000 43 0.272727 1.000000 44 0.363636 1.000000 45 0.454545 1.000000 46 0.636364 1.000000 47 0.818182 1.000000 48 0.909091 1.000000 Number of elements = 56 Element nodes: 1 8 7 1 2 1 2 8 3 2 9 8 4 9 2 3 5 10 9 3 6 10 3 11 7 11 3 4 8 12 11 4 9 12 4 13 10 13 4 5 11 13 5 21 12 14 21 5 13 16 15 6 14 6 7 16 15 17 16 7 16 17 7 18 17 8 18 7 18 10 11 19 19 20 19 11 20 11 12 20 21 21 26 13 22 21 14 27 23 22 28 15 24 16 22 15 25 17 18 23 26 23 18 30 27 24 30 18 28 19 20 25 29 25 20 31 30 26 21 33 31 27 33 21 32 29 28 22 33 30 35 23 34 30 24 36 35 31 37 25 36 33 27 41 37 29 34 28 38 34 29 35 39 35 30 43 40 36 43 30 41 37 31 46 42 38 46 31 43 38 31 32 44 39 38 32 45 40 33 41 46 35 42 34 47 42 35 43 48 44 43 36 49 44 36 45 50 45 36 37 51 37 46 45 52 38 47 46 53 39 47 38 54 47 39 48 55 40 48 39 56 40 41 48 Mesh name: The 6-Hole Problem Number of nodes = 46 Node coordinates: 1 0.090909 0.000000 2 0.272727 0.000000 3 0.454545 0.000000 4 0.636364 0.000000 5 0.818182 0.000000 6 0.000000 0.100000 7 0.181818 0.100000 8 0.363636 0.100000 9 0.545455 0.100000 10 0.727273 0.100000 11 0.909091 0.100000 12 0.000000 0.300000 13 0.181818 0.300000 14 0.363636 0.300000 15 0.545455 0.300000 16 0.727273 0.300000 17 0.909091 0.300000 18 0.090909 0.400000 19 0.272727 0.400000 20 0.454545 0.400000 21 0.636364 0.400000 22 0.818182 0.400000 23 1.000000 0.400000 24 0.090909 0.600000 25 0.272727 0.600000 26 0.454545 0.600000 27 0.636364 0.600000 28 0.818182 0.600000 29 1.000000 0.600000 30 0.000000 0.700000 31 0.181818 0.700000 32 0.363636 0.700000 33 0.545455 0.700000 34 0.727273 0.700000 35 0.909091 0.700000 36 0.000000 0.900000 37 0.181818 0.900000 38 0.363636 0.900000 39 0.545455 0.900000 40 0.727273 0.900000 41 0.909091 0.900000 42 0.090909 1.000000 43 0.272727 1.000000 44 0.454545 1.000000 45 0.636364 1.000000 46 0.818182 1.000000 Number of elements = 56 Element nodes: 1 1 7 6 2 7 1 2 3 2 8 7 4 8 2 3 5 3 9 8 6 9 3 4 7 4 10 9 8 10 4 5 9 5 11 10 10 12 6 13 11 7 13 6 12 8 9 14 13 15 14 9 14 16 10 17 15 11 17 10 16 18 12 13 17 13 19 18 18 19 13 14 19 14 20 19 20 20 14 15 21 15 21 20 22 21 15 16 23 16 22 21 24 22 16 17 25 17 23 22 26 24 18 25 27 19 25 18 28 26 20 27 29 21 27 20 30 22 23 28 31 29 28 23 32 24 31 30 33 31 24 25 34 25 32 31 35 32 25 26 36 26 33 32 37 33 26 27 38 27 34 33 39 34 27 28 40 28 35 34 41 35 28 29 42 36 30 37 43 31 37 30 44 32 33 38 45 39 38 33 46 40 34 41 47 35 41 34 48 42 36 37 49 37 43 42 50 43 37 38 51 38 44 43 52 44 38 39 53 39 45 44 54 45 39 40 55 40 46 45 56 46 40 41 Mesh name: The Pinched Hole Problem Number of nodes = 8 Node coordinates: 1 0.500000 0.000000 2 0.000000 0.333333 3 1.000000 0.333333 4 0.250000 0.666667 5 0.750000 0.666667 6 0.000000 1.000000 7 0.500000 1.000000 8 1.000000 1.000000 Number of elements = 7 Element nodes: 1 4 2 1 2 5 1 3 3 4 6 2 4 5 3 8 5 4 7 6 6 7 4 5 7 5 8 7 TEST03 MESH00_NODE_EPS makes an EPS file containing an image of the nodes of a mesh. NODE_EPS: An encapsulated PostScript file was created containing an image of the nodes. The file is named "mesh01_nodes.eps". Created file mesh01_nodes.eps NODE_EPS: An encapsulated PostScript file was created containing an image of the nodes. The file is named "mesh02_nodes.eps". Created file mesh02_nodes.eps NODE_EPS: An encapsulated PostScript file was created containing an image of the nodes. The file is named "mesh03_nodes.eps". Created file mesh03_nodes.eps NODE_EPS: An encapsulated PostScript file was created containing an image of the nodes. The file is named "mesh04_nodes.eps". Created file mesh04_nodes.eps NODE_EPS: An encapsulated PostScript file was created containing an image of the nodes. The file is named "mesh05_nodes.eps". Created file mesh05_nodes.eps NODE_EPS: An encapsulated PostScript file was created containing an image of the nodes. The file is named "mesh06_nodes.eps". Created file mesh06_nodes.eps NODE_EPS: An encapsulated PostScript file was created containing an image of the nodes. The file is named "mesh07_nodes.eps". Created file mesh07_nodes.eps NODE_EPS: An encapsulated PostScript file was created containing an image of the nodes. The file is named "mesh08_nodes.eps". Created file mesh08_nodes.eps NODE_EPS: An encapsulated PostScript file was created containing an image of the nodes. The file is named "mesh09_nodes.eps". Created file mesh09_nodes.eps TEST04 MESH00_ELEMENT3_EPS makes an EPS file containing an image of the elements of a mesh. ELEMENT3_EPS: An encapsulated PostScript file was created containing an image of the nodes and elements. The file is named "mesh01_elements.eps". Created file mesh01_elements.eps ELEMENT3_EPS: An encapsulated PostScript file was created containing an image of the nodes and elements. The file is named "mesh02_elements.eps". Created file mesh02_elements.eps ELEMENT3_EPS: An encapsulated PostScript file was created containing an image of the nodes and elements. The file is named "mesh03_elements.eps". Created file mesh03_elements.eps ELEMENT3_EPS: An encapsulated PostScript file was created containing an image of the nodes and elements. The file is named "mesh04_elements.eps". Created file mesh04_elements.eps ELEMENT3_EPS: An encapsulated PostScript file was created containing an image of the nodes and elements. The file is named "mesh05_elements.eps". Created file mesh05_elements.eps ELEMENT3_EPS: An encapsulated PostScript file was created containing an image of the nodes and elements. The file is named "mesh06_elements.eps". Created file mesh06_elements.eps ELEMENT3_EPS: An encapsulated PostScript file was created containing an image of the nodes and elements. The file is named "mesh07_elements.eps". Created file mesh07_elements.eps ELEMENT3_EPS: An encapsulated PostScript file was created containing an image of the nodes and elements. The file is named "mesh08_elements.eps". Created file mesh08_elements.eps ELEMENT3_EPS: An encapsulated PostScript file was created containing an image of the nodes and elements. The file is named "mesh09_elements.eps". Created file mesh09_elements.eps TEST05 MESH00_POLY makes a POLY file containing the mesh data, for input to TRIANGLE. Created file mesh01.poly Created file mesh02.poly Created file mesh03.poly Created file mesh04.poly Created file mesh05.poly Created file mesh06.poly Created file mesh07.poly Created file mesh08.poly Created file mesh09.poly TEST_MESH_TEST Normal end of execution. 17 September 2021 11:53:57.359 PM