Return to xerbla.f CVS log

Up to [local] / rpl / lapack / blas

Cohérence.

    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