LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
chkxer.f
Go to the documentation of this file.
00001 *> \brief \b CHKXER
00002 *
00003 *  =========== DOCUMENTATION ===========
00004 *
00005 * Online html documentation available at 
00006 *            http://www.netlib.org/lapack/explore-html/ 
00007 *
00008 *  Definition:
00009 *  ===========
00010 *
00011 *       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
00012 * 
00013 *       .. Scalar Arguments ..
00014 *       LOGICAL            LERR, OK
00015 *       CHARACTER*(*)      SRNAMT
00016 *       INTEGER            INFOT, NOUT
00017 *
00018 *
00019 *> \par Purpose:
00020 *  =============
00021 *>
00022 *> \verbatim
00023 *> \endverbatim
00024 *
00025 *  Arguments:
00026 *  ==========
00027 *
00028 *
00029 *  Authors:
00030 *  ========
00031 *
00032 *> \author Univ. of Tennessee 
00033 *> \author Univ. of California Berkeley 
00034 *> \author Univ. of Colorado Denver 
00035 *> \author NAG Ltd. 
00036 *
00037 *> \date November 2011
00038 *
00039 *> \ingroup complex_eig
00040 *
00041 *  =====================================================================
00042       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
00043 *
00044 *  -- LAPACK test routine (version 3.4.0) --
00045 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
00046 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00047 *     November 2011
00048 *
00049 *     .. Scalar Arguments ..
00050       LOGICAL            LERR, OK
00051       CHARACTER*(*)      SRNAMT
00052       INTEGER            INFOT, NOUT
00053 *     ..
00054 *     .. Intrinsic Functions ..
00055       INTRINSIC          LEN_TRIM
00056 *     ..
00057 *     .. Executable Statements ..
00058       IF( .NOT.LERR ) THEN
00059          WRITE( NOUT, FMT = 9999 )INFOT,
00060      $        SRNAMT( 1:LEN_TRIM( SRNAMT ) )
00061          OK = .FALSE.
00062       END IF
00063       LERR = .FALSE.
00064       RETURN
00065 *
00066  9999 FORMAT( ' *** Illegal value of parameter number ', I2,
00067      $      ' not detected by ', A6, ' ***' )
00068 *
00069 *     End of CHKXER.
00070 *
00071       END
 All Files Functions