![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b DLCTSX 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 DLCTSX( AR, AI, BETA ) 00012 * 00013 * .. Scalar Arguments .. 00014 * DOUBLE PRECISION AI, AR, 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 DDRGSX, 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] AR 00033 *> \verbatim 00034 *> AR is DOUBLE PRECISION 00035 *> The numerator of the real part of a complex eigenvalue 00036 *> (AR/BETA) + i*(AI/BETA). 00037 *> \endverbatim 00038 *> 00039 *> \param[in] AI 00040 *> \verbatim 00041 *> AI is DOUBLE PRECISION 00042 *> The numerator of the imaginary part of a complex eigenvalue 00043 *> (AR/BETA) + i*(AI). 00044 *> \endverbatim 00045 *> 00046 *> \param[in] BETA 00047 *> \verbatim 00048 *> BETA is DOUBLE PRECISION 00049 *> The denominator part of a complex eigenvalue 00050 *> (AR/BETA) + i*(AI/BETA). 00051 *> \endverbatim 00052 * 00053 * Authors: 00054 * ======== 00055 * 00056 *> \author Univ. of Tennessee 00057 *> \author Univ. of California Berkeley 00058 *> \author Univ. of Colorado Denver 00059 *> \author NAG Ltd. 00060 * 00061 *> \date November 2011 00062 * 00063 *> \ingroup double_eig 00064 * 00065 * ===================================================================== 00066 LOGICAL FUNCTION DLCTSX( AR, AI, BETA ) 00067 * 00068 * -- LAPACK test routine (version 3.4.0) -- 00069 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00070 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00071 * November 2011 00072 * 00073 * .. Scalar Arguments .. 00074 DOUBLE PRECISION AI, AR, BETA 00075 * .. 00076 * 00077 * ===================================================================== 00078 * 00079 * .. Scalars in Common .. 00080 LOGICAL FS 00081 INTEGER I, M, MPLUSN, N 00082 * .. 00083 * .. Common blocks .. 00084 COMMON / MN / M, N, MPLUSN, I, FS 00085 * .. 00086 * .. Save statement .. 00087 SAVE 00088 * .. 00089 * .. Executable Statements .. 00090 * 00091 IF( FS ) THEN 00092 I = I + 1 00093 IF( I.LE.M ) THEN 00094 DLCTSX = .FALSE. 00095 ELSE 00096 DLCTSX = .TRUE. 00097 END IF 00098 IF( I.EQ.MPLUSN ) THEN 00099 FS = .FALSE. 00100 I = 0 00101 END IF 00102 ELSE 00103 I = I + 1 00104 IF( I.LE.N ) THEN 00105 DLCTSX = .TRUE. 00106 ELSE 00107 DLCTSX = .FALSE. 00108 END IF 00109 IF( I.EQ.MPLUSN ) THEN 00110 FS = .TRUE. 00111 I = 0 00112 END IF 00113 END IF 00114 * 00115 * IF( AR/BETA.GT.0.0 )THEN 00116 * DLCTSX = .TRUE. 00117 * ELSE 00118 * DLCTSX = .FALSE. 00119 * END IF 00120 * 00121 RETURN 00122 * 00123 * End of DLCTSX 00124 * 00125 END