1: SUBROUTINE XERBLA( SRNAME, INFO )
2: *
3: * -- LAPACK auxiliary routine (version 3.2) --
4: * -- LAPACK is a software package provided by Univ. of Tennessee, --
5: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
6: * November 2006
7: *
8: * .. Scalar Arguments ..
9: CHARACTER*(*) 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*(*)
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: *
35: * .. Intrinsic Functions ..
36: INTRINSIC LEN_TRIM
37: * ..
38: * .. Executable Statements ..
39: *
40: WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
41: *
42: STOP
43: *
44: 9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
45: $ 'an illegal value' )
46: *
47: * End of XERBLA
48: *
49: END
CVSweb interface <joel.bertrand@systella.fr>