rpl/lapack/lapack/dtrttf.f - diff

Return to dtrttf.f CVS log

Up to [local] / rpl / lapack / lapack

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

version 1.1, 2010/08/07 13:21:07	version 1.6, 2011/07/22 07:38:13
Line 1	Line 1
SUBROUTINE DTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO )	SUBROUTINE DTRTTF( TRANSR, UPLO, N, A, LDA, ARF, 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 25	Line 25
* Arguments	* Arguments
* =========	* =========
*	*
* TRANSR (input) CHARACTER	* TRANSR (input) CHARACTER*1
* = 'N': ARF in Normal form is wanted;	* = 'N': ARF in Normal form is wanted;
* = 'T': ARF in Transpose form is wanted.	* = 'T': ARF in Transpose form is wanted.
*	*
* UPLO (input) CHARACTER	* UPLO (input) CHARACTER*1
* = 'U': Upper triangle of A is stored;	* = 'U': Upper triangle of A is stored;
* = 'L': Lower triangle of A is stored.	* = 'L': Lower triangle of A is stored.
*	*
Line 211	Line 211
K = N / 2	K = N / 2
NISODD = .FALSE.	NISODD = .FALSE.
IF( .NOT.LOWER )	IF( .NOT.LOWER )
+ NP1X2 = N + N + 2	$ NP1X2 = N + N + 2
ELSE	ELSE
NISODD = .TRUE.	NISODD = .TRUE.
IF( .NOT.LOWER )	IF( .NOT.LOWER )
+ NX2 = N + N	$ NX2 = N + N
END IF	END IF
*	*
IF( NISODD ) THEN	IF( NISODD ) THEN

CVSweb interface <joel.bertrand@systella.fr>

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