LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ xerbla()

subroutine xerbla ( character*6  SRNAME,
integer  INFO 
)

Definition at line 3223 of file cblat2.f.

3224 *
3225 * This is a special version of XERBLA to be used only as part of
3226 * the test program for testing error exits from the Level 2 BLAS
3227 * routines.
3228 *
3229 * XERBLA is an error handler for the Level 2 BLAS routines.
3230 *
3231 * It is called by the Level 2 BLAS routines if an input parameter is
3232 * invalid.
3233 *
3234 * Auxiliary routine for test program for Level 2 Blas.
3235 *
3236 * -- Written on 10-August-1987.
3237 * Richard Hanson, Sandia National Labs.
3238 * Jeremy Du Croz, NAG Central Office.
3239 *
3240 * .. Scalar Arguments ..
3241  INTEGER INFO
3242  CHARACTER*6 SRNAME
3243 * .. Scalars in Common ..
3244  INTEGER INFOT, NOUT
3245  LOGICAL LERR, OK
3246  CHARACTER*6 SRNAMT
3247 * .. Common blocks ..
3248  COMMON /infoc/infot, nout, ok, lerr
3249  COMMON /srnamc/srnamt
3250 * .. Executable Statements ..
3251  lerr = .true.
3252  IF( info.NE.infot )THEN
3253  IF( infot.NE.0 )THEN
3254  WRITE( nout, fmt = 9999 )info, infot
3255  ELSE
3256  WRITE( nout, fmt = 9997 )info
3257  END IF
3258  ok = .false.
3259  END IF
3260  IF( srname.NE.srnamt )THEN
3261  WRITE( nout, fmt = 9998 )srname, srnamt
3262  ok = .false.
3263  END IF
3264  RETURN
3265 *
3266  9999 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6, ' INSTEAD',
3267  $ ' OF ', i2, ' *******' )
3268  9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', a6, ' INSTE',
3269  $ 'AD OF ', a6, ' *******' )
3270  9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6,
3271  $ ' *******' )
3272 *
3273 * End of XERBLA
3274 *