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: *> \ingroup OTHERauxiliary
67: *
68: * =====================================================================
69: SUBROUTINE XERBLA( SRNAME, INFO )
70: *
71: * -- LAPACK auxiliary routine --
72: * -- LAPACK is a software package provided by Univ. of Tennessee, --
73: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
74: *
75: * .. Scalar Arguments ..
76: CHARACTER*(*) SRNAME
77: INTEGER INFO
78: * ..
79: *
80: * =====================================================================
81: *
82: * .. Intrinsic Functions ..
83: INTRINSIC LEN_TRIM
84: * ..
85: * .. Executable Statements ..
86: *
87: WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
88: *
89: STOP
90: *
91: 9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
92: $ 'an illegal value' )
93: *
94: * End of XERBLA
95: *
96: END
CVSweb interface <joel.bertrand@systella.fr>