LAPACK  3.6.0
LAPACK: Linear Algebra PACKage
xerbla.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine xerbla (SRNAME, INFO)
 XERBLA More...
 

Function/Subroutine Documentation

subroutine xerbla ( character*(*)  SRNAME,
integer  INFO 
)

XERBLA

Purpose:
 XERBLA  is an error handler for the LAPACK routines.
 It is called by an LAPACK routine if an input parameter has an
 invalid value.  A message is printed and execution stops.

 Installers may consider modifying the STOP statement in order to
 call system-specific exception-handling facilities.
Parameters
[in]SRNAME
          SRNAME is CHARACTER*(*)
          The name of the routine which called XERBLA.
[in]INFO
          INFO is INTEGER
          The position of the invalid parameter in the parameter list
          of the calling routine.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
November 2011
Purpose:
 This is a special version of XERBLA to be used only as part of
 the test program for testing error exits from the LAPACK routines.
 Error messages are printed if INFO.NE.INFOT or if SRNAME.NE.SRNAMT,
 where INFOT and SRNAMT are values stored in COMMON.
Parameters
[in]SRNAME
          SRNAME is CHARACTER*(*)
          The name of the subroutine calling XERBLA.  This name should
          match the COMMON variable SRNAMT.
[in]INFO
          INFO is INTEGER
          The error return code from the calling subroutine.  INFO
          should equal the COMMON variable INFOT.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
November 2011
Further Details:
  The following variables are passed via the common blocks INFOC and
  SRNAMC:

  INFOT   INTEGER      Expected integer return code
  NOUT    INTEGER      Unit number for printing error messages
  OK      LOGICAL      Set to .TRUE. if INFO = INFOT and
                       SRNAME = SRNAMT, otherwise set to .FALSE.
  LERR    LOGICAL      Set to .TRUE., indicating that XERBLA was called
  SRNAMT  CHARACTER*(*) Expected name of calling subroutine

Definition at line 62 of file xerbla.f.

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 *