LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ xerbla()

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

XERBLA

Download XERBLA + dependencies [TGZ] [ZIP] [TXT]

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
December 2016

Definition at line 72 of file xerbla.f.

72 *
73 * -- LAPACK auxiliary routine (version 3.7.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 * December 2016
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 *