github.com/gonum/lapack@v0.0.0-20181123203213-e4cdc5a0bff9/internal/testdata/netlib/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  *  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