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

## ◆ dget06()

 double precision function dget06 ( double precision rcond, double precision rcondc )

DGET06

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

Definition at line 54 of file dget06.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 DOUBLE PRECISION RCOND, RCONDC
62* ..
63*
64* =====================================================================
65*
66* .. Parameters ..
67 DOUBLE PRECISION ZERO, ONE
68 parameter( zero = 0.0d+0, one = 1.0d+0 )
69* ..
70* .. Local Scalars ..
71 DOUBLE PRECISION EPS, RAT
72* ..
73* .. External Functions ..
74 DOUBLE PRECISION DLAMCH
75 EXTERNAL dlamch
76* ..
77* .. Intrinsic Functions ..
78 INTRINSIC max, min
79* ..
80* .. Executable Statements ..
81*
82 eps = dlamch( '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 dget06 = rat
98 RETURN
99*
100* End of DGET06
101*
double precision function dget06(rcond, rcondc)
DGET06
Definition dget06.f:55
double precision function dlamch(cmach)
DLAMCH
Definition dlamch.f:69
Here is the call graph for this function:
Here is the caller graph for this function: