1*> \brief \b XERBLA 2* 3* =========== DOCUMENTATION =========== 4* 5* Online html documentation available at 6* http://www.netlib.org/lapack/explore-html/ 7* 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. 55* 56*> \date November 2011 57* 58*> \ingroup aux_blas 59* 60* ===================================================================== 61 SUBROUTINE XERBLA( SRNAME, INFO ) 62* 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 67* 68* .. Scalar Arguments .. 69 CHARACTER*(*) SRNAME 70 INTEGER INFO 71* .. 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 90