source: LMDZ5/branches/LMDZ5_SPLA/libf/bibio/xercnt.F @ 3064

Last change on this file since 3064 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.

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