vendor/gonum.org/v1/gonum/lapack/internal/testdata/netlib/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 *  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