LAPACK 3.12.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches

## ◆ sget06()

 real function sget06 ( real rcond, real rcondc )

SGET06

Purpose:
` SGET06 computes a test ratio to compare two values for RCOND.`
Parameters
 [in] RCOND ``` RCOND is REAL The estimate of the reciprocal of the condition number of A, as computed by SGECON.``` [in] RCONDC ``` RCONDC is REAL The reciprocal of the condition number of A, computed as ( 1/norm(A) ) / norm(inv(A)).```

Definition at line 54 of file sget06.f.

55*
56* -- LAPACK test routine --
57* -- LAPACK is a software package provided by Univ. of Tennessee, --
58* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
59*
60* .. Scalar Arguments ..
61 REAL RCOND, RCONDC
62* ..
63*
64* =====================================================================
65*
66* .. Parameters ..
67 REAL ZERO, ONE
68 parameter( zero = 0.0e+0, one = 1.0e+0 )
69* ..
70* .. Local Scalars ..
71 REAL EPS, RAT
72* ..
73* .. External Functions ..
74 REAL SLAMCH
75 EXTERNAL slamch
76* ..
77* .. Intrinsic Functions ..
78 INTRINSIC max, min
79* ..
80* .. Executable Statements ..
81*
82 eps = slamch( 'Epsilon' )
83 IF( rcond.GT.zero ) THEN
84 IF( rcondc.GT.zero ) THEN
85 rat = max( rcond, rcondc ) / min( rcond, rcondc ) -
86 \$ ( one-eps )
87 ELSE
88 rat = rcond / eps
89 END IF
90 ELSE
91 IF( rcondc.GT.zero ) THEN
92 rat = rcondc / eps
93 ELSE
94 rat = zero
95 END IF
96 END IF
97 sget06 = rat
98 RETURN
99*
100* End of SGET06
101*
real function slamch(cmach)
SLAMCH
Definition slamch.f:68
real function sget06(rcond, rcondc)
SGET06
Definition sget06.f:55
Here is the call graph for this function:
Here is the caller graph for this function: