source: LMDZ6/trunk/libf/misc/xercnt.F @ 3347

Last change on this file since 3347 was 2197, checked in by Ehouarn Millour, 10 years ago

Added 'implicit none' statements and proper variable definitions where they were missing.
EM

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 2.5 KB
Line 
1*DECK XERCNT
2      SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
3      IMPLICIT NONE
4C***BEGIN PROLOGUE  XERCNT
5C***SUBSIDIARY
6C***PURPOSE  Allow user control over handling of errors.
7C***LIBRARY   SLATEC (XERROR)
8C***CATEGORY  R3C
9C***TYPE      ALL (XERCNT-A)
10C***KEYWORDS  ERROR, XERROR
11C***AUTHOR  Jones, R. E., (SNLA)
12C***DESCRIPTION
13C
14C     Abstract
15C        Allows user control over handling of individual errors.
16C        Just after each message is recorded, but before it is
17C        processed any further (i.e., before it is printed or
18C        a decision to abort is made), a call is made to XERCNT.
19C        If the user has provided his own version of XERCNT, he
20C        can then override the value of KONTROL used in processing
21C        this message by redefining its value.
22C        KONTRL may be set to any value from -2 to 2.
23C        The meanings for KONTRL are the same as in XSETF, except
24C        that the value of KONTRL changes only for this message.
25C        If KONTRL is set to a value outside the range from -2 to 2,
26C        it will be moved back into that range.
27C
28C     Description of Parameters
29C
30C      --Input--
31C        LIBRAR - the library that the routine is in.
32C        SUBROU - the subroutine that XERMSG is being called from
33C        MESSG  - the first 20 characters of the error message.
34C        NERR   - same as in the call to XERMSG.
35C        LEVEL  - same as in the call to XERMSG.
36C        KONTRL - the current value of the control flag as set
37C                 by a call to XSETF.
38C
39C      --Output--
40C        KONTRL - the new value of KONTRL.  If KONTRL is not
41C                 defined, it will remain at its original value.
42C                 This changed value of control affects only
43C                 the current occurrence of the current message.
44C
45C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
46C                 Error-handling Package, SAND82-0800, Sandia
47C                 Laboratories, 1982.
48C***ROUTINES CALLED  (NONE)
49C***REVISION HISTORY  (YYMMDD)
50C   790801  DATE WRITTEN
51C   861211  REVISION DATE from Version 3.2
52C   891214  Prologue converted to Version 4.0 format.  (BAB)
53C   900206  Routine changed from user-callable to subsidiary.  (WRB)
54C   900510  Changed calling sequence to include LIBRARY and SUBROUTINE
55C           names, changed routine name from XERCTL to XERCNT.  (RWC)
56C   920501  Reformatted the REFERENCES section.  (WRB)
57C***END PROLOGUE  XERCNT
58      CHARACTER*(*) LIBRAR, SUBROU, MESSG
59      INTEGER NERR, LEVEL, KONTRL
60C***FIRST EXECUTABLE STATEMENT  XERCNT
61      RETURN
62      END
Note: See TracBrowser for help on using the repository browser.