df/db4/LIN_2chkxer_8f_source.html

00001       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
00002 *
00003 *  Tests whether XERBLA has detected an error when it should.
00004 *
00005 *  Auxiliary routine for test program for Level 2 Blas.
00006 *
00007 *  -- Written on 10-August-1987.
00008 *     Richard Hanson, Sandia National Labs.
00009 *     Jeremy Du Croz, NAG Central Office.
00010 *
00011 *  =====================================================================
00012 *
00013 *     .. Scalar Arguments ..
00014       LOGICAL            LERR, OK
00015       CHARACTER*(*)      SRNAMT
00016       INTEGER            INFOT, NOUT
00017 *     ..
00018 *     .. Intrinsic Functions ..
00019       INTRINSIC          LEN_TRIM
00020 *     ..
00021 *     .. Executable Statements ..
00022       IF( .NOT.LERR ) THEN
00023          WRITE( NOUT, FMT = 9999 )INFOT,
00024      $        SRNAMT( 1:LEN_TRIM( SRNAMT ) )
00025          OK = .FALSE.
00026       END IF
00027       LERR = .FALSE.
00028       RETURN
00029 *
00030  9999 FORMAT( ' *** Illegal value of parameter number ', I2,
00031      $      ' not detected by ', A6, ' ***' )
00032 *
00033 *     End of CHKXER.
00034 *
00035       END