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

◆ slctsx()

logical function slctsx ( real  ar,
real  ai,
real  beta 
)

SLCTSX

Purpose:
 This function is used to determine what eigenvalues will be
 selected.  If this is part of the test driver SDRGSX, do not
 change the code UNLESS you are testing input examples and not
 using the built-in examples.
Parameters
[in]AR
          AR is REAL
          The numerator of the real part of a complex eigenvalue
          (AR/BETA) + i*(AI/BETA).
[in]AI
          AI is REAL
          The numerator of the imaginary part of a complex eigenvalue
          (AR/BETA) + i*(AI).
[in]BETA
          BETA is REAL
          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 slctsx.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 REAL 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 slctsx = .false.
92 ELSE
93 slctsx = .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 slctsx = .true.
103 ELSE
104 slctsx = .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* SLCTSX = .TRUE.
114* ELSE
115* SLCTSX = .FALSE.
116* END IF
117*
118 RETURN
119*
120* End of SLCTSX
121*
slctsx
logical function slctsx(ar, ai, beta)
SLCTSX
Definition slctsx.f:65
Here is the call graph for this function:
Here is the caller graph for this function: