rpl/lapack/lapack/dtfttr.f - diff

Return to dtfttr.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.1, 2010/08/07 13:21:07	version 1.6, 2011/07/22 07:38:12
Line 1	Line 1
SUBROUTINE DTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO )	SUBROUTINE DTFTTR( TRANSR, UPLO, N, ARF, A, LDA, 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 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 214	Line 214
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