1*> \brief \b SGET06
2*
3*  =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6*            http://www.netlib.org/lapack/explore-html/
7*
8*  Definition:
9*  ===========
10*
11*       REAL             FUNCTION SGET06( RCOND, RCONDC )
12*
13*       .. Scalar Arguments ..
14*       REAL               RCOND, RCONDC
15*       ..
16*
17*
18*> \par Purpose:
19*  =============
20*>
21*> \verbatim
22*>
23*> SGET06 computes a test ratio to compare two values for RCOND.
24*> \endverbatim
25*
26*  Arguments:
27*  ==========
28*
29*> \param[in] RCOND
30*> \verbatim
31*>          RCOND is REAL
32*>          The estimate of the reciprocal of the condition number of A,
33*>          as computed by SGECON.
34*> \endverbatim
35*>
36*> \param[in] RCONDC
37*> \verbatim
38*>          RCONDC is REAL
39*>          The reciprocal of the condition number of A, computed as
40*>          ( 1/norm(A) ) / norm(inv(A)).
41*> \endverbatim
42*
43*  Authors:
44*  ========
45*
46*> \author Univ. of Tennessee
47*> \author Univ. of California Berkeley
48*> \author Univ. of Colorado Denver
49*> \author NAG Ltd.
50*
51*> \date November 2011
52*
53*> \ingroup single_lin
54*
55*  =====================================================================
56      REAL             FUNCTION SGET06( RCOND, RCONDC )
57*
58*  -- LAPACK test routine (version 3.4.0) --
59*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
60*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
61*     November 2011
62*
63*     .. Scalar Arguments ..
64      REAL               RCOND, RCONDC
65*     ..
66*
67*  =====================================================================
68*
69*     .. Parameters ..
70      REAL               ZERO, ONE
71      PARAMETER          ( ZERO = 0.0E+0, ONE = 1.0E+0 )
72*     ..
73*     .. Local Scalars ..
74      REAL               EPS, RAT
75*     ..
76*     .. External Functions ..
77      REAL               SLAMCH
78      EXTERNAL           SLAMCH
79*     ..
80*     .. Intrinsic Functions ..
81      INTRINSIC          MAX, MIN
82*     ..
83*     .. Executable Statements ..
84*
85      EPS = SLAMCH( 'Epsilon' )
86      IF( RCOND.GT.ZERO ) THEN
87         IF( RCONDC.GT.ZERO ) THEN
88            RAT = MAX( RCOND, RCONDC ) / MIN( RCOND, RCONDC ) -
89     $            ( ONE-EPS )
90         ELSE
91            RAT = RCOND / EPS
92         END IF
93      ELSE
94         IF( RCONDC.GT.ZERO ) THEN
95            RAT = RCONDC / EPS
96         ELSE
97            RAT = ZERO
98         END IF
99      END IF
100      SGET06 = RAT
101      RETURN
102*
103*     End of SGET06
104*
105      END
106