XERROR
Error Message Handler

XERROR is a FORTRAN90 library which collects information about errors that occur during a program's execution, and takes the appropriate action, which may include printing a message, diverting to a user routine, or aborting execution of the program.

Most users never encounter XERROR directly. However, they may receive warnings and other error messages produced by XERROR, if the software they are calling has encountered an error condition and uses XERROR to report and handle the problem.

An experienced user or software developer may wish to incorporate XERROR into software being developed, or to modify the behavior of XERROR in software they are using. The package includes many routines to customize its behavior, to reduce the level of output, to make multiple copies of the error output, to control the number of times a particular error message is printed, or to halt execution of the program if certain kinds of error occur.

Licensing:

This code is in the public domain.

Languages:

XERROR is available in a FORTRAN90 version.

Related Data and Programs:

DLAP, a FORTRAN90 library which contains iterative linear equation solvers which includes a version of the XERROR library.

DQED, a FORTRAN90 library which contains constrained minimization routines which includes a version of the XERROR library.

MACHINE, a FORTRAN90 library which tabulates the values of certain machine-specific arithmetic quantities. The XERROR library calls it for some simple information.

NMS, a FORTRAN90 library which includes a version of the XERROR library.

QUADPACK, a FORTRAN90 library which estimate integrals, and which calls the XERROR library.

SLATEC, a FORTRAN90 library which collects together a number of standard numerical libraries, including BLAS, DASSL, DEPAC, EISPACK, FFTPACK, FISHPACK, FNLIB, LINPACK, PCHIP, QUADPACK, SDRIV, SLAP, XERROR.

STARPAC, a FORTRAN90 library which contains statistical routines, and includes a version of the XERROR library.

Reference:

1. Phyllis Fox, Andrew Hall, Norman Schryer,
   Algorithm 528:
   Framework for a Portable Library,
   ACM Transactions on Mathematical Software,
   Volume 4, Number 2, June 1978, page 176-188.
2. Ron Jones, David Kahaner,
   XERROR, The SLATEC Error Handling Package,
   Software: Practice and Experience,
   Volume 13, Number 3, 1983, pages 251-257.
3. Ron Jones, David Kahaner,
   XERROR, The SLATEC Error Handling Package,
   Technical Report SAND82-0800,
   Sandia National Laboratories, 1982.
4. David Kahaner, Cleve Moler, Steven Nash,
   Numerical Methods and Software,
   Prentice Hall, 1989,
   ISBN: 0-13-627258-4,
   LC: TA345.K34.

Source Code:

• xerror.f90, the source code.

Examples and Tests:

• xerror_test.f90, a sample calling program.
• xerror_test.txt, the output file.

List of Routines:

• FDUMP produces a symbolic dump.
• I1MACH returns integer machine constants.
• J4SAVE saves variables needed by the library error handling routines.
• NUMXER returns the most recent error number.
• TIMESTAMP prints the current YMDHMS date as a time stamp.
• XERABT aborts program execution and prints an error message.
• XERBLA is an error handler for the Level 2 and Level 3 BLAS routines.
• XERCLR resets the current error number to zero.
• XERCNT allows user control over the handling of errors.
• XERCTL allows user control over handling of individual errors.
• XERDMP prints the error tables and then clears them.
• XERHLT aborts program execution.
• XERMAX sets the maximum number of times any error message is to be printed.
• XERMSG processes error messages.
• XERPRN prints error messages processed by XERMSG.
• XERPRT prints a message on each file indicated by xgetua.
• XERROR processes a diagnostic error message.
• XERRWV processes an error message that includes numeric information.
• XERSAV records that an error occurred.
• XERSVE records that an error has occurred.
• XGETF returns current value of error control flag.
• XGETUA returns the unit numbers to which error messages are being sent.
• XGETUN returns the (first) output file to which messages are being sent.
• XSETF sets the error control flag.
• XSETUA sets up to 5 unit numbers to which messages are to be sent.
• XSETUN sets the output file to which error messages are to be sent.

You can go up one level to the FORTRAN90 source codes.