122 SUBROUTINE ztrt06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK,
133 DOUBLE PRECISION rat, rcond, rcondc
136 DOUBLE PRECISION rwork( * )
137 COMPLEX*16 a( lda, * )
143 DOUBLE PRECISION zero, one
144 parameter( zero = 0.0d+0, one = 1.0d+0 )
147 DOUBLE PRECISION anorm, bignum, eps, rmax, rmin
159 rmax = max( rcond, rcondc )
160 rmin = min( rcond, rcondc )
164 IF( rmin.LT.zero )
THEN
170 ELSE IF( rmin.GT.zero )
THEN
174 rat = rmax / rmin - one
176 ELSE IF( rmax.EQ.zero )
THEN
190 bignum = one /
dlamch(
'Safe minimum' )
191 anorm =
zlantr(
'M', uplo, diag, n, n, a, lda, rwork )
193 rat = rmax*( min( bignum / max( one, anorm ), one / eps ) )
double precision function zlantr(NORM, UPLO, DIAG, M, N, A, LDA, WORK)
ZLANTR returns the value of the 1-norm, or the Frobenius norm, or the infinity norm, or the element of largest absolute value of a trapezoidal or triangular matrix.
double precision function dlamch(CMACH)
DLAMCH
subroutine ztrt06(RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, RAT)
ZTRT06