LAPACK
3.4.2
LAPACK: Linear Algebra PACKage
Main Page
Modules
Files
File List
File Members
All
Files
Functions
Groups
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 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
BLAS
SRC
xerbla.f
Generated on Tue Sep 25 2012 16:27:02 for LAPACK by
1.8.1.1