65 lines
2.1 KiB
C
65 lines
2.1 KiB
C
/* xerhlt.f -- translated by f2c (version 20030320).
|
|
You must link the resulting object file with the libraries:
|
|
-lf2c -lm (in that order)
|
|
*/
|
|
|
|
#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_ */
|
|
|