28 February 2023   8:26:21.194 AM
 
GRF_IO_TEST():
  FORTRAN90 version
  Test GRF_IO().
 
TEST01():
  GRF_HEADER_WRITE writes the header of a GRF file.
  GRF_DATAWRITE writes the data of a GRF file.
 
  The number of nodes NODE_NUM =       28
  The number of edges EDGE_NUM =       84
 
  Wrote the GRF file "coxeter.grf".
 
TEST02
  GRF_HEADER_READ reads the header of a GRF file.
  GRF_DATA_READ reads the data of a GRF file.
 
  Reading the GRF file "coxeter.grf".
 
  The number of nodes NODE_NUM =       28
  The number of edges EDGE_NUM =       84
 
  Edge pointers:
 
  Node     First      Last
 
     1         1         3
     2         4         6
     3         7         9
     4        10        12
     5        13        15
     6        16        18
     7        19        21
     8        22        24
     9        25        27
    10        28        30
    11        31        33
    12        34        36
    13        37        39
    14        40        42
    15        43        45
    16        46        48
    17        49        51
    18        52        54
    19        55        57
    20        58        60
    21        61        63
    22        64        66
    23        67        69
    24        70        72
    25        73        75
    26        76        78
    27        79        81
    28        82        84
 
  Edge data:
 
  Node     Adjacent nodes
 
     1         8         2         3
     2        14         1         5
     3         9         4         1
     4        10         7         3
     5        13         2         6
     6        12         5         7
     7        11         6         4
     8        25        20         1
     9        24        21         3
    10        23        15         4
    11        22        16         7
    12        28        17         6
    13        27        18         5
    14        26        19         2
    15        10        18        19
    16        11        19        20
    17        12        21        20
    18        13        15        21
    19        14        16        15
    20         8        17        16
    21         9        18        17
    22        11        27        24
    23        10        28        25
    24         9        26        22
    25         8        23        27
    26        14        24        28
    27        13        25        22
    28        12        26        23
 
  Node        X          Y
 
     1    0.412000    0.984000
     2    0.494000    0.984000
     3    0.366000    0.926000
     4    0.388000    0.862000
     5    0.546000    0.926000
     6    0.518000    0.860000
     7    0.458000    0.818000
     8    0.152000    0.684000
     9    0.264000    0.682000
    10    0.354000    0.680000
    11    0.458000    0.670000
    12    0.554000    0.672000
    13    0.658000    0.668000
    14    0.774000    0.692000
    15    0.164000    0.450000
    16    0.228000    0.448000
    17    0.274000    0.390000
    18    0.242000    0.330000
    19    0.194000    0.278000
    20    0.146000    0.328000
    21    0.102000    0.390000
    22    0.668000    0.472000
    23    0.638000    0.416000
    24    0.656000    0.334000
    25    0.714000    0.270000
    26    0.798000    0.326000
    27    0.830000    0.408000
    28    0.754000    0.466000
 
GRF_IO_TEST():
  Normal end of execution.
 
28 February 2023   8:26:21.194 AM