rpl/lapack/blas/ztpmv.f - diff

Return to ztpmv.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
*	*
* ZTPMV performs one of the matrix-vector operations	* ZTPMV 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 matrix, supplied in packed form.	* upper or lower triangular matrix, supplied in packed form.
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 89	Line 89
* ===============	* ===============
*	*
* 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 227	Line 228
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
KK = (N* (N+1))/2	KK = (N* (N+1))/2