5 June      2024   9:29:46.540 AM      
 
test_eigen_test():
  Fortran77 version
  Test test_eigen().
 
r8symm_gen_test():
  r8symm_gen() makes an arbitrary size 
  symmetric matrix with known eigenvalues 
  and eigenvectors.
 
  Real data is declared as "DOUBLE PRECISION".
 
  The matrix A:
 
  Col         1             2             3             4             5       
  Row
 
    1    9.40734       1.68567      -1.52911      -1.46873      -1.94103    
    2    1.68567       8.41696     -0.651268      -1.69475      -1.82240    
    3   -1.52911     -0.651268       7.56200       3.30393       4.13024    
    4   -1.46873      -1.69475       3.30393       9.99262       2.90974    
    5   -1.94103      -1.82240       4.13024       2.90974       10.9546    
 
  The eigenvector matrix Q:
 
  Col         1             2             3             4             5       
  Row
 
    1  -0.339299      0.273156     -0.503423     -0.742966     -0.694905E-01
    2  -0.280538     -0.380912      0.693761     -0.501496      0.208329    
    3   0.445337     -0.114453      0.163808     -0.279106     -0.826948    
    4   0.498567      0.702595      0.331961     -0.223529      0.312454    
    5   0.599400     -0.523021     -0.358091     -0.261989      0.412675    
 
  The eigenvalue vector LAMBDA:
 
         1     18.395201    
         2     7.6361560    
         3     7.1697009    
         4     8.8443793    
         5     4.2880821    
 
  LAMBDA versus the column norms of A*Q:
 
         1:    18.3952         18.3952    
         2:    7.63616         7.63616    
         3:    7.16970         7.16970    
         4:    8.84438         8.84438    
         5:    4.28808         4.28808    
 
r8nsymm_gen_test()
  r8nsymm_gen() makes an arbitrary size 
  nonsymmetric matrix with known eigenvalues 
  and eigenvectors.
 
  Real data is declared as "DOUBLE PRECISION".
 
  The nonsymmetric matrix A:
 
  Col         1             2             3             4             5       
  Row
 
    1    6.17899      -2.33886       5.79999      -1.04678       3.56261    
    2   -8.01488       9.67227      -13.9557       1.67266      -10.6567    
    3    19.2172       5.19619       18.6281      -8.16000      -3.31104    
    4   -14.3595      -3.72904       6.88131     -0.601525       1.77608    
    5    15.7213       2.35505       15.5004      -5.02704       13.7774    
 
  The orthogonal factor Q:
 
  Col         1             2             3             4             5       
  Row
 
    1  -0.290931      0.847970      0.174796      0.991181E-01 -0.394878    
    2  -0.336064E-02 -0.851075E-01 -0.678783     -0.430473     -0.588806    
    3   0.118923     -0.218209     -0.162380      0.861555     -0.411824    
    4  -0.162066      0.324630     -0.692878      0.247373      0.571906    
    5  -0.935382     -0.347426      0.474771E-01  0.373939E-01 -0.265141E-01
 
  The upper triangular matrix T:
 
  Col         1             2             3             4             5       
  Row
 
    1    14.7034       18.3952       7.63616       7.16970       8.84438    
    2    0.00000       16.0647       12.6752       16.3469       15.2477    
    3    0.00000       0.00000       1.66957      0.673861       20.9240    
    4    0.00000       0.00000       0.00000       11.9712       10.1984    
    5    0.00000       0.00000       0.00000       0.00000       3.24632    
 
  The sorted eigenvalues LAMBDA:
 
         1     1.6695666    
         2     3.2463221    
         3     11.971235    
         4     14.703418    
         5     16.064671    
 
test_eigen_test():
  Normal end of execution.
 
 5 June      2024   9:29:46.540 AM