source: LMDZ5/trunk/libf/misc/xerhlt.F @ 2496

Last change on this file since 2496 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: 1.4 KB
Line 
1*DECK XERHLT
2      SUBROUTINE XERHLT (MESSG)
3C***BEGIN PROLOGUE  XERHLT
4C***SUBSIDIARY
5C***PURPOSE  Abort program execution and print error message.
6C***LIBRARY   SLATEC (XERROR)
7C***CATEGORY  R3C
8C***TYPE      ALL (XERHLT-A)
9C***KEYWORDS  ABORT PROGRAM EXECUTION, ERROR, XERROR
10C***AUTHOR  Jones, R. E., (SNLA)
11C***DESCRIPTION
12C
13C     Abstract
14C        ***Note*** machine dependent routine
15C        XERHLT aborts the execution of the program.
16C        The error message causing the abort is given in the calling
17C        sequence, in case one needs it for printing on a dayfile,
18C        for example.
19C
20C     Description of Parameters
21C        MESSG is as in XERMSG.
22C
23C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
24C                 Error-handling Package, SAND82-0800, Sandia
25C                 Laboratories, 1982.
26C***ROUTINES CALLED  (NONE)
27C***REVISION HISTORY  (YYMMDD)
28C   790801  DATE WRITTEN
29C   861211  REVISION DATE from Version 3.2
30C   891214  Prologue converted to Version 4.0 format.  (BAB)
31C   900206  Routine changed from user-callable to subsidiary.  (WRB)
32C   900510  Changed calling sequence to delete length of character
33C           and changed routine name from XERABT to XERHLT.  (RWC)
34C   920501  Reformatted the REFERENCES section.  (WRB)
35C***END PROLOGUE  XERHLT
36      CHARACTER*(*) MESSG
37C***FIRST EXECUTABLE STATEMENT  XERHLT
38      STOP
39      END
Note: See TracBrowser for help on using the repository browser.