vendor/gonum.org/v1/gonum/lapack/internal/testdata/dsterftest/xerbla.f

   1 *> \brief \b XERBLA
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *> \htmlonly
   9 *> Download XERBLA + dependencies
  10 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/xerbla.f">
  11 *> [TGZ]</a>
  12 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/xerbla.f">
  13 *> [ZIP]</a>
  14 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/xerbla.f">
  15 *> [TXT]</a>
  16 *> \endhtmlonly
  17 *
  18 *  Definition:
  19 *  ===========
  20 *
  21 *       SUBROUTINE XERBLA( SRNAME, INFO )
  22 *
  23 *       .. Scalar Arguments ..
  24 *       CHARACTER*(*)      SRNAME
  25 *       INTEGER            INFO
  26 *       ..
  27 *
  28 *
  29 *> \par Purpose:
  30 *  =============
  31 *>
  32 *> \verbatim
  33 *>
  34 *> XERBLA  is an error handler for the LAPACK routines.
  35 *> It is called by an LAPACK routine if an input parameter has an
  36 *> invalid value.  A message is printed and execution stops.
  37 *>
  38 *> Installers may consider modifying the STOP statement in order to
  39 *> call system-specific exception-handling facilities.
  40 *> \endverbatim
  41 *
  42 *  Arguments:
  43 *  ==========
  44 *
  45 *> \param[in] SRNAME
  46 *> \verbatim
  47 *>          SRNAME is CHARACTER*(*)
  48 *>          The name of the routine which called XERBLA.
  49 *> \endverbatim
  50 *>
  51 *> \param[in] INFO
  52 *> \verbatim
  53 *>          INFO is INTEGER
  54 *>          The position of the invalid parameter in the parameter list
  55 *>          of the calling routine.
  56 *> \endverbatim
  57 *
  58 *  Authors:
  59 *  ========
  60 *
  61 *> \author Univ. of Tennessee
  62 *> \author Univ. of California Berkeley
  63 *> \author Univ. of Colorado Denver
  64 *> \author NAG Ltd.
  65 *
  66 *> \date November 2011
  67 *
  68 *> \ingroup auxOTHERauxiliary
  69 *
  70 *  =====================================================================
  71       SUBROUTINE XERBLA( SRNAME, INFO )
  72 *
  73 *  -- LAPACK auxiliary routine (version 3.4.0) --
  74 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
  75 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  76 *     November 2011
  77 *
  78 *     .. Scalar Arguments ..
  79       CHARACTER*(*)      SRNAME
  80       INTEGER            INFO
  81 *     ..
  82 *
  83 * =====================================================================
  84 *
  85 *     .. Intrinsic Functions ..
  86       INTRINSIC          LEN_TRIM
  87 *     ..
  88 *     .. Executable Statements ..
  89 *
  90       WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
  91 *
  92       STOP
  93 *
  94  9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
  95      $      'an illegal value' )
  96 *
  97 *     End of XERBLA
  98 *
  99       END