LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
zlctsx.f
Go to the documentation of this file.
1
*> \brief \b ZLCTSX
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 ZLCTSX( ALPHA, BETA )
12
*
13
* .. Scalar Arguments ..
14
* COMPLEX*16 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 ZDRGSX, 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*16
35
*> \endverbatim
36
*>
37
*> \param[in] BETA
38
*> \verbatim
39
*> BETA is COMPLEX*16
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 December 2016
54
*
55
*> \ingroup complex16_eig
56
*
57
* =====================================================================
58
LOGICAL
FUNCTION
zlctsx
( ALPHA, BETA )
59
*
60
* -- LAPACK test routine (version 3.7.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
* December 2016
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
*
123
END
zlctsx
logical function zlctsx(ALPHA, BETA)
ZLCTSX
Definition:
zlctsx.f:59
TESTING
EIG
zlctsx.f
Generated on Fri Dec 23 2016 15:28:39 for LAPACK by
1.8.10