rpl/lapack/lapack/dsytri_rook.f - diff

Return to dsytri_rook.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dsytri_rook.f between versions 1.3 and 1.4

version 1.3, 2016/08/27 15:34:40	version 1.4, 2017/06/17 10:54:05
Line 2	Line 2
*	*
* =========== DOCUMENTATION ===========	* =========== DOCUMENTATION ===========
*	*
* Online html documentation available at	* Online html documentation available at
* http://www.netlib.org/lapack/explore-html/	* http://www.netlib.org/lapack/explore-html/
*	*
*> \htmlonly	*> \htmlonly
*> Download DSYTRI_ROOK + dependencies	*> Download DSYTRI_ROOK + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsytri_rook.f">	*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsytri_rook.f">
*> [TGZ]</a>	*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsytri_rook.f">	*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsytri_rook.f">
*> [ZIP]</a>	*> [ZIP]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsytri_rook.f">	*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsytri_rook.f">
*> [TXT]</a>	*> [TXT]</a>
*> \endhtmlonly	*> \endhtmlonly
*	*
* Definition:	* Definition:
* ===========	* ===========
*	*
* SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO )	* SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO )
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
* CHARACTER UPLO	* CHARACTER UPLO
* INTEGER INFO, LDA, N	* INTEGER INFO, LDA, N
Line 28	Line 28
* INTEGER IPIV( * )	* INTEGER IPIV( * )
* DOUBLE PRECISION A( LDA, * ), WORK( * )	* DOUBLE PRECISION A( LDA, * ), WORK( * )
* ..	* ..
*	*
*	*
*> \par Purpose:	*> \par Purpose:
* =============	* =============
Line 102	Line 102
* Authors:	* Authors:
* ========	* ========
*	*
*> \author Univ. of Tennessee	*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley	*> \author Univ. of California Berkeley
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date April 2012	*> \date April 2012
*	*
Line 129	Line 129
* =====================================================================	* =====================================================================
SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO )	SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO )
*	*
* -- LAPACK computational routine (version 3.4.1) --	* -- LAPACK computational routine (version 3.7.0) --
* -- 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..--
* April 2012	* April 2012
Line 300	Line 300
IF( KP.GT.1 )	IF( KP.GT.1 )
$ CALL DSWAP( KP-1, A( 1, K ), 1, A( 1, KP ), 1 )	$ CALL DSWAP( KP-1, A( 1, K ), 1, A( 1, KP ), 1 )
CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA )	CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA )
*	*
TEMP = A( K, K )	TEMP = A( K, K )
A( K, K ) = A( KP, KP )	A( K, K ) = A( KP, KP )
A( KP, KP ) = TEMP	A( KP, KP ) = TEMP
Line 391	Line 391
$ DDOT( N-K, WORK, 1, A( K+1, K-1 ), 1 )	$ DDOT( N-K, WORK, 1, A( K+1, K-1 ), 1 )
END IF	END IF
KSTEP = 2	KSTEP = 2
END IF	END IF
*	*
IF( KSTEP.EQ.1 ) THEN	IF( KSTEP.EQ.1 ) THEN
*	*

CVSweb interface <joel.bertrand@systella.fr>

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