29 November 2022   9:54:33.077 PM
 
DISTANCE_TO_POSITION():
  FORTRAN90 version
  Read a distance table for N points or cities;
  assign coordinates to each point which will
  reproduce the distance table with the lowest
  discrepancy, in the least squares sense.
 
  Read the header of "grid04_dist.txt".
 
  Spatial dimension M =        2
  Number of points N  =        4
 
  Read the data in "grid04_dist.txt".
 
  5 by 5 portion of distance table:
 
  Col          1             2             3             4      
  Row
 
    1       0.            3.            5.            4.      
    2       3.            0.         3.16228          5.      
    3       5.         3.16228          0.         4.12311    
    4       4.            5.         4.12311          0.      
 
 
COMPUTE_POSITION_FROM_DISTANCE
  UNCMIN carries out unconstrained minimization
  of a scalar function of several variables.
0optstp    relative gradient close to zero.
 optstp    current iterate is probably solution.
 
UNCMIN - Note!
  INFO = 1.
  The iteration probably converged.
  The gradient is very small.
 
  UNCMIN return code =    1
 
  f(x*) =  0.309883E-12
         1     -0.000000      0.000000
         2     -3.000000     -0.000000
         3     -4.000001      2.999999
         4     -0.000002      4.000000
 
  5 by 5 portion of distance table:
 
  Col          1             2             3             4      
  Row
 
    1       0.         3.00000       5.00000       4.00000    
    2    3.00000          0.         3.16228       5.00000    
    3    5.00000       3.16228          0.         4.12311    
    4    4.00000       5.00000       4.12311          0.      
 
 
  Positions of first 5 cities:
 
  Row          1             2      
  Col
 
    1  -0.191948E-06  0.776963E-07
    2   -3.00000     -0.273206E-06
    3   -4.00000       3.00000    
    4  -0.162216E-05   4.00000    
 
  Wrote the position data to "grid04_dist.coord.txt".
 
DISTANCE_TO_POSITION
  Normal end of execution.
 
29 November 2022   9:54:33.080 PM