LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
 All Classes Files Functions Variables Typedefs Macros
xerbla.f
Go to the documentation of this file.
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