rpl/lapack/lapack/zsyswapr.f - diff

Return to zsyswapr.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/zsyswapr.f between versions 1.2 and 1.3

version 1.2, 2010/12/21 13:53:56	version 1.3, 2011/07/22 07:38:20
Line 1	Line 1
SUBROUTINE ZSYSWAPR( UPLO, N, A, I1, I2)	SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2)
*	*
* -- LAPACK auxiliary routine (version 3.3.0) --	* -- LAPACK auxiliary routine (version 3.3.1) --
* -- 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..--
* November 2010	* -- April 2011 --
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER UPLO	CHARACTER UPLO
INTEGER I1, I2, N	INTEGER I1, I2, LDA, N
* ..	* ..
* .. Array Arguments ..	* .. Array Arguments ..
DOUBLE COMPLEX A(N,N)	DOUBLE COMPLEX A( LDA, N )
*	*
* Purpose	* Purpose
* =======	* =======
Line 41	Line 41
* inverse is formed and the part of A above the diagonal is	* inverse is formed and the part of A above the diagonal is
* not referenced.	* not referenced.
*	*
	* LDA (input) INTEGER
	* The leading dimension of the array A. LDA >= max(1,N).
	*
* I1 (input) INTEGER	* I1 (input) INTEGER
* Index of the first row to swap	* Index of the first row to swap
*	*
Line 98	Line 101
* LOWER	* LOWER
* first swap	* first swap
* - swap row I1 and I2 from I1 to I1-1	* - swap row I1 and I2 from I1 to I1-1
CALL ZSWAP( I1-1, A(I1,1), N, A(I2,1), N )	CALL ZSWAP( I1-1, A(I1,1), LDA, A(I2,1), LDA )
*	*
* second swap :	* second swap :
* - swap A(I1,I1) and A(I2,I2)	* - swap A(I1,I1) and A(I2,I2)

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.2
changed lines
	Added in v.1.3