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 * Definition:
9 * ===========
10 *
11 * SUBROUTINE XERBLA( SRNAME, INFO )
12 *
13 * .. Scalar Arguments ..
14 * CHARACTER*(*) SRNAME
15 * INTEGER INFO
16 * ..
17 *
18 *
19 *> \par Purpose:
20 * =============
21 *>
22 *> \verbatim
23 *>
24 *> XERBLA is an error handler for the LAPACK routines.
25 *> It is called by an LAPACK routine if an input parameter has an
26 *> invalid value. A message is printed and execution stops.
27 *>
28 *> Installers may consider modifying the STOP statement in order to
29 *> call system-specific exception-handling facilities.
30 *> \endverbatim
31 *
32 * Arguments:
33 * ==========
34 *
35 *> \param[in] SRNAME
36 *> \verbatim
37 *> SRNAME is CHARACTER*(*)
38 *> The name of the routine which called XERBLA.
39 *> \endverbatim
40 *>
41 *> \param[in] INFO
42 *> \verbatim
43 *> INFO is INTEGER
44 *> The position of the invalid parameter in the parameter list
45 *> of the calling routine.
46 *> \endverbatim
47 *
48 * Authors:
49 * ========
50 *
51 *> \author Univ. of Tennessee
52 *> \author Univ. of California Berkeley
53 *> \author Univ. of Colorado Denver
54 *> \author NAG Ltd.
55 *
56 *> \ingroup aux_blas
57 *
58 * =====================================================================
59  SUBROUTINE xerbla( SRNAME, INFO )
60 *
61 * -- Reference BLAS level1 routine --
62 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
63 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
64 *
65 * .. Scalar Arguments ..
66  CHARACTER*(*) SRNAME
67  INTEGER INFO
68 * ..
69 *
70 * =====================================================================
71 *
72 * .. Intrinsic Functions ..
73  INTRINSIC len_trim
74 * ..
75 * .. Executable Statements ..
76 *
77  WRITE( *, fmt = 9999 )srname( 1:len_trim( srname ) ), info
78 *
79  stop
80 *
81  9999 FORMAT( ' ** On entry to ', a, ' parameter number ', i2, ' had ',
82  $ 'an illegal value' )
83 *
84 * End of XERBLA
85 *
86  END
subroutine xerbla(SRNAME, INFO)
XERBLA
Definition: xerbla.f:60