6 October 2025   6:31:04.430 PM
 
power_method_test():
  Fortran90 version:
  Test power_method().
 
TEST01
  Use POWER_METHOD on the Fibonacci2 matrix.
 
  Matrix order N         =      100
  Maximum iterations     =      500
  Error tolerance        =   0.100000E-07
 
  Number of iterations   =      376
  CPU time               =   0.198300E-02
  Estimated eigenvalue   =   1.6180340318
  Correct value          =   1.6180340052
  ||Error||              =   0.266223E-07
 
  Sine of angle between true and estimated vectors =   0.0000000558
 
TEST02
  Use POWER_METHOD2 on the Fibonacci2 matrix.
 
  Matrix order N         =       10
  Maximum iterations     =      500
  Error tolerance        =   0.100000E-07
 
  Number of iterations   =       71
  CPU time               =   0.400000E-04
  Estimated eigenvalue   =   1.6180340108  0.0000000000
  Correct value          =   1.6180340052
  ||Error||              =   0.564278E-08
 
  Sine of angle between true and estimated vectors =   0.0000000258
 
test03():
  Use POWER_METHOD2 on the TRIS (tridiagonal scalar) matrix.
 
  Matrix order N         =      100
  Maximum iterations     =     4000
  Error tolerance        =   0.100000E-07
 
  Number of iterations   =     4000
  CPU time               =   0.229520E-01
  Estimated eigenvalue   =  10.0002404824  5.6488830885
  Correct max eigenvalue =  10.0000000000  5.6541179289
  ||Error||              =   0.524036E-02
 
power_method_test():
  Normal end of execution.
 
 6 October 2025   6:31:04.455 PM