LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
clctsx.f
Go to the documentation of this file.
1*> \brief \b CLCTSX
2*
3* =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6* http://www.netlib.org/lapack/explore-html/
7*
8* Definition:
9* ===========
10*
11* LOGICAL FUNCTION CLCTSX( ALPHA, BETA )
12*
13* .. Scalar Arguments ..
14* COMPLEX ALPHA, BETA
15* ..
16*
17*
18*> \par Purpose:
19* =============
20*>
21*> \verbatim
22*>
23*> This function is used to determine what eigenvalues will be
24*> selected. If this is part of the test driver CDRGSX, do not
25*> change the code UNLESS you are testing input examples and not
26*> using the built-in examples.
27*> \endverbatim
28*
29* Arguments:
30* ==========
31*
32*> \param[in] ALPHA
33*> \verbatim
34*> ALPHA is COMPLEX
35*> \endverbatim
36*>
37*> \param[in] BETA
38*> \verbatim
39*> BETA is COMPLEX
40*>
41*> parameters to decide whether the pair (ALPHA, BETA) is
42*> selected.
43*> \endverbatim
44*
45* Authors:
46* ========
47*
48*> \author Univ. of Tennessee
49*> \author Univ. of California Berkeley
50*> \author Univ. of Colorado Denver
51*> \author NAG Ltd.
52*
53*> \ingroup complex_eig
54*
55* =====================================================================
56 LOGICAL FUNCTION clctsx( ALPHA, BETA )
57*
58* -- LAPACK test routine --
59* -- LAPACK is a software package provided by Univ. of Tennessee, --
60* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
61*
62* .. Scalar Arguments ..
63 COMPLEX alpha, beta
64* ..
65*
66* =====================================================================
67*
68* .. Parameters ..
69* REAL ZERO
70* PARAMETER ( ZERO = 0.0E+0 )
71* COMPLEX CZERO
72* PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) )
73* ..
74* .. Scalars in Common ..
75 LOGICAL fs
76 INTEGER i, m, mplusn, n
77* ..
78* .. Common blocks ..
79 COMMON / mn / m, n, mplusn, i, fs
80* ..
81* .. Save statement ..
82 SAVE
83* ..
84* .. Executable Statements ..
85*
86 IF( fs ) THEN
87 i = i + 1
88 IF( i.LE.m ) THEN
89 clctsx = .false.
90 ELSE
91 clctsx = .true.
92 END IF
93 IF( i.EQ.mplusn ) THEN
94 fs = .false.
95 i = 0
96 END IF
97 ELSE
98 i = i + 1
99 IF( i.LE.n ) THEN
100 clctsx = .true.
101 ELSE
102 clctsx = .false.
103 END IF
104 IF( i.EQ.mplusn ) THEN
105 fs = .true.
106 i = 0
107 END IF
108 END IF
109*
110* IF( BETA.EQ.CZERO ) THEN
111* CLCTSX = ( REAL( ALPHA ).GT.ZERO )
112* ELSE
113* CLCTSX = ( REAL( ALPHA/BETA ).GT.ZERO )
114* END IF
115*
116 RETURN
117*
118* End of CLCTSX
119*
120 END
logical function clctsx(alpha, beta)
CLCTSX
Definition clctsx.f:57