rpl/lapack/lapack/dtfttp.f - diff

Return to dtfttp.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dtfttp.f between versions 1.3 and 1.6

version 1.3, 2010/08/13 21:03:59	version 1.6, 2011/07/22 07:38:12
Line 1	Line 1
SUBROUTINE DTFTTP( TRANSR, UPLO, N, ARF, AP, INFO )	SUBROUTINE DTFTTP( TRANSR, UPLO, N, ARF, AP, INFO )
*	*
* -- LAPACK routine (version 3.2.2) --	* -- 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 --
* -- June 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 26	Line 26
* Arguments	* Arguments
* =========	* =========
*	*
* TRANSR (input) CHARACTER	* TRANSR (input) CHARACTER*1
* = 'N': ARF is in Normal format;	* = 'N': ARF is in Normal format;
* = 'T': ARF is in Transpose format;	* = 'T': ARF is in 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 175	Line 175
* 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 218	Line 218
* 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.3
changed lines
	Added in v.1.6