Mercurial > forge
comparison main/sparse/SuperLU/SRC/xerbla.c @ 0:6b33357c7561 octave-forge
Initial revision
author | pkienzle |
---|---|
date | Wed, 10 Oct 2001 19:54:49 +0000 |
parents | |
children | 7dad48fc229c |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:6b33357c7561 |
---|---|
1 /* Subroutine */ int xerbla_(char *srname, int *info) | |
2 { | |
3 /* -- LAPACK auxiliary routine (version 2.0) -- | |
4 Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., | |
5 Courant Institute, Argonne National Lab, and Rice University | |
6 September 30, 1994 | |
7 | |
8 | |
9 Purpose | |
10 ======= | |
11 | |
12 XERBLA is an error handler for the LAPACK routines. | |
13 It is called by an LAPACK routine if an input parameter has an | |
14 invalid value. A message is printed and execution stops. | |
15 | |
16 Installers may consider modifying the STOP statement in order to | |
17 call system-specific exception-handling facilities. | |
18 | |
19 Arguments | |
20 ========= | |
21 | |
22 SRNAME (input) CHARACTER*6 | |
23 The name of the routine which called XERBLA. | |
24 | |
25 INFO (input) INT | |
26 The position of the invalid parameter in the parameter list | |
27 | |
28 of the calling routine. | |
29 | |
30 ===================================================================== | |
31 */ | |
32 | |
33 printf("** On entry to %6s, parameter number %2d had an illegal value\n", | |
34 srname, *info); | |
35 | |
36 /* End of XERBLA */ | |
37 | |
38 return 0; | |
39 } /* xerbla_ */ | |
40 |