1 REAL FUNCTION SGET06( RCOND, RCONDC )
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 REAL RCOND, RCONDC
9 * ..
10 *
11 * Purpose
12 * =======
13 *
14 * SGET06 computes a test ratio to compare two values for RCOND.
15 *
16 * Arguments
17 * ==========
18 *
19 * RCOND (input) REAL
20 * The estimate of the reciprocal of the condition number of A,
21 * as computed by SGECON.
22 *
23 * RCONDC (input) REAL
24 * The reciprocal of the condition number of A, computed as
25 * ( 1/norm(A) ) / norm(inv(A)).
26 *
27 * =====================================================================
28 *
29 * .. Parameters ..
30 REAL ZERO, ONE
31 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0 )
32 * ..
33 * .. Local Scalars ..
34 REAL EPS, RAT
35 * ..
36 * .. External Functions ..
37 REAL SLAMCH
38 EXTERNAL SLAMCH
39 * ..
40 * .. Intrinsic Functions ..
41 INTRINSIC MAX, MIN
42 * ..
43 * .. Executable Statements ..
44 *
45 EPS = SLAMCH( 'Epsilon' )
46 IF( RCOND.GT.ZERO ) THEN
47 IF( RCONDC.GT.ZERO ) THEN
48 RAT = MAX( RCOND, RCONDC ) / MIN( RCOND, RCONDC ) -
49 $ ( ONE-EPS )
50 ELSE
51 RAT = RCOND / EPS
52 END IF
53 ELSE
54 IF( RCONDC.GT.ZERO ) THEN
55 RAT = RCONDC / EPS
56 ELSE
57 RAT = ZERO
58 END IF
59 END IF
60 SGET06 = RAT
61 RETURN
62 *
63 * End of SGET06
64 *
65 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 REAL RCOND, RCONDC
9 * ..
10 *
11 * Purpose
12 * =======
13 *
14 * SGET06 computes a test ratio to compare two values for RCOND.
15 *
16 * Arguments
17 * ==========
18 *
19 * RCOND (input) REAL
20 * The estimate of the reciprocal of the condition number of A,
21 * as computed by SGECON.
22 *
23 * RCONDC (input) REAL
24 * The reciprocal of the condition number of A, computed as
25 * ( 1/norm(A) ) / norm(inv(A)).
26 *
27 * =====================================================================
28 *
29 * .. Parameters ..
30 REAL ZERO, ONE
31 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0 )
32 * ..
33 * .. Local Scalars ..
34 REAL EPS, RAT
35 * ..
36 * .. External Functions ..
37 REAL SLAMCH
38 EXTERNAL SLAMCH
39 * ..
40 * .. Intrinsic Functions ..
41 INTRINSIC MAX, MIN
42 * ..
43 * .. Executable Statements ..
44 *
45 EPS = SLAMCH( 'Epsilon' )
46 IF( RCOND.GT.ZERO ) THEN
47 IF( RCONDC.GT.ZERO ) THEN
48 RAT = MAX( RCOND, RCONDC ) / MIN( RCOND, RCONDC ) -
49 $ ( ONE-EPS )
50 ELSE
51 RAT = RCOND / EPS
52 END IF
53 ELSE
54 IF( RCONDC.GT.ZERO ) THEN
55 RAT = RCONDC / EPS
56 ELSE
57 RAT = ZERO
58 END IF
59 END IF
60 SGET06 = RAT
61 RETURN
62 *
63 * End of SGET06
64 *
65 END