GNU Octave  4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
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
subroutine xerbla(SRNAME, INFO)
Definition: xerbla.f:1