dd/d77/sget06_8f_source.html

00001       REAL             FUNCTION SGET06( RCOND, RCONDC )
00002 *
00003 *  -- LAPACK test routine (version 3.1) --
00004 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
00005 *     November 2006
00006 *
00007 *     .. Scalar Arguments ..
00008       REAL               RCOND, RCONDC
00009 *     ..
00010 *
00011 *  Purpose
00012 *  =======
00013 *
00014 *  SGET06 computes a test ratio to compare two values for RCOND.
00015 *
00016 *  Arguments
00017 *  ==========
00018 *
00019 *  RCOND   (input) REAL
00020 *          The estimate of the reciprocal of the condition number of A,
00021 *          as computed by SGECON.
00022 *
00023 *  RCONDC  (input) REAL
00024 *          The reciprocal of the condition number of A, computed as
00025 *          ( 1/norm(A) ) / norm(inv(A)).
00026 *
00027 *  =====================================================================
00028 *
00029 *     .. Parameters ..
00030       REAL               ZERO, ONE
00031       PARAMETER          ( ZERO = 0.0E+0, ONE = 1.0E+0 )
00032 *     ..
00033 *     .. Local Scalars ..
00034       REAL               EPS, RAT
00035 *     ..
00036 *     .. External Functions ..
00037       REAL               SLAMCH
00038       EXTERNAL           SLAMCH
00039 *     ..
00040 *     .. Intrinsic Functions ..
00041       INTRINSIC          MAX, MIN
00042 *     ..
00043 *     .. Executable Statements ..
00044 *
00045       EPS = SLAMCH( 'Epsilon' )
00046       IF( RCOND.GT.ZERO ) THEN
00047          IF( RCONDC.GT.ZERO ) THEN
00048             RAT = MAX( RCOND, RCONDC ) / MIN( RCOND, RCONDC ) -
00049      $            ( ONE-EPS )
00050          ELSE
00051             RAT = RCOND / EPS
00052          END IF
00053       ELSE
00054          IF( RCONDC.GT.ZERO ) THEN
00055             RAT = RCONDC / EPS
00056          ELSE
00057             RAT = ZERO
00058          END IF
00059       END IF
00060       SGET06 = RAT
00061       RETURN
00062 *
00063 *     End of SGET06
00064 *
00065       END