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

## ◆ zlctsx()

 logical function zlctsx ( complex*16 ALPHA, complex*16 BETA )

ZLCTSX

Purpose:
``` This function is used to determine what eigenvalues will be
selected.  If this is part of the test driver ZDRGSX, do not
change the code UNLESS you are testing input examples and not
using the built-in examples.```
Parameters
 [in] ALPHA ` ALPHA is COMPLEX*16` [in] BETA ``` BETA is COMPLEX*16 parameters to decide whether the pair (ALPHA, BETA) is selected.```

Definition at line 56 of file zlctsx.f.

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*16 ALPHA, BETA
64* ..
65*
66* =====================================================================
67*
68* .. Parameters ..
69* DOUBLE PRECISION ZERO
70* PARAMETER ( ZERO = 0.0E+0 )
71* COMPLEX*16 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 zlctsx = .false.
90 ELSE
91 zlctsx = .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 zlctsx = .true.
101 ELSE
102 zlctsx = .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* ZLCTSX = ( DBLE( ALPHA ).GT.ZERO )
112* ELSE
113* ZLCTSX = ( DBLE( ALPHA/BETA ).GT.ZERO )
114* END IF
115*
116 RETURN
117*
118* End of ZLCTSX
119*
logical function zlctsx(ALPHA, BETA)
ZLCTSX
Definition: zlctsx.f:57
Here is the call graph for this function:
Here is the caller graph for this function: