1 |
heimbach |
1.1 |
SUBROUTINE XERBLA( SRNAME, INFO ) |
2 |
|
|
* |
3 |
|
|
* -- LAPACK auxiliary routine (preliminary version) -- |
4 |
|
|
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., |
5 |
|
|
* Courant Institute, Argonne National Lab, and Rice University |
6 |
|
|
* February 29, 1992 |
7 |
|
|
* |
8 |
|
|
* .. Scalar Arguments .. |
9 |
|
|
CHARACTER*6 SRNAME |
10 |
|
|
INTEGER INFO |
11 |
|
|
* .. |
12 |
|
|
* |
13 |
|
|
* Purpose |
14 |
|
|
* ======= |
15 |
|
|
* |
16 |
|
|
* XERBLA is an error handler for the LAPACK routines. |
17 |
|
|
* It is called by an LAPACK routine if an input parameter has an |
18 |
|
|
* invalid value. A message is printed and execution stops. |
19 |
|
|
* |
20 |
|
|
* Installers may consider modifying the STOP statement in order to |
21 |
|
|
* call system-specific exception-handling facilities. |
22 |
|
|
* |
23 |
|
|
* Arguments |
24 |
|
|
* ========= |
25 |
|
|
* |
26 |
|
|
* SRNAME (input) CHARACTER*6 |
27 |
|
|
* The name of the routine which called XERBLA. |
28 |
|
|
* |
29 |
|
|
* INFO (input) INTEGER |
30 |
|
|
* The position of the invalid parameter in the parameter list |
31 |
|
|
* of the calling routine. |
32 |
|
|
* |
33 |
|
|
* |
34 |
|
|
WRITE( *, FMT = 9999 )SRNAME, INFO |
35 |
|
|
* |
36 |
|
|
STOP |
37 |
|
|
* |
38 |
|
|
9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ', |
39 |
|
|
$ 'an illegal value' ) |
40 |
|
|
* |
41 |
|
|
* End of XERBLA |
42 |
|
|
* |
43 |
|
|
END |