15 July 2026  10:51:54.227 PM
 
tsp_io_test():
  Fortran90 version
  Test tsp_io().
 
test01():
  Read the header from "p01.tsp"
 
  NAME: "p01".
  TYPE: "TSP".
  COMMENT: "fix".
  DIMENSION:       15
  CAPACITY:        0
  EDGE_WEIGHT_TYPE: "EUC_2D".
  EDGE_WEIGHT_FORMAT: "FUNCTION".
  EDGE_DATA_FORMAT: "".
  NODE_COORD_TYPE: "NO_COORDS".
  DISPLAY_DATA_TYPE: "COORD_DISPLAY".
 
test02():
  Read the edge weights from "p01.tsp"
 
  Edge Weight matrix (distances)
 
  Col        1       2       3       4       5       6       7       8       9      10
  Row
 
    1:       0      28      81      45      67      51      72      41      50      54
    2:      28       0      55      45      41      43      44      22      23      30
    3:      81      55       0      68      44      54      22      43      40      29
    4:      45      45      68       0      81      15      72      31      61      42
    5:      67      41      44      81       0      72      22      50      19      44
    6:      51      43      54      15      72       0      60      23      54      30
    7:      72      44      22      72      22      60       0      41      23      30
    8:      41      22      43      31      50      23      41       0      31      14
    9:      50      23      40      61      19      54      23      31       0      28
   10:      54      30      29      42      44      30      30      14      28       0
   11:      28      39      79      20      80      32      77      36      61      50
   12:      74      51      20      51      57      36      36      32      45      21
   13:      22       9      64      50      45      50      51      31      29      40
   14:      71      51      31      43      64      28      45      30      50      23
   15:      45      20      50      63      22      58      32      35       9      35
 
  Col       11      12      13      14      15
  Row
 
    1:      28      74      22      71      45
    2:      39      51       9      51      20
    3:      79      20      64      31      50
    4:      20      51      50      43      63
    5:      80      57      45      64      22
    6:      32      36      50      28      58
    7:      77      36      51      45      32
    8:      36      32      31      30      35
    9:      61      45      29      50       9
   10:      50      21      40      23      35
   11:       0      65      40      58      60
   12:      65       0      61      10      54
   13:      40      61       0      61      23
   14:      58      10      61       0      58
   15:      60      54      23      58       0
 
test03():
  Read the edge weights from "p01.tsp"
  and write them to a file.
 
  Distance table written to "p01_d.txt".
 
test04():
  Read the edge weights from "att48.tsp"
  and write them to a file.
 
  Distance table written to "att48_d.txt".
 
tsp_io_test():
  Normal end of execution.
 
15 July 2026  10:51:54.227 PM