LAPACK
3.4.2
LAPACK: Linear Algebra PACKage
Main Page
Modules
Files
File List
File Members
All
Files
Functions
Groups
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
*> \date November 2011
54
*
55
*> \ingroup complex_eig
56
*
57
* =====================================================================
58
LOGICAL
FUNCTION
clctsx
( ALPHA, BETA )
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
alpha, beta
67
* ..
68
*
69
* =====================================================================
70
*
71
* .. Parameters ..
72
* REAL ZERO
73
* PARAMETER ( ZERO = 0.0E+0 )
74
* COMPLEX 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
clctsx
= .false.
93
ELSE
94
clctsx
= .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
clctsx
= .true.
104
ELSE
105
clctsx
= .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
* CLCTSX = ( REAL( ALPHA ).GT.ZERO )
115
* ELSE
116
* CLCTSX = ( REAL( ALPHA/BETA ).GT.ZERO )
117
* END IF
118
*
119
return
120
*
121
* End of CLCTSX
122
*
123
END
TESTING
EIG
clctsx.f
Generated on Tue Sep 25 2012 16:28:41 for LAPACK by
1.8.1.1