Annotation of rpl/lapack/blas/xerbla.f, revision 1.10
1.7 bertrand 1: *> \brief \b XERBLA
1.1 bertrand 2: *
1.7 bertrand 3: * =========== DOCUMENTATION ===========
1.1 bertrand 4: *
1.7 bertrand 5: * Online html documentation available at
6: * http://www.netlib.org/lapack/explore-html/
1.1 bertrand 7: *
1.7 bertrand 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.
1.1 bertrand 55: *
1.7 bertrand 56: *> \date November 2011
1.1 bertrand 57: *
1.7 bertrand 58: *> \ingroup aux_blas
1.1 bertrand 59: *
1.7 bertrand 60: * =====================================================================
61: SUBROUTINE XERBLA( SRNAME, INFO )
1.1 bertrand 62: *
1.7 bertrand 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
1.1 bertrand 67: *
1.7 bertrand 68: * .. Scalar Arguments ..
69: CHARACTER*(*) SRNAME
70: INTEGER INFO
71: * ..
1.1 bertrand 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
CVSweb interface <joel.bertrand@systella.fr>