LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
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)).
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

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 sget06(RCOND, RCONDC)
SGET06
Definition: sget06.f:55
real function slamch(CMACH)
SLAMCH
Definition: slamch.f:68
Here is the call graph for this function:
Here is the caller graph for this function: