LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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 *
logical function slctsx(AR, AI, BETA)
SLCTSX
Definition: slctsx.f:65
Here is the caller graph for this function: