rpl/lapack/lapack/zpstf2.f - diff

Return to zpstf2.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.4, 2010/12/21 13:53:54	version 1.5, 2011/07/22 07:38:19
Line 22	Line 22
* pivoting of a complex Hermitian positive semidefinite matrix A.	* pivoting of a complex Hermitian positive semidefinite matrix A.
*	*
* The factorization has the form	* The factorization has the form
* P' * A * P = U' * U , if UPLO = 'U',	* P*T A * P = U*H U , if UPLO = 'U',
* P' * A * P = L * L', if UPLO = 'L',	* P*T A * P = L * L**H, if UPLO = 'L',
* where U is an upper triangular matrix and L is lower triangular, and	* where U is an upper triangular matrix and L is lower triangular, and
* P is stored as vector PIV.	* P is stored as vector PIV.
*	*
Line 162	Line 162
*	*
IF( UPPER ) THEN	IF( UPPER ) THEN
*	*
* Compute the Cholesky factorization P' * A * P = U' * U	* Compute the Cholesky factorization P*T A * P = U*H U
*	*
DO 150 J = 1, N	DO 150 J = 1, N
*	*
Line 234	Line 234
*	*
ELSE	ELSE
*	*
* Compute the Cholesky factorization P' * A * P = L * L'	* Compute the Cholesky factorization P*T A * P = L * L**H
*	*
DO 180 J = 1, N	DO 180 J = 1, N
*	*