rpl/lapack/blas/ztbmv.f - diff

Return to ztbmv.f CVS log

Up to [local] / rpl / lapack / blas

version 1.5, 2010/08/13 21:03:42	version 1.7, 2011/07/22 07:38:03
Line 12	Line 12
*	*
* ZTBMV performs one of the matrix-vector operations	* ZTBMV performs one of the matrix-vector operations
*	*
* x := Ax, or x := A'x, or x := conjg( A' )*x,	* x := Ax, or x := ATx, or x := A*Hx,
*	*
* where x is an n element vector and A is an n by n unit, or non-unit,	* where x is an n element vector and A is an n by n unit, or non-unit,
* upper or lower triangular band matrix, with ( k + 1 ) diagonals.	* upper or lower triangular band matrix, with ( k + 1 ) diagonals.
Line 36	Line 36
*	*
* TRANS = 'N' or 'n' x := A*x.	* TRANS = 'N' or 'n' x := A*x.
*	*
* TRANS = 'T' or 't' x := A'*x.	* TRANS = 'T' or 't' x := A*Tx.
*	*
* TRANS = 'C' or 'c' x := conjg( A' )*x.	* TRANS = 'C' or 'c' x := A*Hx.
*	*
* Unchanged on exit.	* Unchanged on exit.
*	*
Line 129	Line 129
* ===============	* ===============
*	*
* Level 2 Blas routine.	* Level 2 Blas routine.
	* The vector and matrix arguments are not referenced when N = 0, or M = 0
*	*
* -- Written on 22-October-1986.	* -- Written on 22-October-1986.
* Jack Dongarra, Argonne National Lab.	* Jack Dongarra, Argonne National Lab.
Line 268	Line 269
END IF	END IF
ELSE	ELSE
*	*
* Form x := A'x or x := conjg( A' )x.	* Form x := A*Tx or x := A*Hx.
*	*
IF (LSAME(UPLO,'U')) THEN	IF (LSAME(UPLO,'U')) THEN
KPLUS1 = K + 1	KPLUS1 = K + 1