chkxer()

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

Definition at line 3120 of file sblat2.f.

*
*  Tests whether XERBLA has detected an error when it should.
*
*  Auxiliary routine for test program for Level 2 Blas.
*
*  -- Written on 10-August-1987.
*     Richard Hanson, Sandia National Labs.
*     Jeremy Du Croz, NAG Central Office.
*
*     .. Scalar Arguments ..
      INTEGER            INFOT, NOUT
      LOGICAL            LERR, OK
      CHARACTER*6        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 ', a6, ' *****' )
*
*     End of CHKXER
*