LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 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.```
Date
November 2011

Definition at line 59 of file zlctsx.f.

59 *
60 * -- LAPACK test routine (version 3.4.0) --
61 * -- LAPACK is a software package provided by Univ. of Tennessee, --
62 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
63 * November 2011
64 *
65 * .. Scalar Arguments ..
66  COMPLEX*16 alpha, beta
67 * ..
68 *
69 * =====================================================================
70 *
71 * .. Parameters ..
72 * DOUBLE PRECISION ZERO
73 * PARAMETER ( ZERO = 0.0E+0 )
74 * COMPLEX*16 CZERO
75 * PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) )
76 * ..
77 * .. Scalars in Common ..
78  LOGICAL fs
79  INTEGER i, m, mplusn, n
80 * ..
81 * .. Common blocks ..
82  COMMON / mn / m, n, mplusn, i, fs
83 * ..
84 * .. Save statement ..
85  SAVE
86 * ..
87 * .. Executable Statements ..
88 *
89  IF( fs ) THEN
90  i = i + 1
91  IF( i.LE.m ) THEN
92  zlctsx = .false.
93  ELSE
94  zlctsx = .true.
95  END IF
96  IF( i.EQ.mplusn ) THEN
97  fs = .false.
98  i = 0
99  END IF
100  ELSE
101  i = i + 1
102  IF( i.LE.n ) THEN
103  zlctsx = .true.
104  ELSE
105  zlctsx = .false.
106  END IF
107  IF( i.EQ.mplusn ) THEN
108  fs = .true.
109  i = 0
110  END IF
111  END IF
112 *
113 * IF( BETA.EQ.CZERO ) THEN
114 * ZLCTSX = ( DBLE( ALPHA ).GT.ZERO )
115 * ELSE
116 * ZLCTSX = ( DBLE( ALPHA/BETA ).GT.ZERO )
117 * END IF
118 *
119  RETURN
120 *
121 * End of ZLCTSX
122 *
logical function zlctsx(ALPHA, BETA)
ZLCTSX
Definition: zlctsx.f:59