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 *       .. 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
00036 *
00037 *> \par Purpose:
00038 *  =============
00039 *>
00040 *> \verbatim
00041 *> \endverbatim
00042 *
00043 *  Arguments:
00044 *  ==========
00045 *
00046 *
00047 *  Authors:
00048 *  ========
00049 *
00050 *> \author Univ. of Tennessee 
00051 *> \author Univ. of California Berkeley 
00052 *> \author Univ. of Colorado Denver 
00053 *> \author NAG Ltd. 
00054 *
00055 *> \date November 2011
00056 *
00057 *> \ingroup complex_lin
00058 *
00059 *  =====================================================================
00060       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
00061 *
00062 *  -- LAPACK test routine (input) --
00063 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
00064 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00065 *     November 2011
00066 *
00067 *     .. Scalar Arguments ..
00068       LOGICAL            LERR, OK
00069       CHARACTER*(*)      SRNAMT
00070       INTEGER            INFOT, NOUT
00071 *     ..
00072 *     .. Intrinsic Functions ..
00073       INTRINSIC          LEN_TRIM
00074 *     ..
00075 *     .. Executable Statements ..
00076       IF( .NOT.LERR ) THEN
00077          WRITE( NOUT, FMT = 9999 )INFOT,
00078      $        SRNAMT( 1:LEN_TRIM( SRNAMT ) )
00079          OK = .FALSE.
00080       END IF
00081       LERR = .FALSE.
00082       RETURN
00083 *
00084  9999 FORMAT( ' *** Illegal value of parameter number ', I2,
00085      $      ' not detected by ', A6, ' ***' )
00086 *
00087 *     End of CHKXER.
00088 *
00089       END
 All Files Functions