GNU Octave  3.8.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
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