Return to xerbla.f CVS log

Up to [local] / rpl / lapack / blas

Première mise à jour de lapack et blas.

    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: *> \ingroup aux_blas
   57: *
   58: *  =====================================================================
   59:       SUBROUTINE XERBLA( SRNAME, INFO )
   60: *
   61: *  -- Reference BLAS level1 routine --
   62: *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
   63: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   64: *
   65: *     .. Scalar Arguments ..
   66:       CHARACTER*(*)      SRNAME
   67:       INTEGER            INFO
   68: *     ..
   69: *
   70: * =====================================================================
   71: *
   72: *     .. Intrinsic Functions ..
   73:       INTRINSIC          LEN_TRIM
   74: *     ..
   75: *     .. Executable Statements ..
   76: *
   77:       WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
   78: *
   79:       STOP
   80: *
   81:  9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
   82:      $      'an illegal value' )
   83: *
   84: *     End of XERBLA
   85: *
   86:       END