LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ xerbla()

subroutine xerbla ( character*6  SRNAME,
integer  INFO 
)

Definition at line 3120 of file dblat2.f.

3121 *
3122 * This is a special version of XERBLA to be used only as part of
3123 * the test program for testing error exits from the Level 2 BLAS
3124 * routines.
3125 *
3126 * XERBLA is an error handler for the Level 2 BLAS routines.
3127 *
3128 * It is called by the Level 2 BLAS routines if an input parameter is
3129 * invalid.
3130 *
3131 * Auxiliary routine for test program for Level 2 Blas.
3132 *
3133 * -- Written on 10-August-1987.
3134 * Richard Hanson, Sandia National Labs.
3135 * Jeremy Du Croz, NAG Central Office.
3136 *
3137 * .. Scalar Arguments ..
3138  INTEGER INFO
3139  CHARACTER*6 SRNAME
3140 * .. Scalars in Common ..
3141  INTEGER INFOT, NOUT
3142  LOGICAL LERR, OK
3143  CHARACTER*6 SRNAMT
3144 * .. Common blocks ..
3145  COMMON /infoc/infot, nout, ok, lerr
3146  COMMON /srnamc/srnamt
3147 * .. Executable Statements ..
3148  lerr = .true.
3149  IF( info.NE.infot )THEN
3150  IF( infot.NE.0 )THEN
3151  WRITE( nout, fmt = 9999 )info, infot
3152  ELSE
3153  WRITE( nout, fmt = 9997 )info
3154  END IF
3155  ok = .false.
3156  END IF
3157  IF( srname.NE.srnamt )THEN
3158  WRITE( nout, fmt = 9998 )srname, srnamt
3159  ok = .false.
3160  END IF
3161  RETURN
3162 *
3163  9999 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6, ' INSTEAD',
3164  $ ' OF ', i2, ' *******' )
3165  9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', a6, ' INSTE',
3166  $ 'AD OF ', a6, ' *******' )
3167  9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6,
3168  $ ' *******' )
3169 *
3170 * End of XERBLA
3171 *