LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ xerbla()

subroutine xerbla ( character*6  SRNAME,
integer  INFO 
)

Definition at line 3438 of file cblat3.f.

3438 *
3439 * This is a special version of XERBLA to be used only as part of
3440 * the test program for testing error exits from the Level 3 BLAS
3441 * routines.
3442 *
3443 * XERBLA is an error handler for the Level 3 BLAS routines.
3444 *
3445 * It is called by the Level 3 BLAS routines if an input parameter is
3446 * invalid.
3447 *
3448 * Auxiliary routine for test program for Level 3 Blas.
3449 *
3450 * -- Written on 8-February-1989.
3451 * Jack Dongarra, Argonne National Laboratory.
3452 * Iain Duff, AERE Harwell.
3453 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
3454 * Sven Hammarling, Numerical Algorithms Group Ltd.
3455 *
3456 * .. Scalar Arguments ..
3457  INTEGER info
3458  CHARACTER*6 srname
3459 * .. Scalars in Common ..
3460  INTEGER infot, nout
3461  LOGICAL lerr, ok
3462  CHARACTER*6 srnamt
3463 * .. Common blocks ..
3464  COMMON /infoc/infot, nout, ok, lerr
3465  COMMON /srnamc/srnamt
3466 * .. Executable Statements ..
3467  lerr = .true.
3468  IF( info.NE.infot )THEN
3469  IF( infot.NE.0 )THEN
3470  WRITE( nout, fmt = 9999 )info, infot
3471  ELSE
3472  WRITE( nout, fmt = 9997 )info
3473  END IF
3474  ok = .false.
3475  END IF
3476  IF( srname.NE.srnamt )THEN
3477  WRITE( nout, fmt = 9998 )srname, srnamt
3478  ok = .false.
3479  END IF
3480  RETURN
3481 *
3482  9999 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6, ' INSTEAD',
3483  $ ' OF ', i2, ' *******' )
3484  9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', a6, ' INSTE',
3485  $ 'AD OF ', a6, ' *******' )
3486  9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6,
3487  $ ' *******' )
3488 *
3489 * End of XERBLA
3490 *