LAPACK  3.8.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 *> \date December 2016
57 *
58 *> \ingroup aux_blas
59 *
60 * =====================================================================
61  SUBROUTINE xerbla( SRNAME, INFO )
62 *
63 * -- Reference BLAS level1 routine (version 3.7.0) --
64 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
65 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
66 * December 2016
67 *
68 * .. Scalar Arguments ..
69  CHARACTER*(*) SRNAME
70  INTEGER INFO
71 * ..
72 *
73 * =====================================================================
74 *
75 * .. Intrinsic Functions ..
76  INTRINSIC len_trim
77 * ..
78 * .. Executable Statements ..
79 *
80  WRITE( *, fmt = 9999 )srname( 1:len_trim( srname ) ), info
81 *
82  stop
83 *
84  9999 FORMAT( ' ** On entry to ', a, ' parameter number ', i2, ' had ',
85  $ 'an illegal value' )
86 *
87 * End of XERBLA
88 *
89  END
subroutine xerbla(SRNAME, INFO)
XERBLA
Definition: xerbla.f:62