1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
/* xerbla.f -- translated by f2c (version 19991025).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
*/
#include "f2c.h"
/* Common Block Declarations */
struct {
integer ifiles[30];
} chanel_;
#define chanel_1 chanel_
/* Table of constant values */
static integer c__1 = 1;
/* Subroutine */ int xerbla_(srname, info, srname_len)
char *srname;
integer *info;
ftnlen srname_len;
{
/* 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(), do_fio(), e_wsfe();
/* Subroutine */ int s_stop();
/* Local variables */
#define iw ((integer *)&chanel_1 + 5)
/* Fortran I/O blocks */
static cilist io___2 = { 0, 0, 0, fmt_9999, 0 };
/* -- LAPACK AUXILIARY ROUTINE (VERSION 1.0B) -- */
/* UNIV. OF TENNESSEE, UNIV. OF CALIFORNIA BERKELEY, NAG LTD., */
/* COURANT INSTITUTE, ARGONNE NATIONAL LAB, AND RICE UNIVERSITY */
/* FEBRUARY 29, 1992 */
/* .. SCALAR ARGUMENTS .. */
/* MOPAC CHANGE */
/* END OF MOPAC CHANGE */
/* .. */
/* 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. */
/* .. EXECUTABLE STATEMENTS .. */
/* MOPAC CHANGE */
/* WRITE( *, FMT = 9999 )SRNAME, INFO */
io___2.ciunit = *iw;
s_wsfe(&io___2);
do_fio(&c__1, srname, (ftnlen)6);
do_fio(&c__1, (char *)&(*info), (ftnlen)sizeof(integer));
e_wsfe();
/* END OF MOPAC CHANGE */
s_stop("", (ftnlen)0);
/* END OF XERBLA */
} /* xerbla_ */
#undef iw
|
