56 DOUBLE PRECISION FUNCTION dget06( RCOND, RCONDC )
64 DOUBLE PRECISION rcond, rcondc
70 DOUBLE PRECISION zero, one
71 parameter( zero = 0.0d+0, one = 1.0d+0 )
74 DOUBLE PRECISION eps, rat
86 IF( rcond.GT.zero )
THEN
87 IF( rcondc.GT.zero )
THEN
88 rat = max( rcond, rcondc ) / min( rcond, rcondc ) -
94 IF( rcondc.GT.zero )
THEN
DOUBLE PRECISION function dget06(RCOND, RCONDC)
DGET06
DOUBLE PRECISION function dlamch(CMACH)
DLAMCH