mirror of
https://git.planet-casio.com/Lephenixnoir/OpenLibm.git
synced 2025-01-01 06:23:39 +01:00
60 lines
2.5 KiB
Fortran
60 lines
2.5 KiB
Fortran
*DECK XERCNT
|
|
SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
|
|
C***BEGIN PROLOGUE XERCNT
|
|
C***SUBSIDIARY
|
|
C***PURPOSE Allow user control over handling of errors.
|
|
C***LIBRARY SLATEC (XERROR)
|
|
C***CATEGORY R3C
|
|
C***TYPE ALL (XERCNT-A)
|
|
C***KEYWORDS ERROR, XERROR
|
|
C***AUTHOR Jones, R. E., (SNLA)
|
|
C***DESCRIPTION
|
|
C
|
|
C Abstract
|
|
C Allows user control over handling of individual errors.
|
|
C Just after each message is recorded, but before it is
|
|
C processed any further (i.e., before it is printed or
|
|
C a decision to abort is made), a call is made to XERCNT.
|
|
C If the user has provided his own version of XERCNT, he
|
|
C can then override the value of KONTROL used in processing
|
|
C this message by redefining its value.
|
|
C KONTRL may be set to any value from -2 to 2.
|
|
C The meanings for KONTRL are the same as in XSETF, except
|
|
C that the value of KONTRL changes only for this message.
|
|
C If KONTRL is set to a value outside the range from -2 to 2,
|
|
C it will be moved back into that range.
|
|
C
|
|
C Description of Parameters
|
|
C
|
|
C --Input--
|
|
C LIBRAR - the library that the routine is in.
|
|
C SUBROU - the subroutine that XERMSG is being called from
|
|
C MESSG - the first 20 characters of the error message.
|
|
C NERR - same as in the call to XERMSG.
|
|
C LEVEL - same as in the call to XERMSG.
|
|
C KONTRL - the current value of the control flag as set
|
|
C by a call to XSETF.
|
|
C
|
|
C --Output--
|
|
C KONTRL - the new value of KONTRL. If KONTRL is not
|
|
C defined, it will remain at its original value.
|
|
C This changed value of control affects only
|
|
C the current occurrence of the current message.
|
|
C
|
|
C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
|
|
C Error-handling Package, SAND82-0800, Sandia
|
|
C Laboratories, 1982.
|
|
C***ROUTINES CALLED (NONE)
|
|
C***REVISION HISTORY (YYMMDD)
|
|
C 790801 DATE WRITTEN
|
|
C 861211 REVISION DATE from Version 3.2
|
|
C 891214 Prologue converted to Version 4.0 format. (BAB)
|
|
C 900206 Routine changed from user-callable to subsidiary. (WRB)
|
|
C 900510 Changed calling sequence to include LIBRARY and SUBROUTINE
|
|
C names, changed routine name from XERCTL to XERCNT. (RWC)
|
|
C 920501 Reformatted the REFERENCES section. (WRB)
|
|
C***END PROLOGUE XERCNT
|
|
CHARACTER*(*) LIBRAR, SUBROU, MESSG
|
|
C***FIRST EXECUTABLE STATEMENT XERCNT
|
|
RETURN
|
|
END
|