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 3207 of file zblat2.f.

3207 *
3208 * Tests whether XERBLA has detected an error when it should.
3209 *
3210 * Auxiliary routine for test program for Level 2 Blas.
3211 *
3212 * -- Written on 10-August-1987.
3213 * Richard Hanson, Sandia National Labs.
3214 * Jeremy Du Croz, NAG Central Office.
3215 *
3216 * .. Scalar Arguments ..
3217  INTEGER infot, nout
3218  LOGICAL lerr, ok
3219  CHARACTER*6 srnamt
3220 * .. Executable Statements ..
3221  IF( .NOT.lerr )THEN
3222  WRITE( nout, fmt = 9999 )infot, srnamt
3223  ok = .false.
3224  END IF
3225  lerr = .false.
3226  RETURN
3227 *
3228  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', i2, ' NOT D',
3229  $ 'ETECTED BY ', a6, ' *****' )
3230 *
3231 * End of CHKXER.
3232 *