20071230 170148.570 TOMS493_PRB FORTRAN77 version Test TOMS algorithm 493, which seeks roots of a real polynomial. TEST01 p(x) = x^4 + 5.6562x^3 + 5.8854x^2 + 7.3646x + 6.1354 Approximate roots: -1.001, -4.7741, 0.0089 + 1.1457 i, 0.0089 - 1.1457 i. 0.892719E-02 1.14567 0.892719E-02 -1.14567 -1.00000 0.00000 -4.67405 0.00000 TEST02 p(x) = x^4 - 8 x^3 + 24 x^2 - 32 x + 16 Exact roots: 2 (multiplicity 4) 2.00000 0.00000 2.00000 0.00000 2.00000 0.00000 2.00000 0.00000 TEST03 p(x) = x^5 - 1 Exact roots: 0.3090 + 0.9510 i -0.8090 + 0.5877 i -0.8090 - 0.5877 i 0.3090 - 0.9510 i 1 -0.809018 0.587786 -0.809018 -0.587786 0.309018 0.951057 0.309018 -0.951057 1.00000 0.00000 TOMS493_PRB Normal end of execution. 20071230 170148.572