Annotation of rpl/lapack/lapack/xerbla.f, revision 1.9
1.9 ! bertrand 1: *> \brief \b XERBLA
! 2: *
! 3: * =========== DOCUMENTATION ===========
! 4: *
! 5: * Online html documentation available at
! 6: * http://www.netlib.org/lapack/explore-html/
! 7: *
! 8: *> \htmlonly
! 9: *> Download XERBLA + dependencies
! 10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/xerbla.f">
! 11: *> [TGZ]</a>
! 12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/xerbla.f">
! 13: *> [ZIP]</a>
! 14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/xerbla.f">
! 15: *> [TXT]</a>
! 16: *> \endhtmlonly
! 17: *
! 18: * Definition:
! 19: * ===========
! 20: *
! 21: * SUBROUTINE XERBLA( SRNAME, INFO )
! 22: *
! 23: * .. Scalar Arguments ..
! 24: * CHARACTER*(*) SRNAME
! 25: * INTEGER INFO
! 26: * ..
! 27: *
! 28: *
! 29: *> \par Purpose:
! 30: * =============
! 31: *>
! 32: *> \verbatim
! 33: *>
! 34: *> XERBLA is an error handler for the LAPACK routines.
! 35: *> It is called by an LAPACK routine if an input parameter has an
! 36: *> invalid value. A message is printed and execution stops.
! 37: *>
! 38: *> Installers may consider modifying the STOP statement in order to
! 39: *> call system-specific exception-handling facilities.
! 40: *> \endverbatim
! 41: *
! 42: * Arguments:
! 43: * ==========
! 44: *
! 45: *> \param[in] SRNAME
! 46: *> \verbatim
! 47: *> SRNAME is CHARACTER*(*)
! 48: *> The name of the routine which called XERBLA.
! 49: *> \endverbatim
! 50: *>
! 51: *> \param[in] INFO
! 52: *> \verbatim
! 53: *> INFO is INTEGER
! 54: *> The position of the invalid parameter in the parameter list
! 55: *> of the calling routine.
! 56: *> \endverbatim
! 57: *
! 58: * Authors:
! 59: * ========
! 60: *
! 61: *> \author Univ. of Tennessee
! 62: *> \author Univ. of California Berkeley
! 63: *> \author Univ. of Colorado Denver
! 64: *> \author NAG Ltd.
! 65: *
! 66: *> \date November 2011
! 67: *
! 68: *> \ingroup auxOTHERauxiliary
! 69: *
! 70: * =====================================================================
1.1 bertrand 71: SUBROUTINE XERBLA( SRNAME, INFO )
72: *
1.9 ! bertrand 73: * -- LAPACK auxiliary routine (version 3.4.0) --
1.1 bertrand 74: * -- LAPACK is a software package provided by Univ. of Tennessee, --
75: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
1.9 ! bertrand 76: * November 2011
1.1 bertrand 77: *
78: * .. Scalar Arguments ..
79: CHARACTER*(*) SRNAME
80: INTEGER INFO
81: * ..
82: *
83: * =====================================================================
84: *
85: * .. Intrinsic Functions ..
86: INTRINSIC LEN_TRIM
87: * ..
88: * .. Executable Statements ..
89: *
90: WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
91: *
92: STOP
93: *
94: 9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
95: $ 'an illegal value' )
96: *
97: * End of XERBLA
98: *
99: END
CVSweb interface <joel.bertrand@systella.fr>