LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ chkxer()

subroutine chkxer ( character*6  SRNAMT,
integer  INFOT,
integer  NOUT,
logical  LERR,
logical  OK 
)

Definition at line 3408 of file cblat3.f.

3408 *
3409 * Tests whether XERBLA has detected an error when it should.
3410 *
3411 * Auxiliary routine for test program for Level 3 Blas.
3412 *
3413 * -- Written on 8-February-1989.
3414 * Jack Dongarra, Argonne National Laboratory.
3415 * Iain Duff, AERE Harwell.
3416 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
3417 * Sven Hammarling, Numerical Algorithms Group Ltd.
3418 *
3419 * .. Scalar Arguments ..
3420  INTEGER infot, nout
3421  LOGICAL lerr, ok
3422  CHARACTER*6 srnamt
3423 * .. Executable Statements ..
3424  IF( .NOT.lerr )THEN
3425  WRITE( nout, fmt = 9999 )infot, srnamt
3426  ok = .false.
3427  END IF
3428  lerr = .false.
3429  RETURN
3430 *
3431  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', i2, ' NOT D',
3432  $ 'ETECTED BY ', a6, ' *****' )
3433 *
3434 * End of CHKXER.
3435 *