KTH framework for Nek5000 toolboxes; testing version
0.0.1
xerbla.f
Go to the documentation of this file.
1
SUBROUTINE
xerbla
( SRNAME, INFO )
2
*
3
* -- LAPACK auxiliary routine (preliminary version) --
4
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
5
* Courant Institute, Argonne National Lab, and Rice University
6
* February 29, 1992
7
*
8
* .. Scalar Arguments ..
9
CHARACTER*6
SRNAME
10
INTEGER
INFO
11
* ..
12
*
13
* Purpose
14
* =======
15
*
16
* XERBLA is an error handler for the LAPACK routines.
17
* It is called by an LAPACK routine if an input parameter has an
18
* invalid value. A message is printed and execution stops.
19
*
20
* Installers may consider modifying the STOP statement in order to
21
* call system-specific exception-handling facilities.
22
*
23
* Arguments
24
* =========
25
*
26
* SRNAME (input) CHARACTER*6
27
* The name of the routine which called XERBLA.
28
*
29
* INFO (input) INTEGER
30
* The position of the invalid parameter in the parameter list
31
* of the calling routine.
32
*
33
*
34
WRITE
( *, fmt = 9999 )srname, info
35
*
36
stop
37
*
38
9999
FORMAT
(
' ** On entry to '
, a6,
' parameter number '
, i2,
' had '
,
39
$
'an illegal value'
)
40
*
41
* End of XERBLA
42
*
43
END
xerbla
subroutine xerbla(SRNAME, INFO)
Definition:
xerbla.f:2
Nek5000
3rd_party
blasLapack
xerbla.f
Generated on Tue Jun 4 2024 12:44:42 for KTH framework for Nek5000 toolboxes; testing version by
1.9.1