|
3691
|
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 CALL XSTOPX (' ') |
|
|
37 * |
|
|
38 9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ', |
|
|
39 $ 'an illegal value' ) |
|
|
40 * |
|
|
41 * End of XERBLA |
|
|
42 * |
|
|
43 END |
