LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
xerbla.f
Go to the documentation of this file.
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
 All Files Functions