You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
59 lines
1.6 KiB
59 lines
1.6 KiB
#include "blaswrap.h"
|
|
#include "f2c.h"
|
|
|
|
/* Subroutine */ int xerbla_(char *srname, integer *info)
|
|
{
|
|
/* -- LAPACK auxiliary routine (preliminary version) --
|
|
Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
|
|
Courant Institute, Argonne National Lab, and Rice University
|
|
February 29, 1992
|
|
|
|
|
|
Purpose
|
|
=======
|
|
|
|
XERBLA is an error handler for the LAPACK routines.
|
|
It is called by an LAPACK routine if an input parameter has an
|
|
invalid value. A message is printed and execution stops.
|
|
|
|
Installers may consider modifying the STOP statement in order to
|
|
call system-specific exception-handling facilities.
|
|
|
|
Arguments
|
|
=========
|
|
|
|
SRNAME (input) CHARACTER*6
|
|
The name of the routine which called XERBLA.
|
|
|
|
INFO (input) INTEGER
|
|
The position of the invalid parameter in the parameter list
|
|
of the calling routine. */
|
|
/* Table of constant values */
|
|
static integer c__1 = 1;
|
|
|
|
/* Format strings */
|
|
static char fmt_9999[] = "(\002 ** On entry to \002,a6,\002 parameter nu"
|
|
"mber \002,i2,\002 had \002,\002an illegal value\002)";
|
|
/* Builtin functions */
|
|
integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void);
|
|
/* Subroutine */ int s_stop(char *, ftnlen);
|
|
/* Fortran I/O blocks */
|
|
static cilist io___1 = { 0, 6, 0, fmt_9999, 0 };
|
|
|
|
|
|
|
|
|
|
s_wsfe(&io___1);
|
|
do_fio(&c__1, srname, (ftnlen)6);
|
|
do_fio(&c__1, (char *)&(*info), (ftnlen)sizeof(integer));
|
|
e_wsfe();
|
|
|
|
s_stop("", (ftnlen)0);
|
|
|
|
|
|
/* End of XERBLA */
|
|
|
|
return 0;
|
|
} /* xerbla_ */
|
|
|