54 DOUBLE PRECISION FUNCTION dget06( RCOND, RCONDC )
61 DOUBLE PRECISION rcond, rcondc
67 DOUBLE PRECISION zero, one
68 parameter( zero = 0.0d+0, one = 1.0d+0 )
71 DOUBLE PRECISION eps, rat
83 IF( rcond.GT.zero )
THEN
84 IF( rcondc.GT.zero )
THEN
85 rat = max( rcond, rcondc ) / min( rcond, rcondc ) -
91 IF( rcondc.GT.zero )
THEN
double precision function dlamch(CMACH)
DLAMCH
double precision function dget06(RCOND, RCONDC)
DGET06