February 18 2006   6:11:54.483 AM
 
TRIANGULATION_MASK (FORTRAN90 version)
  Read a node dataset of NODE_NUM points in 2 dimensions.
  Read an associated triangle file of TRIANGLE_NUM 
  triangles using 3 or 6 nodes.
 
  For each triangle, call a user masking routine
  to see if the triangle should be MASKED (not shown).
 
  Write the remaining unmasked triangles.
 
  Read the header of "p15_nodes.txt".
 
  Spatial dimension DIM_NUM =        2
  Number of nodes NODE_NUM  =      612
 
  Read the data in "p15_nodes.txt".
 
  Coordinates of first 5 nodes:
 
  Row         1             2       
  Col
 
    1   -8.00000      -1.00000    
    2    2.00000      -1.00000    
    3    2.00000       0.00000    
    4    8.00000       0.00000    
    5    8.00000       1.00000    
 
 
  Read the header of "p15_triangles.txt".
 
  Triangle order TRIANGLE_ORDER =        3
  Number of triangles TRIANGLE_NUM  =     1108
 
  Read the data in "p15_triangles.txt".
 
  First 5 triangles:
 
  Row       1      2      3
  Col
 
    1       9      1     14
    2      10      9     16
    3      17     10     16
    4      17     11     10
    5      18     12     11
 
 
  Number of input triangles =       1108
  Number of output triangles =      1036
  Number of deletee triangles =       72
 
  The masked triangle data was written to "p15_triangles.mask.txt".
 
  First 5 triangles:
 
  Row       1      2      3
  Col
 
    1       9      1     14
    2      10      9     16
    3      17     10     16
    4      17     11     10
    5      18     12     11
 
 
TRIANGULATION_MASK
  Normal end of execution.
 
February 18 2006   6:11:54.571 AM