rpl/lapack/blas/ztbsv.f - diff

Return to ztbsv.f CVS log

Up to [local] / rpl / lapack / blas

version 1.6, 2010/12/21 13:51:27	version 1.7, 2011/07/22 07:38:03
Line 12	Line 12
*	*
* ZTBSV solves one of the systems of equations	* ZTBSV solves one of the systems of equations
*	*
* Ax = b, or A'x = b, or conjg( A' )*x = b,	* Ax = b, or ATx = b, or A*Hx = b,
*	*
* where b and x are n element vectors and A is an n by n unit, or	* where b and x are n element vectors and A is an n by n unit, or
* non-unit, upper or lower triangular band matrix, with ( k + 1 )	* non-unit, upper or lower triangular band matrix, with ( k + 1 )
Line 40	Line 40
*	*
* TRANS = 'N' or 'n' A*x = b.	* TRANS = 'N' or 'n' A*x = b.
*	*
* TRANS = 'T' or 't' A'*x = b.	* TRANS = 'T' or 't' A*Tx = b.
*	*
* TRANS = 'C' or 'c' conjg( A' )*x = b.	* TRANS = 'C' or 'c' A*Hx = b.
*	*
* Unchanged on exit.	* Unchanged on exit.
*	*
Line 272	Line 272
END IF	END IF
ELSE	ELSE
*	*
* Form x := inv( A' )x or x := inv( conjg( A') )x.	* Form x := inv( A*T )x or x := inv( A*H )x.
*	*
IF (LSAME(UPLO,'U')) THEN	IF (LSAME(UPLO,'U')) THEN
KPLUS1 = K + 1	KPLUS1 = K + 1