![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b CLCTSX 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 * Definition: 00009 * =========== 00010 * 00011 * LOGICAL FUNCTION CLCTSX( ALPHA, BETA ) 00012 * 00013 * .. Scalar Arguments .. 00014 * COMPLEX ALPHA, BETA 00015 * .. 00016 * 00017 * 00018 *> \par Purpose: 00019 * ============= 00020 *> 00021 *> \verbatim 00022 *> 00023 *> This function is used to determine what eigenvalues will be 00024 *> selected. If this is part of the test driver CDRGSX, do not 00025 *> change the code UNLESS you are testing input examples and not 00026 *> using the built-in examples. 00027 *> \endverbatim 00028 * 00029 * Arguments: 00030 * ========== 00031 * 00032 *> \param[in] ALPHA 00033 *> \verbatim 00034 *> ALPHA is COMPLEX 00035 *> \endverbatim 00036 *> 00037 *> \param[in] BETA 00038 *> \verbatim 00039 *> BETA is COMPLEX 00040 *> 00041 *> parameters to decide whether the pair (ALPHA, BETA) is 00042 *> selected. 00043 *> \endverbatim 00044 * 00045 * Authors: 00046 * ======== 00047 * 00048 *> \author Univ. of Tennessee 00049 *> \author Univ. of California Berkeley 00050 *> \author Univ. of Colorado Denver 00051 *> \author NAG Ltd. 00052 * 00053 *> \date November 2011 00054 * 00055 *> \ingroup complex_eig 00056 * 00057 * ===================================================================== 00058 LOGICAL FUNCTION CLCTSX( ALPHA, BETA ) 00059 * 00060 * -- LAPACK test routine (version 3.4.0) -- 00061 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00062 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00063 * November 2011 00064 * 00065 * .. Scalar Arguments .. 00066 COMPLEX ALPHA, BETA 00067 * .. 00068 * 00069 * ===================================================================== 00070 * 00071 * .. Parameters .. 00072 * REAL ZERO 00073 * PARAMETER ( ZERO = 0.0E+0 ) 00074 * COMPLEX CZERO 00075 * PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) ) 00076 * .. 00077 * .. Scalars in Common .. 00078 LOGICAL FS 00079 INTEGER I, M, MPLUSN, N 00080 * .. 00081 * .. Common blocks .. 00082 COMMON / MN / M, N, MPLUSN, I, FS 00083 * .. 00084 * .. Save statement .. 00085 SAVE 00086 * .. 00087 * .. Executable Statements .. 00088 * 00089 IF( FS ) THEN 00090 I = I + 1 00091 IF( I.LE.M ) THEN 00092 CLCTSX = .FALSE. 00093 ELSE 00094 CLCTSX = .TRUE. 00095 END IF 00096 IF( I.EQ.MPLUSN ) THEN 00097 FS = .FALSE. 00098 I = 0 00099 END IF 00100 ELSE 00101 I = I + 1 00102 IF( I.LE.N ) THEN 00103 CLCTSX = .TRUE. 00104 ELSE 00105 CLCTSX = .FALSE. 00106 END IF 00107 IF( I.EQ.MPLUSN ) THEN 00108 FS = .TRUE. 00109 I = 0 00110 END IF 00111 END IF 00112 * 00113 * IF( BETA.EQ.CZERO ) THEN 00114 * CLCTSX = ( REAL( ALPHA ).GT.ZERO ) 00115 * ELSE 00116 * CLCTSX = ( REAL( ALPHA/BETA ).GT.ZERO ) 00117 * END IF 00118 * 00119 RETURN 00120 * 00121 * End of CLCTSX 00122 * 00123 END