04 June 2024 10:38:55.947 PM test_eigen_test(): Fortran90 version Test test_eigen(). r8symm_gen_test(): r8symm_gen() generates an arbitrary size symmetric matrix with known eigenvalues and eigenvectors. Real data is declared as "REAL ( kind = rk8 )". The symmetric matrix A: Col 1 2 3 4 5 Row 1 10.1968 0.502597 2.98951 -2.14354 1.17367 2 0.502597 9.99998 -1.28471 -3.11590 2.72175 3 2.98951 -1.28471 13.6671 -1.24928 -1.77966 4 -2.14354 -3.11590 -1.24928 13.5778 -3.01208 5 1.17367 2.72175 -1.77966 -3.01208 10.6684 The eigenvector matrix Q: Col 1 2 3 4 5 Row 1 -0.316803 0.218142 0.550089 -0.645563 -0.364282 2 -0.414194 -0.814021 0.311452 0.480701E-01 0.257876 3 -0.108452 -0.354132 -0.385511 0.798111E-01 -0.841332 4 0.717582 -0.403705 -0.546003E-01 -0.562770 0.490596E-01 5 -0.448769 0.373674E-01 -0.669925 -0.507797 0.300919 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 16.0647 16.0647 r8nsymm_gen_test(): r8nsymm_gen() generates an arbitrary size nonsymmetric matrix with known eigenvalues and eigenvectors. Real data is declared as "REAL ( kind = rk8 )". The nonsymmetric matrix A: Col 1 2 3 4 5 Row 1 3.78062 0.557045 21.5219 -2.48041 -6.95286 2 -5.83621 3.70424 5.21384 -2.01809 -2.07640 3 -7.98119 -4.08173 29.7897 6.42117 -1.09246 4 0.859149 3.30559 -1.39289 6.95462 -3.08871 5 -3.48908 -4.71313 -11.3842 2.75926 10.5529 The eigenvector matrix Q: Col 1 2 3 4 5 Row 1 -0.653296 0.277203 -0.986994E-01 -0.262800 0.646187 2 -0.267960 -0.622208 -0.638795 0.361824 0.455900E-01 3 0.536349 0.309161 -0.207172 0.490344 0.577401 4 -0.935155E-01 0.631498 -0.614556 -0.991253E-02 -0.463345 5 0.452754 -0.204073 -0.401995 -0.747987 0.179676 The upper triangular matrix T: Col 1 2 3 4 5 Row 1 12.6752 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 -1.21232 4 0.00000 0.00000 0.00000 13.6790 8.28953 5 0.00000 0.00000 0.00000 0.00000 10.6936 The sorted eigenvalues LAMBDA: 1 1.669567 2 10.693575 3 12.675186 4 13.679046 5 16.064671 test_eigen_test(): Normal end of execution. 04 June 2024 10:38:55.947 PM