![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
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