January 14 2007  12:10:20.041 PM
 
TRIANGULATION_MASK
  FORTRAN90 version
  Read a node file of NODE_NUM points in 2 dimensions.
  Read an associated triangulation 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 new node and triangulation files corresponding
  to the unmasked data only.
 
  Read the header of "small_nodes.txt".
 
  Spatial dimension DIM_NUM =        2
  Number of nodes NODE_NUM  =       25
 
  Read the data in "small_nodes.txt".
 
  Coordinates of first 5 input nodes:
 
  Row         1             2       
  Col
 
    1    0.00000       0.00000    
    2    1.00000       0.00000    
    3    2.00000       0.00000    
    4    3.00000       0.00000    
    5    4.00000       0.00000    
 
 
  Read the header of "small_triangles.txt".
 
  Triangle order TRIANGLE_ORDER =        3
  Number of triangles TRIANGLE_NUM  =       32
 
  Read the data in "small_triangles.txt".
 
  First 5 triangles:
 
  Row       1      2      3
  Col
 
    1       1      2      6
    2       7      6      2
    3       2      3      7
    4       8      7      3
    5       3      4      8
 
 
  INPUT_NODE_MASK
 
         1  T
         2  T
         3  F
         4  F
         5  F
         6  T
         7  F
         8  F
         9  F
        10  F
        11  F
        12  F
        13  F
        14  F
        15  F
        16  F
        17  F
        18  F
        19  T
        20  T
        21  F
        22  F
        23  T
        24  T
        25  T
 
  The masked triangle data was written to "small_triangles.mask.txt".
 
  The masked node data was written to "small_nodes.mask.txt".
 
  Number of input triangles =         32
  Number of output triangles =        20
  Number of deleted triangles =       12
 
  Number of input nodes =         25
  Number of output nodes =        17
  Number of deleted nodes =        8
 
  First 5 output triangles:
 
  Row       1      2      3
  Col
 
    1       5      4      1
    2       1      2      5
    3       6      5      2
    4       2      3      6
    5       7      6      3
 
 
  First 5 output nodes:
 
  Row         1             2       
  Col
 
    1    2.00000       0.00000    
    2    3.00000       0.00000    
    3    4.00000       0.00000    
    4    1.00000       1.00000    
    5    2.00000       1.00000    
 
 
TRIANGULATION_MASK
  Normal end of execution.
 
January 14 2007  12:10:20.066 PM