June 13 2005 12:43:48.324 PM TRIANGULATION_BOUNDARY_NODES (FORTRAN90 version) Read a node dataset of NODE_NUM points in 2 dimensions. Read an associated triangulation dataset of triangles using 3 or 6 nodes. Determine which triangle edges are boundary edges. Write the edges of each connected boundary segment to a separate file. Read the header of "lake_nodes.txt". Spatial dimension DIM_NUM = 2 Number of nodes NODE_NUM = 621 Read the data in "lake_nodes.txt". 5 by 5 portion of data read from file: Col 1 2 3 4 5 Row 1 316.430 291.049 265.165 241.468 216.551 2 404.476 400.709 409.779 402.403 396.521 Read the header of "lake_triangles.txt". Triangle order = 3 Number of triangles = 974 Read the data in "lake_triangles.txt". 5 by 5 portion of data read from file: Col 1 2 3 4 5 Row 1 619 620 125 125 143 2 618 619 126 132 135 3 39 39 7 126 150 Boundary nodes: New Old Index Index X and Y Coordinates 1 1 316.430 404.476 2 2 291.049 400.709 3 3 265.165 409.779 4 4 241.468 402.403 5 5 216.551 396.521 6 6 163.285 411.371 7 7 142.818 391.164 8 8 111.954 346.703 9 9 100.035 325.727 10 10 103.987 302.516 11 11 128.730 285.728 12 12 147.491 266.233 13 13 196.653 242.241 14 14 213.568 221.672 15 15 226.500 198.093 16 16 248.371 183.505 17 17 262.220 165.391 18 18 278.423 149.917 19 19 300.718 145.826 20 20 311.127 166.711 21 21 326.663 184.583 22 22 359.786 225.480 23 23 357.089 252.890 24 24 358.767 285.344 25 25 361.508 303.713 26 26 371.689 314.925 27 27 380.499 324.586 28 28 396.376 328.890 29 29 412.591 327.252 30 30 425.484 315.286 31 31 435.843 302.447 32 32 458.340 297.551 33 33 479.664 288.992 34 34 493.098 270.206 35 35 518.873 264.564 36 36 547.180 268.188 37 37 600.497 240.626 38 38 625.962 238.403 39 39 633.905 260.706 40 40 621.505 285.889 41 41 576.872 322.141 42 42 570.519 348.854 43 43 567.164 378.241 44 44 558.007 406.866 45 45 565.190 435.756 46 46 567.564 465.334 47 47 550.876 490.964 48 48 532.982 515.845 49 49 500.668 551.891 50 50 478.751 562.172 51 51 430.034 583.943 52 52 401.205 587.699 53 53 368.322 581.101 54 54 354.263 585.861 55 55 346.752 601.104 56 56 332.851 628.746 57 57 308.022 645.842 58 58 295.523 647.185 59 59 286.515 651.603 60 60 285.988 662.073 61 61 298.935 665.663 62 62 301.702 682.796 63 63 278.659 689.639 64 64 266.257 712.110 65 65 287.287 732.771 66 66 318.195 736.852 67 67 343.831 753.610 68 68 375.532 758.352 69 69 405.734 768.987 70 70 406.339 785.590 71 71 378.354 789.442 72 72 350.022 795.022 73 73 338.680 788.873 74 74 325.679 786.102 75 75 319.060 798.047 76 76 301.782 795.343 77 77 280.693 773.866 78 78 254.558 758.029 79 79 234.078 737.421 80 80 218.383 711.415 81 81 220.991 682.178 82 82 224.506 651.963 83 83 240.260 631.361 84 84 259.862 612.603 85 85 291.854 556.704 86 86 315.521 537.564 87 87 341.637 520.125 88 88 351.371 458.754 89 89 349.332 431.315 90 90 328.805 412.431 91 91 238.649 266.590 92 92 235.140 287.952 93 93 238.207 303.468 94 94 250.139 303.713 95 95 258.517 297.470 96 96 274.553 291.274 97 97 284.662 280.721 98 98 279.733 267.835 99 99 270.685 255.554 100 100 255.738 249.169 101 101 241.727 256.734 102 102 102.220 312.896 103 103 103.874 332.483 104 104 118.896 292.400 105 106 108.081 339.887 106 110 118.155 355.635 107 111 125.102 365.644 108 116 130.919 374.023 109 117 136.609 382.220 110 118 140.636 273.356 111 119 134.987 279.227 112 123 156.234 261.967 113 126 150.297 398.548 114 127 165.418 257.484 115 132 156.909 405.076 116 138 171.963 408.952 117 139 174.831 252.890 118 144 189.049 404.188 119 145 180.610 406.541 120 146 187.326 246.792 121 156 197.606 401.802 122 157 208.151 228.259 123 158 202.325 235.343 124 165 206.878 399.218 125 166 222.411 205.549 126 167 217.649 214.232 127 176 224.320 398.355 128 177 223.628 659.509 129 178 221.857 674.736 130 179 219.453 699.425 131 180 232.488 194.099 132 184 236.990 276.686 133 185 236.725 295.966 134 191 233.066 400.419 135 192 234.625 638.730 136 193 229.852 644.972 137 195 222.701 667.483 138 197 242.411 187.480 139 198 237.565 190.713 140 211 223.781 720.358 141 216 248.770 252.931 142 220 249.131 404.788 143 221 253.219 618.959 144 222 246.770 625.131 145 228 247.577 751.004 146 229 255.417 174.289 147 232 262.968 252.258 148 233 263.432 295.570 149 238 257.599 407.424 150 239 267.307 599.594 151 240 263.456 606.323 152 248 262.959 763.120 153 249 272.684 155.398 154 250 267.500 160.348 155 256 273.720 259.674 156 257 269.119 293.373 157 261 273.646 406.807 158 262 275.817 584.724 159 263 271.497 592.272 160 268 272.577 700.659 161 269 273.184 718.916 162 270 279.885 725.499 163 276 276.514 263.466 164 277 282.160 274.180 165 283 281.635 404.008 166 284 283.904 570.594 167 285 279.749 577.855 168 293 271.558 768.331 169 294 287.687 780.989 170 295 289.743 147.840 171 306 287.887 563.635 172 312 292.378 663.845 173 313 300.370 674.549 174 314 297.421 734.109 175 316 306.003 156.429 176 324 299.309 550.675 177 328 290.236 686.201 178 330 294.825 788.258 179 331 307.179 796.187 180 340 299.311 401.935 181 341 306.856 544.572 182 345 316.083 640.291 183 346 307.491 735.439 184 350 313.130 797.119 185 351 319.350 176.171 186 352 332.096 191.291 187 361 307.204 403.107 188 362 324.654 531.466 189 367 326.562 742.321 190 372 338.028 198.616 191 373 343.701 205.620 192 380 335.451 418.545 193 385 336.483 621.525 194 386 325.418 633.864 195 389 331.980 787.445 196 393 358.143 273.271 197 399 342.512 425.041 198 400 344.223 503.821 199 402 332.973 525.911 200 404 350.590 593.315 201 406 343.473 607.624 202 407 339.743 615.042 203 408 335.207 747.972 204 411 348.963 212.118 205 412 354.670 219.163 206 413 358.916 234.325 207 414 358.025 243.374 208 415 357.662 263.976 209 423 350.062 441.132 210 424 350.721 450.007 211 425 349.776 468.813 212 426 348.130 479.188 213 427 345.777 494.025 214 431 354.794 755.250 215 433 360.128 294.466 216 444 359.900 793.077 217 452 376.118 582.665 218 455 369.436 791.199 219 456 388.223 326.680 220 463 385.098 584.467 221 464 385.938 762.017 222 474 393.074 586.068 223 475 387.109 788.237 224 480 410.768 586.453 225 481 396.090 765.591 226 482 406.025 776.967 227 483 396.816 786.901 228 484 418.595 321.680 229 494 420.646 585.166 230 503 439.486 579.719 231 504 446.459 300.137 232 508 449.195 575.380 233 513 459.978 570.561 234 514 472.267 291.961 235 515 465.827 294.546 236 522 470.041 566.064 237 531 485.807 558.862 238 532 487.459 278.092 239 537 493.667 555.175 240 538 502.956 268.048 241 544 508.161 543.532 242 548 517.883 532.687 243 549 528.528 265.800 244 556 525.385 524.319 245 557 537.396 266.936 246 563 538.896 507.622 247 578 544.856 499.334 248 579 556.592 263.323 249 584 568.267 368.576 250 586 563.947 388.297 251 587 562.624 425.437 252 589 565.964 445.397 253 590 566.747 455.147 254 592 561.737 474.284 255 593 569.227 256.791 256 597 573.211 337.536 257 598 569.362 358.986 258 599 579.924 251.261 259 604 584.331 316.083 260 605 588.813 246.666 261 608 593.579 308.572 262 609 609.082 239.876 263 612 609.307 295.796 264 613 600.880 302.641 265 614 617.718 239.123 266 618 629.397 248.049 267 620 629.582 269.487 268 621 625.403 277.972 Created the boundary node coordinate file "boundary_nodes.txt". TRIANGULATION_BOUNDARY_NODES Normal end of execution. June 13 2005 12:43:48.382 PM