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 |