LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ chkxer()

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

Definition at line 3404 of file cblat3.f.

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