28 September 2023   1:46:59.525 PM      
 
cyclic_reduction_test():
  FORTRAN77 version:
  Test cyclic_reduction().
 
TEST01
  C83_CR_FA factors a complex tridiagonal matrix;
  C83_CR_SL solves a factored system.
 
  Matrix order N =       10
 
  Solution:
 
         1:    1.00000       10.0000    
         2:    2.00000       20.0000    
         3:    3.00000       30.0000    
         4:    4.00000       40.0000    
         5:    5.00000       50.0000    
         6:    6.00000       60.0000    
         7:    7.00000       70.0000    
         8:    8.00000       80.0000    
         9:    9.00000       90.0000    
        10:    10.0000       100.000    
 
TEST02
  R83_CR_FA factors a real tridiagonal matrix;
  R83_CR_SLS solves 1 or more systems.
 
  Matrix order N =        5
  Demonstrate multiple system solution method.
 
  Solutions:
 
  Col         1             2       
  Row
 
    1:   1.00000       1.00000    
    2:   2.00000       1.00000    
    3:   3.00000       1.00000    
    4:   4.00000       1.00000    
    5:   5.00000       1.00000    
 
TEST03
  For a real tridiagonal matrix,
  using CYCLIC REDUCTION,
  R83_CR_FA factors;
  R83_CR_SL solves a system.
 
  Matrix order N =       10
  The matrix is NOT symmetric.
 
  Solution:
 
         1:    1.0000000    
         2:    2.0000000    
         3:    3.0000000    
         4:    4.0000000    
         5:    5.0000000    
         6:    6.0000000    
         7:    7.0000000    
         8:    8.0000000    
         9:    9.0000000    
        10:    10.000000    
 
cyclic_reduction_test():
  Normal end of execution.
 
28 September 2023   1:46:59.525 PM