LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ 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).
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 64 of file dlctsx.f.

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