XERSVE(3)

SYNOPSIS
SUBROUTINE XERSVE (LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL, + ICOUNT)

NAME
xersve - Record that an error has occurred.

LIBRARY
SLATEC (XERROR)

CATEGORY
R3

TYPE
ALL (XERSVE-A)

KEYWORDS
ERROR, XERROR

AUTHOR
Jones, R. E., (SNLA)

DESCRIPTION
*Usage: INTEGER KFLAG, NERR, LEVEL, ICOUNT CHARACTER * (len) LIBRAR, SUBROU, MESSG CALL XERSVE (LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL, ICOUNT) *Arguments: LIBRAR :IN is the library that the message is from. SUBROU :IN is the subroutine that the message is from. MESSG :IN is the message to be saved. KFLAG :IN indicates the action to be performed. when KFLAG > 0, the message in MESSG is saved. when KFLAG=0 the tables will be dumped and cleared. when KFLAG < 0, the tables will be dumped and not cleared. NERR :IN is the error number. LEVEL :IN is the error severity. ICOUNT :OUT the number of times this message has been seen, or zero if the table has overflowed and does not contain this message specifically. When KFLAG=0, ICOUNT will not be altered. *Description: Record that this error occurred and possibly dump and clear the tables.

REFERENCES
R. E. Jones and D. K. Kahaner, XERROR, the SLATEC Error-handling Package, SAND82-0800, Sandia Laboratories, 1982.

ROUTINES CALLED
I1MACH, XGETUA

REVISION HISTORY (YYMMDD)
800319 DATE WRITTEN
861211 REVISION DATE from Version 3.2
891214 Prologue converted to Version 4.0 format. (BAB)
900413 Routine modified to remove reference to KFLAG. (WRB)
900510 Changed to add LIBRARY NAME and SUBROUTINE to calling sequence, use IF-THEN-ELSE, make number of saved entries easily changeable, changed routine name from XERSAV to XERSVE. (RWC)
910626 Added LIBTAB and SUBTAB to SAVE statement. (BKS)
920501 Reformatted the REFERENCES section. (WRB)