One message from slatec is not surpressed when
using quad_control:
----------------------------------------
(%i1) display2d:false$
(%i2) float(bessel_i(1,10^4));
***MESSAGE FROM ROUTINE DBESI1 IN LIBRARY SLATEC.
***FATAL ERROR, PROG ABORTED, TRACEBACK REQUESTED
* ABS(X) SO BIG I1 OVERFLOWS
* ERROR NUMBER = 2
*
***END OF MESSAGE
***JOB ABORT DUE TO FATAL ERROR.
0 ERROR MESSAGE SUMMARY
LIBRARY SUBROUTINE MESSAGE START NERR LEVEL COUNT
SLATEC DBESI1 ABS(X) SO BIG I1 OVE 2 2 1
(%o2) 1..#INF00e+000E+0
(%i3) quad_control ('control,0)$
(%i4) float(bessel_i(1,10^4));
* ABS(X) SO BIG I1 OVERFLOWS
(%o4) 1..#INF00e+000E+2289304
---------------------------
Ted