LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
zlctsx.f
Go to the documentation of this file.
00001 *> \brief \b ZLCTSX
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 ZLCTSX( ALPHA, BETA )
00012 * 
00013 *       .. Scalar Arguments ..
00014 *       COMPLEX*16         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 ZDRGSX, 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*16
00035 *> \endverbatim
00036 *>
00037 *> \param[in] BETA
00038 *> \verbatim
00039 *>          BETA is COMPLEX*16
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 complex16_eig
00056 *
00057 *  =====================================================================
00058       LOGICAL          FUNCTION ZLCTSX( 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*16         ALPHA, BETA
00067 *     ..
00068 *
00069 *  =====================================================================
00070 *
00071 *     .. Parameters ..
00072 *     DOUBLE PRECISION               ZERO
00073 *     PARAMETER          ( ZERO = 0.0E+0 )
00074 *     COMPLEX*16            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             ZLCTSX = .FALSE.
00093          ELSE
00094             ZLCTSX = .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             ZLCTSX = .TRUE.
00104          ELSE
00105             ZLCTSX = .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 *         ZLCTSX = ( DBLE( ALPHA ).GT.ZERO )
00115 *      ELSE
00116 *         ZLCTSX = ( DBLE( ALPHA/BETA ).GT.ZERO )
00117 *      END IF
00118 *
00119       RETURN
00120 *
00121 *     End of ZLCTSX
00122 *
00123       END
 All Files Functions