GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
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:3