LAPACK  3.8.0 LAPACK: Linear Algebra PACKage

## ◆ dlctsx()

 logical function dlctsx ( double precision AR, double precision AI, double precision BETA )

DLCTSX

Purpose:
``` This function is used to determine what eigenvalues will be
selected.  If this is part of the test driver DDRGSX, do not
change the code UNLESS you are testing input examples and not
using the built-in examples.```
Parameters
 [in] AR ``` AR is DOUBLE PRECISION The numerator of the real part of a complex eigenvalue (AR/BETA) + i*(AI/BETA).``` [in] AI ``` AI is DOUBLE PRECISION The numerator of the imaginary part of a complex eigenvalue (AR/BETA) + i*(AI).``` [in] BETA ``` BETA is DOUBLE PRECISION The denominator part of a complex eigenvalue (AR/BETA) + i*(AI/BETA).```
Date
December 2016

Definition at line 67 of file dlctsx.f.

67 *
68 * -- LAPACK test routine (version 3.7.0) --
69 * -- LAPACK is a software package provided by Univ. of Tennessee, --
70 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
71 * December 2016
72 *
73 * .. Scalar Arguments ..
74  DOUBLE PRECISION ai, ar, beta
75 * ..
76 *
77 * =====================================================================
78 *
79 * .. Scalars in Common ..
80  LOGICAL fs
81  INTEGER i, m, mplusn, n
82 * ..
83 * .. Common blocks ..
84  COMMON / mn / m, n, mplusn, i, fs
85 * ..
86 * .. Save statement ..
87  SAVE
88 * ..
89 * .. Executable Statements ..
90 *
91  IF( fs ) THEN
92  i = i + 1
93  IF( i.LE.m ) THEN
94  dlctsx = .false.
95  ELSE
96  dlctsx = .true.
97  END IF
98  IF( i.EQ.mplusn ) THEN
99  fs = .false.
100  i = 0
101  END IF
102  ELSE
103  i = i + 1
104  IF( i.LE.n ) THEN
105  dlctsx = .true.
106  ELSE
107  dlctsx = .false.
108  END IF
109  IF( i.EQ.mplusn ) THEN
110  fs = .true.
111  i = 0
112  END IF
113  END IF
114 *
115 * IF( AR/BETA.GT.0.0 )THEN
116 * DLCTSX = .TRUE.
117 * ELSE
118 * DLCTSX = .FALSE.
119 * END IF
120 *
121  RETURN
122 *
123 * End of DLCTSX
124 *
logical function dlctsx(AR, AI, BETA)
DLCTSX
Definition: dlctsx.f:67