LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ xerbla()

subroutine xerbla ( character*6  SRNAME,
integer  INFO 
)

Definition at line 3434 of file cblat3.f.

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