LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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
xerbla
subroutine xerbla(SRNAME, INFO)
XERBLA
Definition: xerbla.f:60