LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ chkxer()

subroutine chkxer ( character*6  srnamt,
integer  infot,
integer  nout,
logical  lerr,
logical  ok 
)

Definition at line 3120 of file sblat2.f.

3121*
3122* Tests whether XERBLA has detected an error when it should.
3123*
3124* Auxiliary routine for test program for Level 2 Blas.
3125*
3126* -- Written on 10-August-1987.
3127* Richard Hanson, Sandia National Labs.
3128* Jeremy Du Croz, NAG Central Office.
3129*
3130* .. Scalar Arguments ..
3131 INTEGER INFOT, NOUT
3132 LOGICAL LERR, OK
3133 CHARACTER*6 SRNAMT
3134* .. Executable Statements ..
3135 IF( .NOT.lerr )THEN
3136 WRITE( nout, fmt = 9999 )infot, srnamt
3137 ok = .false.
3138 END IF
3139 lerr = .false.
3140 RETURN
3141*
3142 9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', i2, ' NOT D',
3143 $ 'ETECTED BY ', a6, ' *****' )
3144*
3145* End of CHKXER
3146*