LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
dlctsx.f
Go to the documentation of this file.
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
 All Files Functions