![]() |
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 *> \htmlonly 00009 *> Download XERBLA + dependencies 00010 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/xerbla.f"> 00011 *> [TGZ]</a> 00012 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/xerbla.f"> 00013 *> [ZIP]</a> 00014 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/xerbla.f"> 00015 *> [TXT]</a> 00016 *> \endhtmlonly 00017 * 00018 * Definition: 00019 * =========== 00020 * 00021 * SUBROUTINE XERBLA( SRNAME, INFO ) 00022 * 00023 * .. Scalar Arguments .. 00024 * CHARACTER*(*) SRNAME 00025 * INTEGER INFO 00026 * .. 00027 * 00028 * 00029 *> \par Purpose: 00030 * ============= 00031 *> 00032 *> \verbatim 00033 *> 00034 *> XERBLA is an error handler for the LAPACK routines. 00035 *> It is called by an LAPACK routine if an input parameter has an 00036 *> invalid value. A message is printed and execution stops. 00037 *> 00038 *> Installers may consider modifying the STOP statement in order to 00039 *> call system-specific exception-handling facilities. 00040 *> \endverbatim 00041 * 00042 * Arguments: 00043 * ========== 00044 * 00045 *> \param[in] SRNAME 00046 *> \verbatim 00047 *> SRNAME is CHARACTER*(*) 00048 *> The name of the routine which called XERBLA. 00049 *> \endverbatim 00050 *> 00051 *> \param[in] INFO 00052 *> \verbatim 00053 *> INFO is INTEGER 00054 *> The position of the invalid parameter in the parameter list 00055 *> of the calling routine. 00056 *> \endverbatim 00057 * 00058 * Authors: 00059 * ======== 00060 * 00061 *> \author Univ. of Tennessee 00062 *> \author Univ. of California Berkeley 00063 *> \author Univ. of Colorado Denver 00064 *> \author NAG Ltd. 00065 * 00066 *> \date November 2011 00067 * 00068 *> \ingroup auxOTHERauxiliary 00069 * 00070 * ===================================================================== 00071 SUBROUTINE XERBLA( SRNAME, INFO ) 00072 * 00073 * -- LAPACK auxiliary routine (version 3.4.0) -- 00074 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00075 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00076 * November 2011 00077 * 00078 * .. Scalar Arguments .. 00079 CHARACTER*(*) SRNAME 00080 INTEGER INFO 00081 * .. 00082 * 00083 * ===================================================================== 00084 * 00085 * .. Intrinsic Functions .. 00086 INTRINSIC LEN_TRIM 00087 * .. 00088 * .. Executable Statements .. 00089 * 00090 WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO 00091 * 00092 STOP 00093 * 00094 9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ', 00095 $ 'an illegal value' ) 00096 * 00097 * End of XERBLA 00098 * 00099 END