LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ clctsx()

logical function clctsx ( complex  ALPHA,
complex  BETA 
)

CLCTSX

Purpose:
 This function is used to determine what eigenvalues will be
 selected.  If this is part of the test driver CDRGSX, do not
 change the code UNLESS you are testing input examples and not
 using the built-in examples.
Parameters
[in]ALPHA
          ALPHA is COMPLEX
[in]BETA
          BETA is COMPLEX

          parameters to decide whether the pair (ALPHA, BETA) is
          selected.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
December 2016

Definition at line 59 of file clctsx.f.

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