GNU Octave  4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
xercnt.f
Go to the documentation of this file.
1 *DECK XERCNT
2  SUBROUTINE xercnt (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
3 C***BEGIN PROLOGUE XERCNT
4 C***SUBSIDIARY
5 C***PURPOSE Allow user control over handling of errors.
6 C***LIBRARY SLATEC (XERROR)
7 C***CATEGORY R3C
8 C***TYPE ALL (XERCNT-A)
9 C***KEYWORDS ERROR, XERROR
10 C***AUTHOR Jones, R. E., (SNLA)
11 C***DESCRIPTION
12 C
13 C Abstract
14 C Allows user control over handling of individual errors.
15 C Just after each message is recorded, but before it is
16 C processed any further (i.e., before it is printed or
17 C a decision to abort is made), a call is made to XERCNT.
18 C If the user has provided his own version of XERCNT, he
19 C can then override the value of KONTROL used in processing
20 C this message by redefining its value.
21 C KONTRL may be set to any value from -2 to 2.
22 C The meanings for KONTRL are the same as in XSETF, except
23 C that the value of KONTRL changes only for this message.
24 C If KONTRL is set to a value outside the range from -2 to 2,
25 C it will be moved back into that range.
26 C
27 C Description of Parameters
28 C
29 C --Input--
30 C LIBRAR - the library that the routine is in.
31 C SUBROU - the subroutine that XERMSG is being called from
32 C MESSG - the first 20 characters of the error message.
33 C NERR - same as in the call to XERMSG.
34 C LEVEL - same as in the call to XERMSG.
35 C KONTRL - the current value of the control flag as set
36 C by a call to XSETF.
37 C
38 C --Output--
39 C KONTRL - the new value of KONTRL. If KONTRL is not
40 C defined, it will remain at its original value.
41 C This changed value of control affects only
42 C the current occurrence of the current message.
43 C
44 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
45 C Error-handling Package, SAND82-0800, Sandia
46 C Laboratories, 1982.
47 C***ROUTINES CALLED (NONE)
48 C***REVISION HISTORY (YYMMDD)
49 C 790801 DATE WRITTEN
50 C 861211 REVISION DATE from Version 3.2
51 C 891214 Prologue converted to Version 4.0 format. (BAB)
52 C 900206 Routine changed from user-callable to subsidiary. (WRB)
53 C 900510 Changed calling sequence to include LIBRARY and SUBROUTINE
54 C names, changed routine name from XERCTL to XERCNT. (RWC)
55 C 920501 Reformatted the REFERENCES section. (WRB)
56 C***END PROLOGUE XERCNT
57  CHARACTER*(*) LIBRAR, SUBROU, MESSG
58 C***FIRST EXECUTABLE STATEMENT XERCNT
59  RETURN
60  END
subroutine xercnt(LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
Definition: xercnt.f:2