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 *  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
 All Files Functions