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 3092 of file dblat2.f.

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