1 LOGICAL FUNCTION CLCTSX( ALPHA, BETA )
2 *
3 * -- LAPACK test routine (version 3.1) --
4 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5 * November 2006
6 *
7 * .. Scalar Arguments ..
8 COMPLEX ALPHA, BETA
9 * ..
10 *
11 * Purpose
12 * =======
13 *
14 * This function is used to determine what eigenvalues will be
15 * selected. If this is part of the test driver CDRGSX, do not
16 * change the code UNLESS you are testing input examples and not
17 * using the built-in examples.
18 *
19 * Arguments
20 * =========
21 *
22 * ALPHA (input) COMPLEX
23 * BETA (input) COMPLEX
24 * parameters to decide whether the pair (ALPHA, BETA) is
25 * selected.
26 *
27 * =====================================================================
28 *
29 * .. Parameters ..
30 * REAL ZERO
31 * PARAMETER ( ZERO = 0.0E+0 )
32 * COMPLEX CZERO
33 * PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) )
34 * ..
35 * .. Scalars in Common ..
36 LOGICAL FS
37 INTEGER I, M, MPLUSN, N
38 * ..
39 * .. Common blocks ..
40 COMMON / MN / M, N, MPLUSN, I, FS
41 * ..
42 * .. Save statement ..
43 SAVE
44 * ..
45 * .. Executable Statements ..
46 *
47 IF( FS ) THEN
48 I = I + 1
49 IF( I.LE.M ) THEN
50 CLCTSX = .FALSE.
51 ELSE
52 CLCTSX = .TRUE.
53 END IF
54 IF( I.EQ.MPLUSN ) THEN
55 FS = .FALSE.
56 I = 0
57 END IF
58 ELSE
59 I = I + 1
60 IF( I.LE.N ) THEN
61 CLCTSX = .TRUE.
62 ELSE
63 CLCTSX = .FALSE.
64 END IF
65 IF( I.EQ.MPLUSN ) THEN
66 FS = .TRUE.
67 I = 0
68 END IF
69 END IF
70 *
71 * IF( BETA.EQ.CZERO ) THEN
72 * CLCTSX = ( REAL( ALPHA ).GT.ZERO )
73 * ELSE
74 * CLCTSX = ( REAL( ALPHA/BETA ).GT.ZERO )
75 * END IF
76 *
77 RETURN
78 *
79 * End of CLCTSX
80 *
81 END
2 *
3 * -- LAPACK test routine (version 3.1) --
4 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5 * November 2006
6 *
7 * .. Scalar Arguments ..
8 COMPLEX ALPHA, BETA
9 * ..
10 *
11 * Purpose
12 * =======
13 *
14 * This function is used to determine what eigenvalues will be
15 * selected. If this is part of the test driver CDRGSX, do not
16 * change the code UNLESS you are testing input examples and not
17 * using the built-in examples.
18 *
19 * Arguments
20 * =========
21 *
22 * ALPHA (input) COMPLEX
23 * BETA (input) COMPLEX
24 * parameters to decide whether the pair (ALPHA, BETA) is
25 * selected.
26 *
27 * =====================================================================
28 *
29 * .. Parameters ..
30 * REAL ZERO
31 * PARAMETER ( ZERO = 0.0E+0 )
32 * COMPLEX CZERO
33 * PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) )
34 * ..
35 * .. Scalars in Common ..
36 LOGICAL FS
37 INTEGER I, M, MPLUSN, N
38 * ..
39 * .. Common blocks ..
40 COMMON / MN / M, N, MPLUSN, I, FS
41 * ..
42 * .. Save statement ..
43 SAVE
44 * ..
45 * .. Executable Statements ..
46 *
47 IF( FS ) THEN
48 I = I + 1
49 IF( I.LE.M ) THEN
50 CLCTSX = .FALSE.
51 ELSE
52 CLCTSX = .TRUE.
53 END IF
54 IF( I.EQ.MPLUSN ) THEN
55 FS = .FALSE.
56 I = 0
57 END IF
58 ELSE
59 I = I + 1
60 IF( I.LE.N ) THEN
61 CLCTSX = .TRUE.
62 ELSE
63 CLCTSX = .FALSE.
64 END IF
65 IF( I.EQ.MPLUSN ) THEN
66 FS = .TRUE.
67 I = 0
68 END IF
69 END IF
70 *
71 * IF( BETA.EQ.CZERO ) THEN
72 * CLCTSX = ( REAL( ALPHA ).GT.ZERO )
73 * ELSE
74 * CLCTSX = ( REAL( ALPHA/BETA ).GT.ZERO )
75 * END IF
76 *
77 RETURN
78 *
79 * End of CLCTSX
80 *
81 END