rpl/lapack/lapack/ztfttp.f - diff

Return to ztfttp.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.5, 2010/12/21 13:53:56	version 1.6, 2011/07/22 07:38:21
Line 1	Line 1
SUBROUTINE ZTFTTP( TRANSR, UPLO, N, ARF, AP, INFO )	SUBROUTINE ZTFTTP( TRANSR, UPLO, N, ARF, AP, INFO )
*	*
* -- LAPACK routine (version 3.3.0) --	* -- LAPACK routine (version 3.3.1) --
*	*
* -- Contributed by Fred Gustavson of the IBM Watson Research Center --	* -- Contributed by Fred Gustavson of the IBM Watson Research Center --
* November 2010	* -- April 2011 --
*	*
* -- 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..--
Line 200	Line 200
* Quick return if possible	* Quick return if possible
*	*
IF( N.EQ.0 )	IF( N.EQ.0 )
+ RETURN	$ RETURN
*	*
IF( N.EQ.1 ) THEN	IF( N.EQ.1 ) THEN
IF( NORMALTRANSR ) THEN	IF( NORMALTRANSR ) THEN
Line 243	Line 243
* ARF^C has lda rows and n+1-noe cols	* ARF^C has lda rows and n+1-noe cols
*	*
IF( .NOT.NORMALTRANSR )	IF( .NOT.NORMALTRANSR )
+ LDA = ( N+1 ) / 2	$ LDA = ( N+1 ) / 2
*	*
* start execution: there are eight cases	* start execution: there are eight cases
*	*