Annotation of rpl/lapack/blas/xerbla.f, revision 1.3
1.1 bertrand 1: SUBROUTINE XERBLA( SRNAME, INFO )
2: *
3: * -- LAPACK auxiliary routine (preliminary version) --
4: * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5: * November 2006
6: *
7: * .. Scalar Arguments ..
8: CHARACTER*(*) SRNAME
9: INTEGER INFO
10: * ..
11: *
12: * Purpose
13: * =======
14: *
15: * XERBLA is an error handler for the LAPACK routines.
16: * It is called by an LAPACK routine if an input parameter has an
17: * invalid value. A message is printed and execution stops.
18: *
19: * Installers may consider modifying the STOP statement in order to
20: * call system-specific exception-handling facilities.
21: *
22: * Arguments
23: * =========
24: *
25: * SRNAME (input) CHARACTER*(*)
26: * The name of the routine which called XERBLA.
27: *
28: * INFO (input) INTEGER
29: * The position of the invalid parameter in the parameter list
30: * of the calling routine.
31: *
32: * =====================================================================
33: *
34: * .. Intrinsic Functions ..
35: INTRINSIC LEN_TRIM
36: * ..
37: * .. Executable Statements ..
38: *
39: WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
40: *
41: STOP
42: *
43: 9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
44: $ 'an illegal value' )
45: *
46: * End of XERBLA
47: *
48: END
CVSweb interface <joel.bertrand@systella.fr>