LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
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 November 2011
54 *
55 *> \ingroup complex16_eig
56 *
57 * =====================================================================
58  LOGICAL FUNCTION zlctsx( 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*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