XERSVE Subroutine

subroutine XERSVE(LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL, ICOUNT)

BEGIN PROLOGUE XERSVE SUBSIDIARY PURPOSE 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) END PROLOGUE XERSVE

Arguments