![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b XERBLA 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 * Definition: 00009 * =========== 00010 * 00011 * SUBROUTINE XERBLA( SRNAME, INFO ) 00012 * 00013 * .. Scalar Arguments .. 00014 * CHARACTER*(*) SRNAME 00015 * INTEGER INFO 00016 * .. 00017 * 00018 * 00019 *> \par Purpose: 00020 * ============= 00021 *> 00022 *> \verbatim 00023 *> 00024 *> XERBLA is an error handler for the LAPACK routines. 00025 *> It is called by an LAPACK routine if an input parameter has an 00026 *> invalid value. A message is printed and execution stops. 00027 *> 00028 *> Installers may consider modifying the STOP statement in order to 00029 *> call system-specific exception-handling facilities. 00030 *> \endverbatim 00031 * 00032 * Arguments: 00033 * ========== 00034 * 00035 *> \param[in] SRNAME 00036 *> \verbatim 00037 *> SRNAME is CHARACTER*(*) 00038 *> The name of the routine which called XERBLA. 00039 *> \endverbatim 00040 *> 00041 *> \param[in] INFO 00042 *> \verbatim 00043 *> INFO is INTEGER 00044 *> The position of the invalid parameter in the parameter list 00045 *> of the calling routine. 00046 *> \endverbatim 00047 * 00048 * Authors: 00049 * ======== 00050 * 00051 *> \author Univ. of Tennessee 00052 *> \author Univ. of California Berkeley 00053 *> \author Univ. of Colorado Denver 00054 *> \author NAG Ltd. 00055 * 00056 *> \date November 2011 00057 * 00058 *> \ingroup aux_blas 00059 * 00060 * ===================================================================== 00061 SUBROUTINE XERBLA( SRNAME, INFO ) 00062 * 00063 * -- Reference BLAS level1 routine (version 3.4.0) -- 00064 * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- 00065 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00066 * November 2011 00067 * 00068 * .. Scalar Arguments .. 00069 CHARACTER*(*) SRNAME 00070 INTEGER INFO 00071 * .. 00072 * 00073 * ===================================================================== 00074 * 00075 * .. Intrinsic Functions .. 00076 INTRINSIC LEN_TRIM 00077 * .. 00078 * .. Executable Statements .. 00079 * 00080 WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO 00081 * 00082 STOP 00083 * 00084 9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ', 00085 $ 'an illegal value' ) 00086 * 00087 * End of XERBLA 00088 * 00089 END