LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
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