![]() |
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 * .. 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