GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
xerclr.f
Go to the documentation of this file.
1 *DECK XERCLR
2  SUBROUTINE xerclr
3 C***BEGIN PROLOGUE XERCLR
4 C***PURPOSE Reset current error number to zero.
5 C***LIBRARY SLATEC (XERROR)
6 C***CATEGORY R3C
7 C***TYPE ALL (XERCLR-A)
8 C***KEYWORDS ERROR, XERROR
9 C***AUTHOR Jones, R. E., (SNLA)
10 C***DESCRIPTION
11 C
12 C Abstract
13 C This routine simply resets the current error number to zero.
14 C This may be necessary in order to determine that a certain
15 C error has occurred again since the last time NUMXER was
16 C referenced.
17 C
18 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
19 C Error-handling Package, SAND82-0800, Sandia
20 C Laboratories, 1982.
21 C***ROUTINES CALLED J4SAVE
22 C***REVISION HISTORY (YYMMDD)
23 C 790801 DATE WRITTEN
24 C 861211 REVISION DATE from Version 3.2
25 C 891214 Prologue converted to Version 4.0 format. (BAB)
26 C 920501 Reformatted the REFERENCES section. (WRB)
27 C***END PROLOGUE XERCLR
28 C***FIRST EXECUTABLE STATEMENT XERCLR
29  junk = j4save(1,0,.true.)
30  RETURN
31  END
function j4save(IWHICH, IVALUE, ISET)
Definition: j4save.f:3
subroutine xerclr
Definition: xerclr.f:3