rpl/lapack/lapack/zla_porcond_x.f - diff

Return to zla_porcond_x.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.4, 2010/12/21 13:53:48	version 1.5, 2011/07/22 07:38:16
Line 46	Line 46
*	*
* AF (input) COMPLEX*16 array, dimension (LDAF,N)	* AF (input) COMPLEX*16 array, dimension (LDAF,N)
* The triangular factor U or L from the Cholesky factorization	* The triangular factor U or L from the Cholesky factorization
* A = U*TU or A = LL*T, as computed by ZPOTRF.	* A = U*HU or A = LL*H, as computed by ZPOTRF.
*	*
* LDAF (input) INTEGER	* LDAF (input) INTEGER
* The leading dimension of the array AF. LDAF >= max(1,N).	* The leading dimension of the array AF. LDAF >= max(1,N).
Line 175	Line 175
END DO	END DO
ELSE	ELSE
*	*
* Multiply by inv(X').	* Multiply by inv(X**H).
*	*
DO I = 1, N	DO I = 1, N
WORK( I ) = WORK( I ) / X( I )	WORK( I ) = WORK( I ) / X( I )