d0/d2d/EIG_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 *     .. Scalar Arguments ..
00012       LOGICAL            LERR, OK
00013       CHARACTER*(*)      SRNAMT
00014       INTEGER            INFOT, NOUT
00015 *     ..
00016 *     .. Intrinsic Functions ..
00017       INTRINSIC          LEN_TRIM
00018 *     ..
00019 *     .. Executable Statements ..
00020       IF( .NOT.LERR ) THEN
00021          WRITE( NOUT, FMT = 9999 )INFOT,
00022      $        SRNAMT( 1:LEN_TRIM( SRNAMT ) )
00023          OK = .FALSE.
00024       END IF
00025       LERR = .FALSE.
00026       RETURN
00027 *
00028  9999 FORMAT( ' *** Illegal value of parameter number ', I2,
00029      $      ' not detected by ', A6, ' ***' )
00030 *
00031 *     End of CHKXER.
00032 *
00033       END