zlctsx()

logical function zlctsx	(	complex*16	ALPHA,
		complex*16	BETA
	)

ZLCTSX

Purpose:

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

Parameters

[in]	ALPHA	ALPHA is COMPLEX*16
[in]	BETA	BETA is COMPLEX*16 parameters to decide whether the pair (ALPHA, BETA) is selected.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 56 of file zlctsx.f.

*
*  -- LAPACK test routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..
      COMPLEX*16         ALPHA, BETA
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
*     DOUBLE PRECISION               ZERO
*     PARAMETER          ( ZERO = 0.0E+0 )
*     COMPLEX*16            CZERO
*     PARAMETER          ( CZERO = ( 0.0E+0, 0.0E+0 ) )
*     ..
*     .. 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
            zlctsx = .false.
         ELSE
            zlctsx = .true.
         END IF
         IF( i.EQ.mplusn ) THEN
            fs = .false.
            i = 0
         END IF
      ELSE
         i = i + 1
         IF( i.LE.n ) THEN
            zlctsx = .true.
         ELSE
            zlctsx = .false.
         END IF
         IF( i.EQ.mplusn ) THEN
            fs = .true.
            i = 0
         END IF
      END IF
*
*      IF( BETA.EQ.CZERO ) THEN
*         ZLCTSX = ( DBLE( ALPHA ).GT.ZERO )
*      ELSE
*         ZLCTSX = ( DBLE( ALPHA/BETA ).GT.ZERO )
*      END IF
*
      RETURN
*
*     End of ZLCTSX
*

Here is the caller graph for this function: