LAPACK  3.10.1
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.

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