chkxer.f

Go to the documentation of this file.

      SUBROUTINE chkxer( SRNAMT, INFOT, NOUT, LERR, OK )
*
*  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 ..
      LOGICAL            lerr, ok
      CHARACTER*(*)      srnamt
      INTEGER            infot, nout
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          len_trim
*     ..
*     .. Executable Statements ..
      IF( .NOT.lerr ) THEN
         WRITE( nout, fmt = 9999 )infot,
     $        srnamt( 1:len_trim( srnamt ) )
         ok = .false.
      END IF
      lerr = .false.
      return
*
 9999 format( ' *** Illegal value of parameter number ', i2,
     $      ' not detected by ', a6, ' ***' )
*
*     End of CHKXER.
*
      END