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 3096 of file sblat2.f.

3096 *
3097 * Tests whether XERBLA has detected an error when it should.
3098 *
3099 * Auxiliary routine for test program for Level 2 Blas.
3100 *
3101 * -- Written on 10-August-1987.
3102 * Richard Hanson, Sandia National Labs.
3103 * Jeremy Du Croz, NAG Central Office.
3104 *
3105 * .. Scalar Arguments ..
3106  INTEGER infot, nout
3107  LOGICAL lerr, ok
3108  CHARACTER*6 srnamt
3109 * .. Executable Statements ..
3110  IF( .NOT.lerr )THEN
3111  WRITE( nout, fmt = 9999 )infot, srnamt
3112  ok = .false.
3113  END IF
3114  lerr = .false.
3115  RETURN
3116 *
3117  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', i2, ' NOT D',
3118  $ 'ETECTED BY ', a6, ' *****' )
3119 *
3120 * End of CHKXER.
3121 *