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 2785 of file dblat3.f.

2786 *
2787 * Tests whether XERBLA has detected an error when it should.
2788 *
2789 * Auxiliary routine for test program for Level 3 Blas.
2790 *
2791 * -- Written on 8-February-1989.
2792 * Jack Dongarra, Argonne National Laboratory.
2793 * Iain Duff, AERE Harwell.
2794 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
2795 * Sven Hammarling, Numerical Algorithms Group Ltd.
2796 *
2797 * .. Scalar Arguments ..
2798  INTEGER INFOT, NOUT
2799  LOGICAL LERR, OK
2800  CHARACTER*6 SRNAMT
2801 * .. Executable Statements ..
2802  IF( .NOT.lerr )THEN
2803  WRITE( nout, fmt = 9999 )infot, srnamt
2804  ok = .false.
2805  END IF
2806  lerr = .false.
2807  RETURN
2808 *
2809  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', i2, ' NOT D',
2810  $ 'ETECTED BY ', a6, ' *****' )
2811 *
2812 * End of CHKXER
2813 *