GNU Octave
4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
Main Page
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Properties
Friends
Macros
Pages
liboctave
cruft
blas-xtra
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
CALL xstopx(
' '
)
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:1
Generated on Thu Jun 4 2015 23:30:23 for GNU Octave by
1.8.8