chkxer()

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

Definition at line 2871 of file sblat3.f.

*
*  Tests whether XERBLA has detected an error when it should.
*
*  Auxiliary routine for test program for Level 3 Blas.
*
*  -- Written on 8-February-1989.
*     Jack Dongarra, Argonne National Laboratory.
*     Iain Duff, AERE Harwell.
*     Jeremy Du Croz, Numerical Algorithms Group Ltd.
*     Sven Hammarling, Numerical Algorithms Group Ltd.
*
*     .. Scalar Arguments ..
      INTEGER            INFOT, NOUT
      LOGICAL            LERR, OK
      CHARACTER*7        SRNAMT
*     .. Executable Statements ..
      IF( .NOT.lerr )THEN
         WRITE( nout, fmt = 9999 )infot, srnamt
         ok = .false.
      END IF
      lerr = .false.
      RETURN
*
 9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', i2, ' NOT D',
     $      'ETECTED BY ', a7, ' *****' )
*
*     End of CHKXER
*