XERROR

XERROR, the SLATEC error-handling package 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.