78 lines
2.5 KiB
C
78 lines
2.5 KiB
C
/* xerhlt.f -- translated by f2c (version 20031025).
|
|
You must link the resulting object file with libf2c:
|
|
on Microsoft Windows system, link with libf2c.lib;
|
|
on Linux or Unix systems, link with .../path/to/libf2c.a -lm
|
|
or, if you install libf2c.a in a standard place, with -lf2c -lm
|
|
-- in that order, at the end of the command line, as in
|
|
cc *.o -lf2c -lm
|
|
Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
|
|
|
|
http://www.netlib.org/f2c/libf2c.zip
|
|
*/
|
|
|
|
#ifdef _cpluscplus
|
|
extern "C" {
|
|
#endif
|
|
#include "f2c.h"
|
|
|
|
/* Table of constant values */
|
|
|
|
static integer c__9 = 9;
|
|
static integer c__1 = 1;
|
|
|
|
/* DECK XERHLT */
|
|
/* Subroutine */ int xerhlt_(char *messg, ftnlen messg_len)
|
|
{
|
|
/* Builtin functions */
|
|
integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
|
|
e_wsle(void);
|
|
/* Subroutine */ int s_stop(char *, ftnlen);
|
|
|
|
/* Fortran I/O blocks */
|
|
static cilist io___1 = { 0, 6, 0, 0, 0 };
|
|
|
|
|
|
/* ***BEGIN PROLOGUE XERHLT */
|
|
/* ***SUBSIDIARY */
|
|
/* ***PURPOSE Abort program execution and print error message. */
|
|
/* ***LIBRARY SLATEC (XERROR) */
|
|
/* ***CATEGORY R3C */
|
|
/* ***TYPE ALL (XERHLT-A) */
|
|
/* ***KEYWORDS ABORT PROGRAM EXECUTION, ERROR, XERROR */
|
|
/* ***AUTHOR Jones, R. E., (SNLA) */
|
|
/* ***DESCRIPTION */
|
|
|
|
/* Abstract */
|
|
/* ***Note*** machine dependent routine */
|
|
/* XERHLT aborts the execution of the program. */
|
|
/* The error message causing the abort is given in the calling */
|
|
/* sequence, in case one needs it for printing on a dayfile, */
|
|
/* for example. */
|
|
|
|
/* Description of Parameters */
|
|
/* MESSG is as in XERMSG. */
|
|
|
|
/* ***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC */
|
|
/* Error-handling Package, SAND82-0800, Sandia */
|
|
/* Laboratories, 1982. */
|
|
/* ***ROUTINES CALLED (NONE) */
|
|
/* ***REVISION HISTORY (YYMMDD) */
|
|
/* 790801 DATE WRITTEN */
|
|
/* 861211 REVISION DATE from Version 3.2 */
|
|
/* 891214 Prologue converted to Version 4.0 format. (BAB) */
|
|
/* 900206 Routine changed from user-callable to subsidiary. (WRB) */
|
|
/* 900510 Changed calling sequence to delete length of character */
|
|
/* and changed routine name from XERABT to XERHLT. (RWC) */
|
|
/* 920501 Reformatted the REFERENCES section. (WRB) */
|
|
/* ***END PROLOGUE XERHLT */
|
|
/* ***FIRST EXECUTABLE STATEMENT XERHLT */
|
|
s_wsle(&io___1);
|
|
do_lio(&c__9, &c__1, "stopping...", (ftnlen)11);
|
|
e_wsle();
|
|
s_stop("", (ftnlen)0);
|
|
return 0;
|
|
} /* xerhlt_ */
|
|
|
|
#ifdef _cpluscplus
|
|
}
|
|
#endif
|