rpl/lapack/lapack/ztfttp.f - diff

Return to ztfttp.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/ztfttp.f between versions 1.1 and 1.6

version 1.1, 2010/08/07 13:21:12	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.2.1) --	* -- 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 --
* -- April 2009 --	* -- 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 25	Line 25
* Arguments	* Arguments
* =========	* =========
*	*
* TRANSR (input) CHARACTER	* TRANSR (input) CHARACTER*1
* = 'N': ARF is in Normal format;	* = 'N': ARF is in Normal format;
* = 'C': ARF is in Conjugate-transpose format;	* = 'C': ARF is in Conjugate-transpose format;
*	*
* UPLO (input) CHARACTER	* UPLO (input) CHARACTER*1
* = 'U': A is upper triangular;	* = 'U': A is upper triangular;
* = 'L': A is lower triangular.	* = 'L': A is lower triangular.
*	*
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
*	*

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.1
changed lines
	Added in v.1.6