LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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: