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