github.com/gonum/lapack@v0.0.0-20181123203213-e4cdc5a0bff9/internal/testdata/dsterftest/xerbla.f (about)

     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