01:       SUBROUTINE XERBLA( SRNAME, INFO )
02: *
03: *  -- LAPACK auxiliary routine (version 3.2) --
04: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
05: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
06: *     November 2006
07: *
08: *     .. Scalar Arguments ..
09:       CHARACTER*(*)      SRNAME
10:       INTEGER            INFO
11: *     ..
12: *
13: *  Purpose
14: *  =======
15: *
16: *  XERBLA  is an error handler for the LAPACK routines.
17: *  It is called by an LAPACK routine if an input parameter has an
18: *  invalid value.  A message is printed and execution stops.
19: *
20: *  Installers may consider modifying the STOP statement in order to
21: *  call system-specific exception-handling facilities.
22: *
23: *  Arguments
24: *  =========
25: *
26: *  SRNAME  (input) CHARACTER*(*)
27: *          The name of the routine which called XERBLA.
28: *
29: *  INFO    (input) INTEGER
30: *          The position of the invalid parameter in the parameter list
31: *          of the calling routine.
32: *
33: * =====================================================================
34: *
35: *     .. Intrinsic Functions ..
36:       INTRINSIC          LEN_TRIM
37: *     ..
38: *     .. Executable Statements ..
39: *
40:       WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
41: *
42:       STOP
43: *
44:  9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
45:      $      'an illegal value' )
46: *
47: *     End of XERBLA
48: *
49:       END
50: