rpl/lapack/lapack/zpptri.f - diff

Return to zpptri.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.7, 2010/12/21 13:53:54	version 1.8, 2011/07/22 07:38:19
Line 1	Line 1
SUBROUTINE ZPPTRI( UPLO, N, AP, INFO )	SUBROUTINE ZPPTRI( UPLO, N, AP, INFO )
*	*
* -- LAPACK routine (version 3.2) --	* -- LAPACK routine (version 3.3.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --	* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--	* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* November 2006	* -- April 2011 --
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER UPLO	CHARACTER UPLO
Line 97	Line 97
$ RETURN	$ RETURN
IF( UPPER ) THEN	IF( UPPER ) THEN
*	*
* Compute the product inv(U) * inv(U)'.	* Compute the product inv(U) * inv(U)**H.
*	*
JJ = 0	JJ = 0
DO 10 J = 1, N	DO 10 J = 1, N
Line 111	Line 111
*	*
ELSE	ELSE
*	*
* Compute the product inv(L)' * inv(L).	* Compute the product inv(L)*H inv(L).
*	*
JJ = 1	JJ = 1
DO 20 J = 1, N	DO 20 J = 1, N