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 2785 of file dblat3.f.

2786*
2787* Tests whether XERBLA has detected an error when it should.
2788*
2789* Auxiliary routine for test program for Level 3 Blas.
2790*
2791* -- Written on 8-February-1989.
2792* Jack Dongarra, Argonne National Laboratory.
2793* Iain Duff, AERE Harwell.
2794* Jeremy Du Croz, Numerical Algorithms Group Ltd.
2795* Sven Hammarling, Numerical Algorithms Group Ltd.
2796*
2797* .. Scalar Arguments ..
2798 INTEGER INFOT, NOUT
2799 LOGICAL LERR, OK
2800 CHARACTER*6 SRNAMT
2801* .. Executable Statements ..
2802 IF( .NOT.lerr )THEN
2803 WRITE( nout, fmt = 9999 )infot, srnamt
2804 ok = .false.
2805 END IF
2806 lerr = .false.
2807 RETURN
2808*
2809 9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', i2, ' NOT D',
2810 $ 'ETECTED BY ', a6, ' *****' )
2811*
2812* End of CHKXER
2813*