rpl/lapack/lapack/dsyevd_2stage.f - diff

Return to dsyevd_2stage.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.4, 2018/05/29 07:18:08	version 1.6, 2023/08/07 08:39:08
Line 180	Line 180
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2017
*
*> \ingroup doubleSYeigen	*> \ingroup doubleSYeigen
*	*
*> \par Contributors:	*> \par Contributors:
Line 229	Line 227
*	*
IMPLICIT NONE	IMPLICIT NONE
*	*
* -- LAPACK driver routine (version 3.8.0) --	* -- LAPACK driver routine --
* -- 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 2017
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER JOBZ, UPLO	CHARACTER JOBZ, UPLO
Line 385	Line 382
IF( .NOT.WANTZ ) THEN	IF( .NOT.WANTZ ) THEN
CALL DSTERF( N, W, WORK( INDE ), INFO )	CALL DSTERF( N, W, WORK( INDE ), INFO )
ELSE	ELSE
* Not available in this release, and agrument checking should not	* Not available in this release, and argument checking should not
* let it getting here	* let it getting here
RETURN	RETURN
CALL DSTEDC( 'I', N, W, WORK( INDE ), WORK( INDWRK ), N,	CALL DSTEDC( 'I', N, W, WORK( INDE ), WORK( INDWRK ), N,