clctsx()

logical function clctsx	(	complex	alpha,
		complex	beta
	)

CLCTSX

Purpose:

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

Parameters

[in]	ALPHA	ALPHA is COMPLEX
[in]	BETA	BETA is COMPLEX 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 clctsx.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            ALPHA, BETA
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
*     REAL               ZERO
*     PARAMETER          ( ZERO = 0.0E+0 )
*     COMPLEX            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
            clctsx = .false.
         ELSE
            clctsx = .true.
         END IF
         IF( i.EQ.mplusn ) THEN
            fs = .false.
            i = 0
         END IF
      ELSE
         i = i + 1
         IF( i.LE.n ) THEN
            clctsx = .true.
         ELSE
            clctsx = .false.
         END IF
         IF( i.EQ.mplusn ) THEN
            fs = .true.
            i = 0
         END IF
      END IF
*
*      IF( BETA.EQ.CZERO ) THEN
*         CLCTSX = ( REAL( ALPHA ).GT.ZERO )
*      ELSE
*         CLCTSX = ( REAL( ALPHA/BETA ).GT.ZERO )
*      END IF
*
      RETURN
*
*     End of CLCTSX
*

Here is the call graph for this function:

Here is the caller graph for this function: