logical function dlctsx	(	double precision	AR,
		double precision	AI,
		double precision	BETA
	)

DLCTSX

Purpose:

 This function is used to determine what eigenvalues will be
 selected.  If this is part of the test driver DDRGSX, do not
 change the code UNLESS you are testing input examples and not
 using the built-in examples.

Parameters

[in]	AR	AR is DOUBLE PRECISION The numerator of the real part of a complex eigenvalue (AR/BETA) + i*(AI/BETA).
[in]	AI	AI is DOUBLE PRECISION The numerator of the imaginary part of a complex eigenvalue (AR/BETA) + i*(AI).
[in]	BETA	BETA is DOUBLE PRECISION The denominator part of a complex eigenvalue (AR/BETA) + i*(AI/BETA).

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date

November 2011

Definition at line 67 of file dlctsx.f.

*
*  -- LAPACK test routine (version 3.4.0) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     November 2011
*
*     .. Scalar Arguments ..
      DOUBLE PRECISION   ai, ar, beta
*     ..
*
*  =====================================================================
*
*     .. Scalars in Common ..
      LOGICAL            fs
      INTEGER            i, m, mplusn, n
*     ..
*     .. Common blocks ..
      COMMON             / mn / m, n, mplusn, i, fs
*     ..
*     .. Save statement ..
      SAVE
*     ..
*     .. Executable Statements ..
*
      IF( fs ) THEN
         i = i + 1
         IF( i.LE.m ) THEN
            dlctsx = .false.
         ELSE
            dlctsx = .true.
         END IF
         IF( i.EQ.mplusn ) THEN
            fs = .false.
            i = 0
         END IF
      ELSE
         i = i + 1
         IF( i.LE.n ) THEN
            dlctsx = .true.
         ELSE
            dlctsx = .false.
         END IF
         IF( i.EQ.mplusn ) THEN
            fs = .true.
            i = 0
         END IF
      END IF
*
*       IF( AR/BETA.GT.0.0 )THEN
*          DLCTSX = .TRUE.
*       ELSE
*          DLCTSX = .FALSE.
*       END IF
*
      RETURN
*
*     End of DLCTSX
*