--- rpl/lapack/blas/xerbla.f 2010/12/21 13:51:26 1.6 +++ rpl/lapack/blas/xerbla.f 2011/11/21 20:37:08 1.7 @@ -1,33 +1,74 @@ - SUBROUTINE XERBLA( SRNAME, INFO ) +*> \brief \b XERBLA * -* -- LAPACK auxiliary routine (preliminary version) -- -* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* =========== DOCUMENTATION =========== * -* .. Scalar Arguments .. - CHARACTER*(*) SRNAME - INTEGER INFO -* .. +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * -* Purpose -* ======= +* Definition: +* =========== +* +* SUBROUTINE XERBLA( SRNAME, INFO ) +* +* .. Scalar Arguments .. +* CHARACTER*(*) SRNAME +* INTEGER INFO +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> XERBLA is an error handler for the LAPACK routines. +*> It is called by an LAPACK routine if an input parameter has an +*> invalid value. A message is printed and execution stops. +*> +*> Installers may consider modifying the STOP statement in order to +*> call system-specific exception-handling facilities. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] SRNAME +*> \verbatim +*> SRNAME is CHARACTER*(*) +*> The name of the routine which called XERBLA. +*> \endverbatim +*> +*> \param[in] INFO +*> \verbatim +*> INFO is INTEGER +*> The position of the invalid parameter in the parameter list +*> of the calling routine. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * -* XERBLA is an error handler for the LAPACK routines. -* It is called by an LAPACK routine if an input parameter has an -* invalid value. A message is printed and execution stops. +*> \date November 2011 * -* Installers may consider modifying the STOP statement in order to -* call system-specific exception-handling facilities. +*> \ingroup aux_blas * -* Arguments -* ========= +* ===================================================================== + SUBROUTINE XERBLA( SRNAME, INFO ) * -* SRNAME (input) CHARACTER*(*) -* The name of the routine which called XERBLA. +* -- Reference BLAS level1 routine (version 3.4.0) -- +* -- Reference BLAS is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* November 2011 * -* INFO (input) INTEGER -* The position of the invalid parameter in the parameter list -* of the calling routine. +* .. Scalar Arguments .. + CHARACTER*(*) SRNAME + INTEGER INFO +* .. * * ===================================================================== *