1: *> \brief \b XERBLA
2: *
3: * =========== DOCUMENTATION ===========
4: *
5: * Online html documentation available at
6: * http://www.netlib.org/lapack/explore-html/
7: *
8: *> \htmlonly
9: *> Download XERBLA + dependencies
10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/xerbla.f">
11: *> [TGZ]</a>
12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/xerbla.f">
13: *> [ZIP]</a>
14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/xerbla.f">
15: *> [TXT]</a>
16: *> \endhtmlonly
17: *
18: * Definition:
19: * ===========
20: *
21: * SUBROUTINE XERBLA( SRNAME, INFO )
22: *
23: * .. Scalar Arguments ..
24: * CHARACTER*(*) SRNAME
25: * INTEGER INFO
26: * ..
27: *
28: *
29: *> \par Purpose:
30: * =============
31: *>
32: *> \verbatim
33: *>
34: *> XERBLA is an error handler for the LAPACK routines.
35: *> It is called by an LAPACK routine if an input parameter has an
36: *> invalid value. A message is printed and execution stops.
37: *>
38: *> Installers may consider modifying the STOP statement in order to
39: *> call system-specific exception-handling facilities.
40: *> \endverbatim
41: *
42: * Arguments:
43: * ==========
44: *
45: *> \param[in] SRNAME
46: *> \verbatim
47: *> SRNAME is CHARACTER*(*)
48: *> The name of the routine which called XERBLA.
49: *> \endverbatim
50: *>
51: *> \param[in] INFO
52: *> \verbatim
53: *> INFO is INTEGER
54: *> The position of the invalid parameter in the parameter list
55: *> of the calling routine.
56: *> \endverbatim
57: *
58: * Authors:
59: * ========
60: *
61: *> \author Univ. of Tennessee
62: *> \author Univ. of California Berkeley
63: *> \author Univ. of Colorado Denver
64: *> \author NAG Ltd.
65: *
66: *> \date November 2011
67: *
68: *> \ingroup auxOTHERauxiliary
69: *
70: * =====================================================================
71: SUBROUTINE XERBLA( SRNAME, INFO )
72: *
73: * -- LAPACK auxiliary routine (version 3.4.0) --
74: * -- LAPACK is a software package provided by Univ. of Tennessee, --
75: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
76: * November 2011
77: *
78: * .. Scalar Arguments ..
79: CHARACTER*(*) SRNAME
80: INTEGER INFO
81: * ..
82: *
83: * =====================================================================
84: *
85: * .. Intrinsic Functions ..
86: INTRINSIC LEN_TRIM
87: * ..
88: * .. Executable Statements ..
89: *
90: WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
91: *
92: STOP
93: *
94: 9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
95: $ 'an illegal value' )
96: *
97: * End of XERBLA
98: *
99: END
CVSweb interface <joel.bertrand@systella.fr>