XERROR
Error Message Handler

XERROR is a FORTRAN77 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 FORTRAN77 version and a FORTRAN90 version.

Related Data and Programs:

DQED, a FORTRAN90 library which carries out constrained minimization, and which includes a version of the XERROR library.

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

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

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

QUADPACK, a FORTRAN77 library which estimates integrals, and which calls the XERROR library.

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

STARPAC, a FORTRAN77 library which 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.f, the source code.
• xerror.sh, commands to compile the source code.

Examples and Tests:

• xerror_prb.f, a sample calling program.
• xerror_prb.sh, commands to compile and run the sample program.
• xerror_prb_output.txt, the output file.

List of Routines:

• FDUMP produces a symbolic dump.
• I1MACH returns integer machine dependent constants.
• J4SAVE saves and recalls global variables.
• NUMXER returns the most recent error number.
• TIMESTAMP prints out the current YMDHMS date as a timestamp.
• XERABT aborts program execution.
• XERBLA is an error handler for the Level 2 and Level 3 BLAS routines.
• XERCLR resets the most recent error number to 0.
• XERCNT allows user control over the handling of errors.
• XERCTL allows the user control over individual errors.
• XERDMP prints the error tables and then clears them.
• XERHLT aborts program execution.
• XERMAX sets the maximum number of times an error message is printed.
• XERMSG processes error messages.
• XERPRN prints error messages processed by XERMSG.
• XERPRT prints a message on each file receiving error messages.
• XERROR processes a diagnostic error message.
• XERRWV processes a diagnostic error message.
• XERSAV records that a particular error has occurred.
• XERSVE records that an error has occurred.
• XGETF returns the error control flag.
• XGETUA reports the unit numbers of the files receiving error messages.
• XGETUN reports the first unit number of the files receiving error messages.
• XSETF sets the error control flag.
• XSETUA sets the unit numbers of the files receiving error messages.
• XSETUN sets the unit number of the main error output file.

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