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 3195 of file cblat2.f.

3196 *
3197 * Tests whether XERBLA has detected an error when it should.
3198 *
3199 * Auxiliary routine for test program for Level 2 Blas.
3200 *
3201 * -- Written on 10-August-1987.
3202 * Richard Hanson, Sandia National Labs.
3203 * Jeremy Du Croz, NAG Central Office.
3204 *
3205 * .. Scalar Arguments ..
3206  INTEGER INFOT, NOUT
3207  LOGICAL LERR, OK
3208  CHARACTER*6 SRNAMT
3209 * .. Executable Statements ..
3210  IF( .NOT.lerr )THEN
3211  WRITE( nout, fmt = 9999 )infot, srnamt
3212  ok = .false.
3213  END IF
3214  lerr = .false.
3215  RETURN
3216 *
3217  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', i2, ' NOT D',
3218  $ 'ETECTED BY ', a6, ' *****' )
3219 *
3220 * End of CHKXER
3221 *