06 October 2025 6:50:50.559 PM stripack_test(): Fortran90 version Test stripack(). TEST01 TRANS converts Cartesian to spherical coordinates. TRMESH creates a triangulation. TRPRNT prints out a triangulation. TRLIST creates a triangle list. TRLPRT prints a triangle list. TRPLOT plots a triangulation. AREAS computes areas. BNODES computes boundary nodes. GETNP gets the next nearest node to a given node. NEARND returns the nearest node to a given point. DELARC removes a boundary arc if possible. CRLIST constructs the Voronoi diagram. VRPLOT plots the Voronoi diagram. SCOORD prints the Voronoi region boundary associated with a point. INSIDE determines if a point is inside a Voronoi region. I RLON RLAT 1 ********** -11.252219 2 72.781950 43.476670 3 77.524589 -73.390254 4 110.739683 -12.382656 5 -44.484989 -83.832286 I X Y 1 -1.888596 -0.196388 2 1.270285 0.758811 3 1.353059 -1.280902 4 1.932772 -0.216118 5 -0.776410 -1.463149 I X Y Z 1 -0.306471 -0.931666 -0.195128 2 0.214800 0.693135 0.688059 3 0.061750 0.279102 -0.958274 4 -0.345885 0.913444 -0.214440 5 0.076651 -0.075285 -0.994212 STRIPACK triangulation data structure, n = 100 Node Longitude Latitude neighbors of node 1 -0.108209E+03 -0.112522E+02 83 59 13 94 47 2 0.727820E+02 0.434767E+02 87 41 86 27 15 3 0.775246E+02 -0.733903E+02 95 92 69 43 4 0.110740E+03 -0.123827E+02 58 81 22 96 60 5 -0.444850E+02 -0.838323E+02 50 42 53 73 93 43 69 20 6 0.133094E+03 0.676968E+02 99 37 98 65 48 24 7 0.122037E+03 0.289357E+02 33 22 81 100 8 -0.775278E+02 0.595628E+02 10 21 61 84 52 9 0.168832E+02 0.283372E+02 86 18 54 70 12 10 -0.562064E+02 0.517217E+02 52 23 79 54 18 21 8 11 0.179275E+03 0.246700E+02 100 81 46 34 72 66 65 35 12 0.344325E+02 0.144445E+02 70 57 88 39 27 86 9 13 -0.104475E+03 -0.168831E+02 59 31 56 94 1 14 0.144044E+03 -0.606262E+02 95 93 76 75 29 78 15 0.106253E+03 0.493411E+02 37 87 2 27 33 100 16 -0.126720E+03 -0.230736E+02 83 34 55 76 28 59 17 0.141285E+02 0.623653E+02 86 41 49 32 18 18 -0.331282E+01 0.536453E+02 32 21 10 54 9 86 17 19 -0.964194E+01 0.839892E+02 49 99 64 61 21 32 20 -0.910205E+01 -0.733523E+02 69 26 68 50 5 21 -0.364857E+02 0.795916E+02 61 8 10 18 32 19 22 0.114010E+03 0.218329E+02 33 39 96 4 81 7 23 -0.564674E+02 0.289059E+02 52 51 90 79 10 24 0.129235E+03 0.757038E+02 48 64 99 6 25 -0.116191E+03 0.298507E+02 52 72 34 83 47 51 26 0.141443E+02 -0.697736E+02 69 45 57 68 20 27 0.722030E+02 0.399838E+02 86 12 39 33 15 2 28 -0.121959E+03 -0.512877E+02 76 44 73 38 31 59 16 29 0.134147E+03 -0.256878E+02 80 78 14 75 89 46 81 58 30 0.779170E+02 -0.377225E+01 96 82 88 63 62 60 31 -0.759398E+02 -0.369816E+02 59 28 38 68 67 56 13 32 0.285290E+01 0.763961E+02 21 18 17 49 19 33 0.111634E+03 0.316679E+02 27 39 22 7 100 15 34 -0.148875E+03 -0.563902E+01 83 25 72 11 46 55 16 35 0.145487E+03 0.440450E+02 100 11 65 98 37 36 0.695854E+02 -0.280741E+02 97 40 45 80 62 37 0.107669E+03 0.550573E+02 100 35 98 6 99 87 15 38 -0.839457E+02 -0.683508E+02 53 68 31 28 73 39 0.808806E+02 0.175155E+02 88 82 96 22 33 27 12 40 0.540994E+02 -0.231973E+02 97 63 88 57 45 36 41 0.660199E+02 0.601398E+02 87 99 49 17 86 2 42 -0.470716E+02 -0.753963E+02 50 68 53 5 43 0.943847E+02 -0.867147E+02 93 95 3 69 5 44 -0.134152E+03 -0.586556E+02 76 93 73 28 45 0.519811E+02 -0.435482E+02 57 26 69 92 80 36 40 46 0.175822E+03 -0.172895E+02 11 81 29 89 55 34 47 -0.107314E+03 0.123616E+02 83 1 94 51 25 48 0.154242E+03 0.760953E+02 6 65 91 74 64 24 49 0.248204E+02 0.733856E+02 17 41 99 19 32 50 -0.276121E+02 -0.744708E+02 5 20 68 42 51 -0.645300E+02 0.179747E+02 52 25 47 94 56 77 90 23 52 -0.101735E+03 0.516078E+02 84 72 25 51 23 10 8 53 -0.612106E+02 -0.721165E+02 68 38 73 5 42 54 -0.204779E+02 0.434598E+02 10 79 90 70 9 18 55 -0.176836E+03 -0.262565E+02 89 76 16 34 46 56 -0.774819E+02 -0.206025E+02 67 77 51 94 13 31 57 0.388141E+02 -0.156324E+02 40 88 12 70 68 26 45 58 0.122607E+03 -0.189942E+02 81 4 60 80 29 59 -0.111936E+03 -0.219030E+02 1 83 16 28 31 13 60 0.106712E+03 -0.139836E+02 96 30 62 80 58 4 61 -0.104405E+03 0.801319E+02 19 64 74 85 84 8 21 62 0.949024E+02 -0.293945E+02 30 63 97 36 80 60 63 0.733194E+02 -0.165308E+02 62 30 88 40 97 64 0.146171E+03 0.864516E+02 99 24 48 74 61 19 65 0.154699E+03 0.591257E+02 11 66 91 48 6 98 35 66 -0.158935E+03 0.596672E+02 11 72 71 91 65 67 -0.469647E+02 -0.189034E+02 56 31 68 70 77 68 -0.362536E+02 -0.586860E+02 20 26 57 70 67 31 38 53 42 50 69 0.207481E+02 -0.703001E+02 20 5 43 3 92 45 26 70 -0.248684E+02 -0.836003E+01 68 57 12 9 54 90 77 67 71 -0.153449E+03 0.612745E+02 72 84 74 91 66 72 -0.121823E+03 0.379146E+02 52 84 71 66 11 34 25 73 -0.954429E+02 -0.723177E+02 28 44 93 5 53 38 74 -0.138244E+03 0.760135E+02 64 48 91 71 84 85 61 75 0.160839E+03 -0.426051E+02 76 89 29 14 76 -0.171820E+03 -0.521766E+02 14 93 44 28 16 55 89 75 77 -0.426330E+02 -0.431212E+01 70 90 51 56 67 78 0.130157E+03 -0.630012E+02 29 80 95 14 79 -0.512593E+02 0.427483E+02 23 90 54 10 80 0.100372E+03 -0.378139E+02 36 45 92 95 78 29 58 60 62 81 0.128042E+03 0.210629E+02 22 4 58 29 46 11 100 7 82 0.808158E+02 0.637277E+01 96 39 88 30 83 -0.125793E+03 -0.100131E+02 59 1 47 25 34 16 84 -0.129070E+03 0.689826E+02 71 72 52 8 61 85 74 85 -0.133367E+03 0.755483E+02 84 61 74 86 0.215304E+02 0.530136E+02 18 9 12 27 2 41 17 87 0.739324E+02 0.623152E+02 2 15 37 99 41 88 0.522479E+02 -0.109937E+02 40 63 30 82 39 12 57 89 0.166472E+03 -0.373347E+02 76 55 46 29 75 90 -0.391868E+02 0.276588E+02 51 77 70 54 79 23 91 -0.176449E+03 0.676958E+02 71 74 48 65 66 92 0.576771E+02 -0.624144E+02 95 80 45 69 3 93 0.148397E+03 -0.836795E+02 5 73 44 76 14 95 43 94 -0.100002E+03 -0.617240E+01 13 56 51 47 1 95 0.113146E+03 -0.716859E+02 43 93 14 78 80 92 3 96 0.100093E+03 0.136396E+01 22 39 82 30 60 4 97 0.693427E+02 -0.244278E+02 62 63 40 36 98 0.135278E+03 0.638239E+02 37 35 65 6 99 0.843343E+02 0.724131E+02 37 6 24 64 19 49 41 87 100 0.135750E+03 0.385044E+02 37 15 33 7 81 11 35 NB = 0 boundary arcs. NA = 294 arcs. NT = 196 triangles. STRIPACK (TRLIST) output, n = 100 Node Longitude Latitude 1 -0.108209E+03 -0.112522E+02 2 0.727820E+02 0.434767E+02 3 0.775246E+02 -0.733903E+02 4 0.110740E+03 -0.123827E+02 5 -0.444850E+02 -0.838323E+02 6 0.133094E+03 0.676968E+02 7 0.122037E+03 0.289357E+02 8 -0.775278E+02 0.595628E+02 9 0.168832E+02 0.283372E+02 10 -0.562064E+02 0.517217E+02 11 0.179275E+03 0.246700E+02 12 0.344325E+02 0.144445E+02 13 -0.104475E+03 -0.168831E+02 14 0.144044E+03 -0.606262E+02 15 0.106253E+03 0.493411E+02 16 -0.126720E+03 -0.230736E+02 17 0.141285E+02 0.623653E+02 18 -0.331282E+01 0.536453E+02 19 -0.964194E+01 0.839892E+02 20 -0.910205E+01 -0.733523E+02 21 -0.364857E+02 0.795916E+02 22 0.114010E+03 0.218329E+02 23 -0.564674E+02 0.289059E+02 24 0.129235E+03 0.757038E+02 25 -0.116191E+03 0.298507E+02 26 0.141443E+02 -0.697736E+02 27 0.722030E+02 0.399838E+02 28 -0.121959E+03 -0.512877E+02 29 0.134147E+03 -0.256878E+02 30 0.779170E+02 -0.377225E+01 31 -0.759398E+02 -0.369816E+02 32 0.285290E+01 0.763961E+02 33 0.111634E+03 0.316679E+02 34 -0.148875E+03 -0.563902E+01 35 0.145487E+03 0.440450E+02 36 0.695854E+02 -0.280741E+02 37 0.107669E+03 0.550573E+02 38 -0.839457E+02 -0.683508E+02 39 0.808806E+02 0.175155E+02 40 0.540994E+02 -0.231973E+02 41 0.660199E+02 0.601398E+02 42 -0.470716E+02 -0.753963E+02 43 0.943847E+02 -0.867147E+02 44 -0.134152E+03 -0.586556E+02 45 0.519811E+02 -0.435482E+02 46 0.175822E+03 -0.172895E+02 47 -0.107314E+03 0.123616E+02 48 0.154242E+03 0.760953E+02 49 0.248204E+02 0.733856E+02 50 -0.276121E+02 -0.744708E+02 51 -0.645300E+02 0.179747E+02 52 -0.101735E+03 0.516078E+02 53 -0.612106E+02 -0.721165E+02 54 -0.204779E+02 0.434598E+02 55 -0.176836E+03 -0.262565E+02 56 -0.774819E+02 -0.206025E+02 57 0.388141E+02 -0.156324E+02 58 0.122607E+03 -0.189942E+02 59 -0.111936E+03 -0.219030E+02 60 0.106712E+03 -0.139836E+02 61 -0.104405E+03 0.801319E+02 62 0.949024E+02 -0.293945E+02 63 0.733194E+02 -0.165308E+02 64 0.146171E+03 0.864516E+02 65 0.154699E+03 0.591257E+02 66 -0.158935E+03 0.596672E+02 67 -0.469647E+02 -0.189034E+02 68 -0.362536E+02 -0.586860E+02 69 0.207481E+02 -0.703001E+02 70 -0.248684E+02 -0.836003E+01 71 -0.153449E+03 0.612745E+02 72 -0.121823E+03 0.379146E+02 73 -0.954429E+02 -0.723177E+02 74 -0.138244E+03 0.760135E+02 75 0.160839E+03 -0.426051E+02 76 -0.171820E+03 -0.521766E+02 77 -0.426330E+02 -0.431212E+01 78 0.130157E+03 -0.630012E+02 79 -0.512593E+02 0.427483E+02 80 0.100372E+03 -0.378139E+02 81 0.128042E+03 0.210629E+02 82 0.808158E+02 0.637277E+01 83 -0.125793E+03 -0.100131E+02 84 -0.129070E+03 0.689826E+02 85 -0.133367E+03 0.755483E+02 86 0.215304E+02 0.530136E+02 87 0.739324E+02 0.623152E+02 88 0.522479E+02 -0.109937E+02 89 0.166472E+03 -0.373347E+02 90 -0.391868E+02 0.276588E+02 91 -0.176449E+03 0.676958E+02 92 0.576771E+02 -0.624144E+02 93 0.148397E+03 -0.836795E+02 94 -0.100002E+03 -0.617240E+01 95 0.113146E+03 -0.716859E+02 96 0.100093E+03 0.136396E+01 97 0.693427E+02 -0.244278E+02 98 0.135278E+03 0.638239E+02 99 0.843343E+02 0.724131E+02 100 0.135750E+03 0.385044E+02 triangle vertices neighbors arcs kt n1 n2 n3 kt1 kt2 kt3 ka1 ka2 ka3 1 1 83 59 84 2 5 93 1 4 2 1 59 13 66 3 1 73 2 1 3 1 13 94 68 4 2 75 3 2 4 1 94 47 165 5 3 231 5 3 5 1 47 83 110 1 4 133 4 5 6 2 87 41 155 7 10 207 6 9 7 2 41 86 85 8 6 96 7 6 8 2 86 27 65 9 7 70 8 7 9 2 27 15 76 10 8 84 10 8 10 2 15 87 75 6 9 83 9 10 11 3 95 92 196 12 14 292 11 13 12 3 92 69 162 13 11 224 12 11 13 3 69 43 25 14 12 24 14 12 14 3 43 95 159 11 13 217 13 14 15 4 58 81 126 16 19 158 15 18 16 4 81 22 35 17 15 35 16 15 17 4 22 96 101 18 16 119 17 16 18 4 96 60 133 19 17 166 19 17 19 4 60 58 178 15 18 254 18 19 20 5 50 42 157 21 27 212 20 27 21 5 42 53 158 22 20 214 21 20 22 5 53 73 148 23 21 190 22 21 23 5 73 93 161 24 22 221 23 22 24 5 93 43 159 25 23 218 25 23 25 5 43 69 13 26 24 24 26 25 26 5 69 20 97 27 25 114 28 26 27 5 20 50 99 20 26 116 27 28 28 6 99 37 146 29 33 188 29 33 29 6 37 98 139 30 28 177 30 29 30 6 98 65 138 31 29 175 31 30 31 6 65 48 166 32 30 232 32 31 32 6 48 24 105 33 31 125 34 32 33 6 24 99 106 28 32 127 33 34 34 7 33 22 100 35 37 118 36 38 35 7 22 81 16 36 34 35 37 36 36 7 81 100 53 37 35 57 39 37 37 7 100 33 77 34 36 85 38 39 38 8 10 21 52 39 42 55 40 43 39 8 21 61 94 40 38 107 41 40 40 8 61 84 182 41 39 261 42 41 41 8 84 52 172 42 40 242 44 42 42 8 52 10 48 38 41 50 43 44 43 9 86 18 89 44 47 100 45 48 44 9 18 54 51 45 43 53 46 45 45 9 54 70 174 46 44 245 47 46 46 9 70 12 61 47 45 66 49 47 47 9 12 86 65 43 46 71 48 49 48 10 52 23 102 49 42 121 51 50 49 10 23 79 104 50 48 123 52 51 50 10 79 54 173 51 49 244 54 52 51 10 54 18 44 52 50 53 56 54 52 10 18 21 90 38 51 103 55 56 53 11 100 81 36 54 60 57 58 64 54 11 81 46 125 55 53 156 59 58 55 11 46 34 137 56 54 174 60 59 56 11 34 72 108 57 55 129 61 60 57 11 72 66 185 58 56 268 62 61 58 11 66 65 184 59 57 267 63 62 59 11 65 35 138 60 58 176 65 63 60 11 35 100 140 53 59 180 64 65 61 12 70 57 177 62 46 252 67 66 62 12 57 88 153 63 61 201 68 67 63 12 88 39 149 64 62 194 69 68 64 12 39 27 116 65 63 145 72 69 65 12 27 86 8 47 64 70 71 72 66 13 59 31 121 67 2 150 74 73 67 13 31 56 136 68 66 171 76 74 68 13 56 94 169 3 67 236 75 76 69 14 95 93 159 70 74 216 77 81 70 14 93 76 160 71 69 219 78 77 71 14 76 75 194 72 70 289 79 78 72 14 75 29 123 73 71 154 80 79 73 14 29 78 122 74 72 153 82 80 74 14 78 95 195 69 73 290 81 82 75 15 37 87 146 10 78 187 83 87 76 15 27 33 116 77 9 144 86 84 77 15 33 100 37 78 76 85 88 86 78 15 100 37 140 75 77 179 87 88 79 16 83 34 109 80 84 131 89 94 80 16 34 55 137 81 79 173 90 89 81 16 55 76 175 82 80 247 91 90 82 16 76 28 117 83 81 146 92 91 83 16 28 59 121 84 82 151 95 92 84 16 59 83 1 79 83 93 94 95 85 17 86 41 7 86 89 96 97 101 86 17 41 49 156 87 85 209 98 97 87 17 49 32 96 88 86 111 99 98 88 17 32 18 90 89 87 104 102 99 89 17 18 86 43 85 88 100 101 102 90 18 32 21 95 52 88 109 103 104 91 19 49 99 156 92 96 208 105 112 92 19 99 64 106 93 91 126 106 105 93 19 64 61 180 94 92 259 108 106 94 19 61 21 39 95 93 107 110 108 95 19 21 32 90 96 94 109 113 110 96 19 32 49 87 91 95 111 112 113 97 20 69 26 113 98 26 139 115 114 98 20 26 68 115 99 97 141 117 115 99 20 68 50 157 27 98 211 116 117 100 22 33 39 116 101 34 143 120 118 101 22 39 96 150 17 100 196 119 120 102 23 52 51 112 103 48 136 122 121 103 23 51 90 171 104 102 239 124 122 104 23 90 79 173 49 103 243 123 124 105 24 48 64 168 106 32 234 128 125 106 24 64 99 92 33 105 126 127 128 107 25 52 72 172 108 112 241 130 137 108 25 72 34 56 109 107 129 132 130 109 25 34 83 79 110 108 131 134 132 110 25 83 47 5 111 109 133 135 134 111 25 47 51 165 112 110 230 138 135 112 25 51 52 102 107 111 136 137 138 113 26 69 45 162 114 97 225 140 139 114 26 45 57 154 115 113 203 142 140 115 26 57 68 177 98 114 251 141 142 116 27 39 33 100 76 64 143 144 145 117 28 76 44 160 118 82 220 147 146 118 28 44 73 161 119 117 222 148 147 119 28 73 38 148 120 118 192 149 148 120 28 38 31 134 121 119 169 152 149 121 28 31 59 66 83 120 150 151 152 122 29 80 78 195 73 127 291 153 160 123 29 75 89 194 124 72 288 155 154 124 29 89 46 164 125 123 229 157 155 125 29 46 81 54 126 124 156 159 157 126 29 81 58 15 127 125 158 161 159 127 29 58 80 178 122 126 253 160 161 128 30 96 82 150 129 133 195 162 167 129 30 82 88 149 130 128 193 163 162 130 30 88 63 152 131 129 199 164 163 131 30 63 62 183 132 130 265 165 164 132 30 62 60 179 133 131 257 168 165 133 30 60 96 18 128 132 166 167 168 134 31 38 68 147 135 120 189 170 169 135 31 68 67 187 136 134 272 172 170 136 31 67 56 176 67 135 250 171 172 137 34 46 55 164 80 55 228 173 174 138 35 65 98 30 139 59 175 178 176 139 35 98 37 29 140 138 177 181 178 140 35 37 100 78 60 139 179 180 181 141 36 97 40 151 142 145 198 182 185 142 36 40 45 154 143 141 204 183 182 143 36 45 80 163 144 142 226 184 183 144 36 80 62 179 145 143 255 186 184 145 36 62 97 183 141 144 264 185 186 146 37 99 87 155 75 28 206 187 188 147 38 53 68 158 134 148 213 189 191 148 38 73 53 22 147 119 190 191 192 149 39 88 82 129 150 63 193 197 194 150 39 82 96 128 101 149 195 196 197 151 40 97 63 183 152 141 263 200 198 152 40 63 88 130 153 151 199 202 200 153 40 88 57 62 154 152 201 205 202 154 40 57 45 114 142 153 203 204 205 155 41 87 99 146 156 6 206 210 207 156 41 99 49 91 86 155 208 209 210 157 42 50 68 99 158 20 211 215 212 158 42 68 53 147 21 157 213 214 215 159 43 93 95 69 14 24 216 217 218 160 44 76 93 70 161 117 219 223 220 161 44 93 73 23 118 160 221 222 223 162 45 69 92 12 163 113 224 227 225 163 45 92 80 196 143 162 294 226 227 164 46 89 55 175 137 124 248 228 229 165 47 94 51 169 111 4 237 230 231 166 48 65 91 184 167 31 266 233 232 167 48 91 74 192 168 166 281 235 233 168 48 74 64 180 105 167 258 234 235 169 51 94 56 68 170 165 236 238 237 170 51 56 77 176 171 169 249 240 238 171 51 77 90 189 103 170 275 239 240 172 52 84 72 190 107 41 278 241 242 173 54 79 90 104 174 50 243 246 244 174 54 90 70 189 45 173 277 245 246 175 55 89 76 194 81 164 287 247 248 176 56 67 77 188 170 136 273 249 250 177 57 70 68 187 115 61 271 251 252 178 58 60 80 179 127 19 256 253 254 179 60 62 80 144 178 132 255 256 257 180 61 64 74 168 181 93 258 260 259 181 61 74 85 193 182 180 285 262 260 182 61 85 84 193 40 181 284 261 262 183 62 63 97 151 145 131 263 264 265 184 65 66 91 186 166 58 269 266 267 185 66 72 71 190 186 57 279 270 268 186 66 71 91 192 184 185 282 269 270 187 67 68 70 177 188 135 271 274 272 188 67 70 77 189 176 187 276 273 274 189 70 90 77 171 188 174 275 276 277 190 71 72 84 172 191 185 278 280 279 191 71 84 74 193 192 190 286 283 280 192 71 74 91 167 186 191 281 282 283 193 74 84 85 182 181 191 284 285 286 194 75 76 89 175 123 71 287 288 289 195 78 80 95 196 74 122 293 290 291 196 80 92 95 11 195 163 292 293 294 Number of boundary nodes NB = 0 Number of arcs NA = 294 Number of triangles NT = 196 TRPLOT created the triangulation plot file: "stripack_test_del.eps". Relative area of convex hull = 1.00 Output from BNODES: Number of boundary nodes = 0 Number of arcs = 294 Number of triangles = 196 Subroutine DELARC was not tested. Nodes 99 and 100 do not form a removable boundary arc. VRPLOT created the Voronoi plot file: "stripack_test_vor.eps". Voronoi region for node 1 Triangle Latitude Longitude Circumradius 2 -14.116085 -117.268001 0.162129 3 -16.485810 -110.332345 0.098171 4 -11.490062 -102.311469 0.100987 5 0.634513 -109.910326 0.209552 1 0.862219 -116.187615 0.252718 INSIDE correctly reports that node N0 is inside its Voronoi region! TEST02 EDGE can be used to force an edge between two nodes. DEL can be used to delete a node. EDGE has forced an edge between two nodes. Call DELNOD to delete node 9 Call DELNOD to delete node 8 Call DELNOD to delete node 7 Call DELNOD to delete node 6 Call DELNOD to delete node 5 Call DELNOD to delete node 4 stripack_test(): Normal end of execution. 06 October 2025 6:50:50.561 PM