14 March 2024 4:29:10.039 PM toms419_test(): Fortran90 version Test toms419(). test01(): Polynomial with zeros 1,2,...,10. Degree 10 Coefficients: 0.1000000000000000D+01 0.0000000000000000D+00 -0.5500000000000000D+02 0.0000000000000000D+00 0.1320000000000000D+04 0.0000000000000000D+00 -0.1815000000000000D+05 0.0000000000000000D+00 0.1577730000000000D+06 0.0000000000000000D+00 -0.9020550000000000D+06 0.0000000000000000D+00 0.3416930000000000D+07 0.0000000000000000D+00 -0.8409500000000000D+07 0.0000000000000000D+00 0.1275357600000000D+08 0.0000000000000000D+00 -0.1062864000000000D+08 0.0000000000000000D+00 0.3628800000000000D+07 0.0000000000000000D+00 Zeros: 0.1000000000000002D+01 -0.2602085213965211D-17 0.1999999999999919D+01 0.2341877081602071D-16 0.3000000000001667D+01 -0.9269060365980127D-16 0.3999999999984174D+01 0.1016214429229098D-12 0.5000000000087828D+01 -0.6087657729690979D-12 0.5999999999705519D+01 0.1521439941294594D-11 0.7000000000590060D+01 -0.2028342713498885D-11 0.7999999999314590D+01 -0.1134108533809835D-10 0.9000000000423956D+01 0.2511602417933177D-10 0.9999999999892275D+01 -0.1276081986506488D-10 Function values: 0.0000000000000000D+00 0.9442446824436827D-12 -0.5587935447692871D-08 0.9442448393022072D-12 -0.3213062882423401D-07 0.9343212848898016D-12 -0.1047737896442413D-06 0.4390046334334025D-09 -0.4936009645462036D-07 0.1753245425965661D-08 -0.1460779458284378D-05 0.4381747029606847D-08 -0.1150649040937424D-05 0.8762440525548094D-08 -0.5926471203565598D-05 -0.1143181400359651D-06 -0.2120481804013252D-04 -0.1012678096459964D-05 -0.3619678318500519D-04 -0.4630646309796843D-05 test02(): Zeros on imaginary axis. Degree 3 Coefficients: 0.1000000000000000D+01 0.0000000000000000D+00 0.0000000000000000D+00 -0.1000100010000000D+05 -0.1000100010000000D+05 0.0000000000000000D+00 0.0000000000000000D+00 0.1000000000000000D+01 Zeros: -0.1355252715606881D-19 0.1000000000000000D-03 0.0000000000000000D+00 0.1000000000000000D+01 0.1355252715606881D-19 0.1000000000000000D+05 Function values: 0.1355117176784148D-15 0.0000000000000000D+00 0.0000000000000000D+00 0.0000000000000000D+00 -0.1355117176784148D-11 -0.7071523577906191D-04 test03(): zeros at 1+I,1/2*(1+I)....1/(2**-9)*(1+I) Degree 10 Coefficients: 0.1000000000000000D+01 0.0000000000000000D+00 -0.1998046875000000D+01 -0.1998046875000000D+01 0.0000000000000000D+00 0.2658859252929688D+01 0.7567065954208374D+00 -0.7567065954208374D+00 -0.2002119533717632D+00 0.0000000000000000D+00 0.1271507365163416D-01 0.1271507365163416D-01 0.0000000000000000D+00 -0.7820779428584501D-03 -0.1154642632172909D-04 0.1154642632172909D-04 0.1584803612786345D-06 0.0000000000000000D+00 -0.4652065399568528D-09 -0.4652065399568528D-09 0.0000000000000000D+00 0.9094947017729282D-12 Zeros: 0.1953124999999997D-02 0.1953124999999996D-02 0.3906250000000023D-02 0.3906250000000032D-02 0.7812499999999910D-02 0.7812499999999882D-02 0.1562500000000020D-01 0.1562500000000027D-01 0.3124999999999955D-01 0.3124999999999943D-01 0.6250000000000075D-01 0.6250000000000101D-01 0.1249999999999998D+00 0.1249999999999991D+00 0.2499999999999985D+00 0.2499999999999999D+00 0.5000000000000023D+00 0.5000000000000009D+00 0.9999999999999990D+00 0.9999999999999998D+00 Function values: 0.0000000000000000D+00 0.2019483917365790D-27 0.0000000000000000D+00 -0.2019483917365790D-27 -0.2423380700838948D-26 -0.1615587133892632D-26 -0.1191495511245816D-25 -0.1454028420503369D-25 -0.1809962460939089D-24 0.1199573446915279D-24 -0.2499010373544297D-23 0.3896897141144897D-23 -0.4099674026158575D-21 -0.1907836748994223D-21 -0.7215725003051440D-19 -0.1264669673261201D-19 -0.2196071153278034D-16 -0.2314793964620611D-17 -0.3919407662206633D-14 0.1465797449737742D-14 test04(): Multiple zeros. Degree 10 Coefficients: 0.1000000000000000D+01 0.0000000000000000D+00 -0.1000000000000000D+02 -0.1000000000000000D+02 0.3000000000000000D+01 0.1000000000000000D+03 0.2840000000000000D+03 -0.3340000000000000D+03 -0.1293000000000000D+04 0.2000000000000000D+03 0.2374000000000000D+04 0.1394000000000000D+04 -0.1587000000000000D+04 -0.3836000000000000D+04 -0.9200000000000000D+03 0.4334000000000000D+04 0.2204000000000000D+04 -0.2352000000000000D+04 -0.1344000000000000D+04 0.5040000000000000D+03 0.2880000000000000D+03 0.0000000000000000D+00 Zeros: 0.9999998767064506D+00 0.7938344896889563D-06 0.1000000040828606D+01 -0.2642973401332377D-06 0.9999994665259423D+00 -0.4348952807019212D-06 0.1000000615939060D+01 -0.9464168161492370D-07 -0.1151385736752886D-08 0.2000000000644743D+01 0.5838974720395740D-09 0.1999999999665635D+01 0.5675384471483029D-09 0.1999999999689514D+01 0.2999999999997584D+01 -0.1442049951672075D-10 -0.3836270663388087D-13 0.3999999999999986D+01 0.3000000000002346D+01 0.1435429552998357D-10 Function values: -0.1705302565824240D-12 -0.9794498111864725D-13 0.1705302565824240D-12 0.4269610516917724D-12 -0.5684341886080801D-13 0.2309738771771874D-12 0.1705302565824240D-12 -0.1353918164376505D-12 -0.1705302565824240D-11 0.4286529848102594D-12 -0.2842170943040401D-11 0.2088801712823838D-11 -0.2103206497849897D-11 0.6073218379659094D-11 -0.8526512829121202D-10 -0.2250666319714837D-10 0.8311076271638740D-09 0.1512456058276062D-08 -0.6195932655828074D-11 -0.2246736130262692D-10 test05(): Zeros on unit circle centered at 0+2i. Degree 12 Coefficients: 0.1000000000000000D+01 0.0000000000000000D+00 0.0000000000000000D+00 -0.2400000000000000D+02 -0.2640000000000000D+03 0.0000000000000000D+00 0.0000000000000000D+00 0.1760000000000000D+04 0.7920000000000000D+04 0.0000000000000000D+00 0.0000000000000000D+00 -0.2534400000000000D+05 -0.5913600000000000D+05 0.0000000000000000D+00 0.0000000000000000D+00 0.1013760000000000D+06 0.1267200000000000D+06 0.0000000000000000D+00 0.0000000000000000D+00 -0.1126400000000000D+06 -0.6758400000000000D+05 0.0000000000000000D+00 0.0000000000000000D+00 0.2457600000000000D+05 0.4095000000000000D+04 0.0000000000000000D+00 Zeros: 0.1837975242176813D-12 0.1000000000000354D+01 -0.5000000000014551D+00 0.1133974596215820D+01 0.5000000000024462D+00 0.1133974596214355D+01 0.4999999997376025D+00 0.2866025403783456D+01 -0.1124863219605955D-09 0.2999999999369351D+01 -0.4999999990866668D+00 0.2866025403585743D+01 -0.8660254036410504D+00 0.2500000000856708D+01 0.8660254037647522D+00 0.2499999999960148D+01 0.9999999998415977D+00 0.2000000000015508D+01 -0.1000000000500262D+01 0.2000000000060427D+01 -0.8660254037991824D+00 0.1499999999848461D+01 0.8660254037945201D+00 0.1500000000089671D+01 Function values: 0.3183231456205249D-11 0.2205570290598630D-11 0.1000444171950221D-10 -0.4592948243953288D-10 0.2592059900052845D-10 0.3160494088660926D-10 -0.1023181539494544D-08 0.1155513018602505D-08 -0.7727521733613685D-08 0.1349835854050118D-08 -0.8732513379072770D-08 -0.1112641712097684D-07 0.3652075974969193D-08 -0.8903271009330638D-08 0.2250999386887997D-09 0.4033609002362937D-09 -0.1922671799547970D-08 0.2582964953035116D-09 0.6744812708348036D-08 -0.9613358997739851D-09 0.9758878150023520D-09 0.1354464984615333D-08 -0.4542926035355777D-09 0.1034550223266706D-08 toms419_test(): Normal end of execution. 14 March 2024 4:29:10.040 PM