20080711 221520.830 TOMS453_PRB FORTRAN77 version Test TOMS algorithm 453, which computes the complex abscissas and weights for Gaussian quadrature formulas for Bromwich's integral. TEST01 Determine abscissas and weights for a variety of values of S and N. N = 3 S = 0.00000 XR XI WR WI 1 2 1.68709 -2.50873 -2.77040 0.159186 2 1 2.62582 -0.280744E-19 5.54080 0.159185E-18 3 2 1.68709 2.50873 -2.77040 -0.159186 WR total -0.621725E-14 N = 3 S = 0.100000 XR XI WR WI 1 2 1.78627 -2.56813 -2.78202 0.224688E-01 2 1 2.72746 0.262609E-27 5.66914 -0.149370E-26 3 2 1.78627 2.56813 -2.78202 -0.224688E-01 WR total 0.105114 N = 3 S = 1.00000 XR XI WR WI 1 2 2.68108 -3.05043 -2.01489 -0.736508 2 1 3.63783 -0.859106E-20 5.02978 0.367006E-19 3 2 2.68108 3.05043 -2.01489 0.736508 WR total 1.00000 N = 3 S = 4.00000 XR XI WR WI 1 2 5.67434 -4.27997 -0.483977E-01 -0.762995E-01 2 1 6.65132 0.204651E-21 0.263462 -0.298788E-22 3 2 5.67434 4.27997 -0.483977E-01 0.762995E-01 WR total 0.166667 N = 6 S = 0.00000 BROMIN returned IER = 1 N = 6 S = 0.100000 BROMIN returned IER = 1 N = 6 S = 1.00000 BROMIN returned IER = 1 N = 6 S = 4.00000 BROMIN returned IER = 1 N = 9 S = 0.00000 XR XI WR WI 1 5 3.97536 -13.1066 7.79286 -48.4906 2 4 7.28383 -9.61625 -650.747 710.452 3 3 9.20449 -6.34804 4931.37 -2600.30 4 2 10.2467 -3.15936 -14158.4 3267.65 5 1 10.5793 -0.342908E-19 19740.0 0.431448E-15 6 2 10.2467 3.15936 -14158.4 -3267.65 7 3 9.20449 6.34804 4931.37 2600.30 8 4 7.28383 9.61625 -650.747 -710.452 9 5 3.97536 13.1066 7.79286 48.4906 WR total 0.711953E-06 N = 9 S = 0.100000 XR XI WR WI 1 5 4.07435 -13.1844 8.82134 -40.9010 2 4 7.38342 -9.66975 -587.140 590.179 3 3 9.30475 -6.38204 4360.66 -2145.19 4 2 10.3474 -3.17594 -12442.5 2686.32 5 1 10.6802 0.539695E-20 17320.4 -0.593434E-16 6 2 10.3474 3.17594 -12442.5 -2686.32 7 3 9.30475 6.38204 4360.66 2145.19 8 4 7.38342 9.66975 -587.140 -590.179 9 5 4.07435 13.1844 8.82134 40.9010 WR total 0.105118 N = 9 S = 1.00000 XR XI WR WI 1 5 4.96613 -13.8647 5.70963 -7.30219 2 4 8.28004 -10.1384 -187.912 88.0612 3 3 10.2069 -6.68014 1272.27 -283.871 4 2 11.2533 -3.32134 -3542.61 328.959 5 1 11.5874 -0.218066E-24 4906.08 0.655006E-21 6 2 11.2533 3.32134 -3542.61 -328.959 7 3 10.2069 6.68014 1272.27 283.871 8 4 8.28004 10.1384 -187.912 -88.0612 9 5 4.96613 13.8647 5.70963 7.30219 WR total 1.00000 N = 9 S = 4.00000 XR XI WR WI 1 5 7.94671 -15.9216 0.276524E-01 0.931263E-02 2 4 11.2719 -11.5626 -0.771534 -0.429792 3 3 13.2119 -7.58890 6.10477 2.73269 4 2 14.2673 -3.76533 -19.7412 -4.62697 5 1 14.6045 0.510941E-19 28.9272 -0.803047E-18 6 2 14.2673 3.76533 -19.7412 4.62697 7 3 13.2119 7.58890 6.10477 -2.73269 8 4 11.2719 11.5626 -0.771534 0.429792 9 5 7.94671 15.9216 0.276524E-01 -0.931263E-02 WR total 0.166667 N = 12 S = 0.00000 BROMIN returned IER = 1 N = 12 S = 0.100000 BROMIN returned IER = 1 N = 12 S = 1.00000 BROMIN returned IER = 1 N = 12 S = 4.00000 BROMIN returned IER = 1 TOMS453_PRB Normal end of execution. 20080711 221520.833