LAPACK  3.10.0
LAPACK: Linear Algebra PACKage
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 *> \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
subroutine xerbla(SRNAME, INFO)
XERBLA
Definition: xerbla.f:60