21 March 2018 9:46:51.085 AM TRI_SURFACE_IO_TEST: FORTRAN90 version Test the TRI_SURFACE_IO library. TEST01 TRI_SURFACE_SIZE determines the size of various objects in a TRI_SURFACE file. TRI_SURFACE_SIZE_PRINT: Node file "sphere_nodes.txt". Triangle file "sphere_elements.txt". Spatial dimension = 3 Nodes = 58 Triangle order = 3 Triangles = 112 TEST02 TRI_SURFACE_READ reads data from a TRI_SURFACE file. TRI_SURFACE_SIZE_PRINT: Node file "sphere_nodes.txt". Triangle file "sphere_elements.txt". Spatial dimension = 3 Nodes = 58 Triangle order = 3 Triangles = 112 Node coordinates Row 1 2 3 Col 1 0.00000 0.00000 -1.00000 2 0.382683 0.00000 -0.923880 3 0.270598 0.270598 -0.923880 4 0.234326E-16 0.382683 -0.923880 5 -0.270598 0.270598 -0.923880 6 -0.382683 0.468652E-16 -0.923880 7 -0.270598 -0.270598 -0.923880 8 -0.702978E-16 -0.382683 -0.923880 9 0.270598 -0.270598 -0.923880 10 0.707107 0.00000 -0.707107 11 0.500000 0.500000 -0.707107 12 0.432978E-16 0.707107 -0.707107 13 -0.500000 0.500000 -0.707107 14 -0.707107 0.865956E-16 -0.707107 15 -0.500000 -0.500000 -0.707107 16 -0.129893E-15 -0.707107 -0.707107 17 0.500000 -0.500000 -0.707107 18 0.923880 0.00000 -0.382683 19 0.653281 0.653281 -0.382683 20 0.565713E-16 0.923880 -0.382683 21 -0.653281 0.653281 -0.382683 22 -0.923880 0.113143E-15 -0.382683 23 -0.653281 -0.653281 -0.382683 24 -0.169714E-15 -0.923880 -0.382683 25 0.653281 -0.653281 -0.382683 26 1.00000 0.00000 0.612323E-16 27 0.707107 0.707107 0.612323E-16 28 0.612323E-16 1.00000 0.612323E-16 29 -0.707107 0.707107 0.612323E-16 30 -1.00000 0.122465E-15 0.612323E-16 31 -0.707107 -0.707107 0.612323E-16 32 -0.183697E-15 -1.00000 0.612323E-16 33 0.707107 -0.707107 0.612323E-16 34 0.923880 0.00000 0.382683 35 0.653281 0.653281 0.382683 36 0.565713E-16 0.923880 0.382683 37 -0.653281 0.653281 0.382683 38 -0.923880 0.113143E-15 0.382683 39 -0.653281 -0.653281 0.382683 40 -0.169714E-15 -0.923880 0.382683 41 0.653281 -0.653281 0.382683 42 0.707107 0.00000 0.707107 43 0.500000 0.500000 0.707107 44 0.432978E-16 0.707107 0.707107 45 -0.500000 0.500000 0.707107 46 -0.707107 0.865956E-16 0.707107 47 -0.500000 -0.500000 0.707107 48 -0.129893E-15 -0.707107 0.707107 49 0.500000 -0.500000 0.707107 50 0.382683 0.00000 0.923880 51 0.270598 0.270598 0.923880 52 0.234326E-16 0.382683 0.923880 53 -0.270598 0.270598 0.923880 54 -0.382683 0.468652E-16 0.923880 55 -0.270598 -0.270598 0.923880 56 -0.702978E-16 -0.382683 0.923880 57 0.270598 -0.270598 0.923880 58 0.00000 0.00000 1.00000 Triangle nodes Row 1 2 3 Col 1 3 2 1 2 4 3 1 3 5 4 1 4 6 5 1 5 7 6 1 6 8 7 1 7 9 8 1 8 2 9 1 9 2 3 10 10 11 10 3 11 3 4 11 12 12 11 4 13 4 5 12 14 13 12 5 15 5 6 13 16 14 13 6 17 6 7 14 18 15 14 7 19 7 8 15 20 16 15 8 21 8 9 16 22 17 16 9 23 9 2 17 24 10 17 2 25 10 11 18 26 19 18 11 27 11 12 19 28 20 19 12 29 12 13 20 30 21 20 13 31 13 14 21 32 22 21 14 33 14 15 22 34 23 22 15 35 15 16 23 36 24 23 16 37 16 17 24 38 25 24 17 39 17 10 25 40 18 25 10 41 18 19 26 42 27 26 19 43 19 20 27 44 28 27 20 45 20 21 28 46 29 28 21 47 21 22 29 48 30 29 22 49 22 23 30 50 31 30 23 51 23 24 31 52 32 31 24 53 24 25 32 54 33 32 25 55 25 18 33 56 26 33 18 57 26 27 34 58 35 34 27 59 27 28 35 60 36 35 28 61 28 29 36 62 37 36 29 63 29 30 37 64 38 37 30 65 30 31 38 66 39 38 31 67 31 32 39 68 40 39 32 69 32 33 40 70 41 40 33 71 33 26 41 72 34 41 26 73 34 35 42 74 43 42 35 75 35 36 43 76 44 43 36 77 36 37 44 78 45 44 37 79 37 38 45 80 46 45 38 81 38 39 46 82 47 46 39 83 39 40 47 84 48 47 40 85 40 41 48 86 49 48 41 87 41 34 49 88 42 49 34 89 42 43 50 90 51 50 43 91 43 44 51 92 52 51 44 93 44 45 52 94 53 52 45 95 45 46 53 96 54 53 46 97 46 47 54 98 55 54 47 99 47 48 55 100 56 55 48 101 48 49 56 102 57 56 49 103 49 42 57 104 50 57 42 105 50 51 58 106 51 52 58 107 52 53 58 108 53 54 58 109 54 55 58 110 55 56 58 111 56 57 58 112 57 50 58 TEST03 TRI_SURFACE_WRITE writes TRI_SURFACE data to two files. Graphics data was written to: Node file: "cube_nodes.txt". Triangle file: "cube_elements.txt". TRI_SURFACE_IO_TEST: Normal end of execution. 21 March 2018 9:46:51.086 AM