rpl/lapack/lapack/ztbcon.f - diff

Return to ztbcon.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.7, 2010/12/21 13:53:56	version 1.8, 2011/07/22 07:38:20
Line 148	Line 148
RCOND = ZERO	RCOND = ZERO
SMLNUM = DLAMCH( 'Safe minimum' )*DBLE( MAX( N, 1 ) )	SMLNUM = DLAMCH( 'Safe minimum' )*DBLE( MAX( N, 1 ) )
*	*
* Compute the 1-norm of the triangular matrix A or A'.	* Compute the 1-norm of the triangular matrix A or A**H.
*	*
ANORM = ZLANTB( NORM, UPLO, DIAG, N, KD, AB, LDAB, RWORK )	ANORM = ZLANTB( NORM, UPLO, DIAG, N, KD, AB, LDAB, RWORK )
*	*
Line 177	Line 177
$ AB, LDAB, WORK, SCALE, RWORK, INFO )	$ AB, LDAB, WORK, SCALE, RWORK, INFO )
ELSE	ELSE
*	*
* Multiply by inv(A').	* Multiply by inv(A**H).
*	*
CALL ZLATBS( UPLO, 'Conjugate transpose', DIAG, NORMIN,	CALL ZLATBS( UPLO, 'Conjugate transpose', DIAG, NORMIN,
$ N, KD, AB, LDAB, WORK, SCALE, RWORK, INFO )	$ N, KD, AB, LDAB, WORK, SCALE, RWORK, INFO )