29 October 2024 8:29:44.233 PM xy_io_test(): FORTRAN90 version Test xy_io(). TEST01 XY_EXAMPLE sets up sample XY data. XY_WRITE writes an XY file. XY_EXAMPLE has created the data. XY_WRITE wrote the header and data for "xy_io_test01.xy". Number of points = 300 TEST02 XY_READ reads an XY file. XY_WRITE_TEST created some data. XY_HEADER_READ has read the header. Number of points = 100 XY_DATA_READ has read the data. Sample data: 1 0.5000 0.5000 12 0.4478 0.4810 23 0.5851 0.5714 34 0.4167 0.3557 45 0.5386 0.7188 56 0.5482 0.2264 67 0.3333 0.7887 78 0.7979 0.2500 89 0.0824 0.6520 100 1.0000 0.5000 TEST03 XYL_EXAMPLE sets up XY and XYL data. Example has: Number of points = 13 Number of lines = 3 Number of line items = 15 Wrote the XY file "house.xy", and the XYL file "house.xyl". TEST04 XY_HEADER_READ reads the header of an XY file. XY_DATA_READ reads the data of an XY file. XYL_HEADER_READ reads the header of an XYL file. XYL_DATA_READ reads the data of an XYL file. Examine XY file "house.xy". Number of points = 13 Point data: 1 0.0000 0.0000 2 6.0000 0.0000 3 6.0000 7.0000 4 3.0000 10.0000 5 0.0000 7.0000 6 4.0000 1.0000 7 5.0000 1.0000 8 5.0000 4.0000 9 4.0000 4.0000 10 5.0000 8.0000 11 5.0000 11.0000 12 4.0000 11.0000 13 4.0000 9.0000 Examine XYL file "house.xyl". Number of lines = 3 Number of line items = 15 Line pointers: 1 1 6 2 7 11 3 12 15 Line data: 1 1 2 3 4 5 1 2 6 7 8 9 6 3 10 11 12 13 TEST05 XYF_EXAMPLE sets up XY and XYF data. Example has: Number of points = 65 Number of faces = 48 Number of face items = 192 Wrote the XY file "annulus.xy", and the XYF file "annulus.xyf". TEST06 XY_HEADER_READ reads the header of an XY file. XY_DATA_READ reads the data of an XY file. XYF_HEADER_READ reads the header of an XYF file. XYF_DATA_READ reads the data of an XYF file. Examine XY file "annulus.xy". Number of points = 65 Point data: 1 -1.0000 0.0000 2 -0.9659 0.2588 3 -0.8660 0.5000 4 -0.7071 0.7071 5 -0.5000 0.8660 6 -0.2588 0.9659 7 0.0000 1.0000 8 0.2588 0.9659 9 0.5000 0.8660 10 0.7071 0.7071 11 0.8660 0.5000 12 0.9659 0.2588 13 1.0000 0.0000 14 -1.5000 0.0000 15 -1.4489 0.3882 16 -1.2990 0.7500 17 -1.0607 1.0607 18 -0.7500 1.2990 19 -0.3882 1.4489 20 0.0000 1.5000 21 0.3882 1.4489 22 0.7500 1.2990 23 1.0607 1.0607 24 1.2990 0.7500 25 1.4489 0.3882 26 1.5000 0.0000 27 -2.0000 0.0000 28 -1.9319 0.5176 29 -1.7321 1.0000 30 -1.4142 1.4142 31 -1.0000 1.7321 32 -0.5176 1.9319 33 0.0000 2.0000 34 0.5176 1.9319 35 1.0000 1.7321 36 1.4142 1.4142 37 1.7321 1.0000 38 1.9319 0.5176 39 2.0000 0.0000 40 -2.5000 0.0000 41 -2.4148 0.6470 42 -2.1651 1.2500 43 -1.7678 1.7678 44 -1.2500 2.1651 45 -0.6470 2.4148 46 0.0000 2.5000 47 0.6470 2.4148 48 1.2500 2.1651 49 1.7678 1.7678 50 2.1651 1.2500 51 2.4148 0.6470 52 2.5000 0.0000 53 -3.0000 0.0000 54 -2.8978 0.7765 55 -2.5981 1.5000 56 -2.1213 2.1213 57 -1.5000 2.5981 58 -0.7765 2.8978 59 0.0000 3.0000 60 0.7765 2.8978 61 1.5000 2.5981 62 2.1213 2.1213 63 2.5981 1.5000 64 2.8978 0.7765 65 3.0000 0.0000 Examine XYF file "annulus.xyf". Number of faces = 48 Number of face items = 192 Face pointers: 1 1 4 2 5 8 3 9 12 4 13 16 5 17 20 6 21 24 7 25 28 8 29 32 9 33 36 10 37 40 11 41 44 12 45 48 13 49 52 14 53 56 15 57 60 16 61 64 17 65 68 18 69 72 19 73 76 20 77 80 21 81 84 22 85 88 23 89 92 24 93 96 25 97 100 26 101 104 27 105 108 28 109 112 29 113 116 30 117 120 31 121 124 32 125 128 33 129 132 34 133 136 35 137 140 36 141 144 37 145 148 38 149 152 39 153 156 40 157 160 41 161 164 42 165 168 43 169 172 44 173 176 45 177 180 46 181 184 47 185 188 48 189 192 Face data: 1 1 2 15 14 2 2 3 16 15 3 3 4 17 16 4 4 5 18 17 5 5 6 19 18 6 6 7 20 19 7 7 8 21 20 8 8 9 22 21 9 9 10 23 22 10 10 11 24 23 11 11 12 25 24 12 12 13 26 25 13 14 15 28 27 14 15 16 29 28 15 16 17 30 29 16 17 18 31 30 17 18 19 32 31 18 19 20 33 32 19 20 21 34 33 20 21 22 35 34 21 22 23 36 35 22 23 24 37 36 23 24 25 38 37 24 25 26 39 38 25 27 28 41 40 26 28 29 42 41 27 29 30 43 42 28 30 31 44 43 29 31 32 45 44 30 32 33 46 45 31 33 34 47 46 32 34 35 48 47 33 35 36 49 48 34 36 37 50 49 35 37 38 51 50 36 38 39 52 51 37 40 41 54 53 38 41 42 55 54 39 42 43 56 55 40 43 44 57 56 41 44 45 58 57 42 45 46 59 58 43 46 47 60 59 44 47 48 61 60 45 48 49 62 61 46 49 50 63 62 47 50 51 64 63 48 51 52 65 64 xy_io_test(): Normal end of execution. 29 October 2024 8:29:44.235 PM