Annotation of rpl/lapack/blas/xerbla.f, revision 1.7
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>