09 May 2025   9:26:38.952 PM

polynomial_root_bound_test():
  Fortran90 version
  Test polynomial_root_bound()

polynomial1_test():
  Bound the roots of a specific polynomial:
    12z^5 + 2z^2 + 23i.

  Polynomial coefficients are:
   0     0.00000         23.0000    
   1     0.00000         0.00000    
   2     2.00000         0.00000    
   3     0.00000         0.00000    
   4     0.00000         0.00000    
   5     12.0000         0.00000    
Convergence after  41 iterations

  Root magnitude bound is    1.16465    

  Polynomial roots and norms are:
   1    -1.10402       -0.336863         1.15427    
   2   -0.661521        0.897014         1.11456    
   3    0.257088E-01    -1.13896         1.13925    
   4    0.677409        0.945866         1.16342    
   5     1.06242       -0.367055         1.12404    

polynomial2_test():
  Bound the roots of a random polynomial:

  Polynomial roots and norms are:
   1   -0.341017       -0.798808        0.868555    
   2     2.74560        0.373475         2.77088    
   3     1.29745         1.51309         1.99319    
   4    0.363671       -0.374116        0.521746    
   5    0.214444       -0.315043E-01    0.216746    

  Polynomial coefficients are:
   0    0.186897        0.509256    
   1    0.215706        -3.62298    
   2    -5.14584         5.06847    
   3     5.77305       -0.198530    
   4    -4.28015       -0.682135    
   5     1.00000         0.00000    
Convergence after  46 iterations

  Root magnitude bound is    5.61348    

polynomial_root_bound_test():
  Normal end of execution.

09 May 2025   9:26:38.952 PM