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
subroutine xerbla(SRNAME, INFO)
Definition: xerbla.f:2