20231118  201926.979
 
toms470_test():
  FORTRAN77 version
  Test toms470().
 
TEST01
  Test FAKUB, a linear system solver
  for "almost tridiagonal" systems.
 
  Actually, try a true tridiagonal system.
 
  Number of equations, N =      5
 
  Tridiagonal elements:
 
   0.00000000       4.00000000      -1.00000000    
  -1.00000000       4.00000000      -1.00000000    
  -1.00000000       4.00000000      -1.00000000    
  -1.00000000       4.00000000      -1.00000000    
  -1.00000000       4.00000000       0.00000000    
 
  Right hand side of linear system:
 
   2.00000000    
   4.00000000    
   6.00000000    
   8.00000000    
   16.0000000    
 
  Solution, which should be (1,2,3,...,n):
 
   1.00000000    
   2.00000000    
   3.00000000    
   4.00000000    
   5.00000048    
 
TEST02
  Test FAKUB, a linear system solver
  for "almost tridiagonal" systems.
 
  Number of equations, N =      5
 
  Tridiagonal elements:
 
   0.00000000       4.00000000      -1.00000000    
  -1.00000000       4.00000000      -1.00000000    
  -1.00000000       4.00000000      -1.00000000    
  -1.00000000       4.00000000      -1.00000000    
  -1.00000000       4.00000000       0.00000000    
 
  Indices of unknowns with nonzero
  non-tridiagonal coefficients.
 
           5
           1
 
  Right hand side of linear system:
 
  -3.00000000    
   4.00000000    
   6.00000000    
   8.00000000    
   15.0000000    
 
  Solution, which should be (1,2,3,...,n):
 
   1.00000012    
   2.00000000    
   3.00000000    
   4.00000000    
   5.00000000    
 
TEST03
  Test GAUSD, a linear system solver.
 
  Solution, which should be (1,2,3,...,n):
 
   1.00000012    
   1.99999976    
   2.99999976    
   4.00000048    
   5.00000000    
 
toms470_test():
  Normal end of execution.
 
20231118  201926.980