rpl/lapack/blas/zherk.f - diff

Return to zherk.f CVS log

Up to [local] / rpl / lapack / blas

version 1.6, 2010/12/21 13:51:26	version 1.7, 2011/07/22 07:38:03
Line 13	Line 13
*	*
* ZHERK performs one of the hermitian rank k operations	* ZHERK performs one of the hermitian rank k operations
*	*
* C := alphaAconjg( A' ) + beta*C,	* C := alphaAA*H + betaC,
*	*
* or	* or
*	*
* C := alphaconjg( A' )A + beta*C,	* C := alphaAHA + beta*C,
*	*
* where alpha and beta are real scalars, C is an n by n hermitian	* where alpha and beta are real scalars, C is an n by n hermitian
* matrix and A is an n by k matrix in the first case and a k by n	* matrix and A is an n by k matrix in the first case and a k by n
Line 43	Line 43
* On entry, TRANS specifies the operation to be performed as	* On entry, TRANS specifies the operation to be performed as
* follows:	* follows:
*	*
* TRANS = 'N' or 'n' C := alphaAconjg( A' ) + beta*C.	* TRANS = 'N' or 'n' C := alphaAA*H + betaC.
*	*
* TRANS = 'C' or 'c' C := alphaconjg( A' )A + beta*C.	* TRANS = 'C' or 'c' C := alphaAHA + beta*C.
*	*
* Unchanged on exit.	* Unchanged on exit.
*	*
Line 219	Line 219
*	*
IF (LSAME(TRANS,'N')) THEN	IF (LSAME(TRANS,'N')) THEN
*	*
* Form C := alphaAconjg( A' ) + beta*C.	* Form C := alphaAA*H + betaC.
*	*
IF (UPPER) THEN	IF (UPPER) THEN
DO 130 J = 1,N	DO 130 J = 1,N
Line 272	Line 272
END IF	END IF
ELSE	ELSE
*	*
* Form C := alphaconjg( A' )A + beta*C.	* Form C := alphaAHA + beta*C.
*	*
IF (UPPER) THEN	IF (UPPER) THEN
DO 220 J = 1,N	DO 220 J = 1,N