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 November 2011
57*
58*> \ingroup aux_blas
59*
60*  =====================================================================
61      SUBROUTINE XERBLA( SRNAME, INFO )
62*
63*  -- Reference BLAS level1 routine (version 3.4.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*     November 2011
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
90