rpl/lapack/lapack/dggev.f - diff

Return to dggev.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dggev.f between versions 1.9 and 1.10

version 1.9, 2011/11/21 22:19:29	version 1.10, 2012/07/31 11:06:35
Line 218	Line 218
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2011	*> \date April 2012
*	*
*> \ingroup doubleGEeigen	*> \ingroup doubleGEeigen
*	*
Line 226	Line 226
SUBROUTINE DGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI,	SUBROUTINE DGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI,
$ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO )	$ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO )
*	*
* -- LAPACK driver routine (version 3.4.0) --	* -- LAPACK driver routine (version 3.4.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 2011	* April 2012
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER JOBVL, JOBVR	CHARACTER JOBVL, JOBVR
Line 573	Line 573
*	*
* Undo scaling if necessary	* Undo scaling if necessary
*	*
	110 CONTINUE
	*
IF( ILASCL ) THEN	IF( ILASCL ) THEN
CALL DLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAR, N, IERR )	CALL DLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAR, N, IERR )
CALL DLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAI, N, IERR )	CALL DLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAI, N, IERR )
Line 582	Line 584
CALL DLASCL( 'G', 0, 0, BNRMTO, BNRM, N, 1, BETA, N, IERR )	CALL DLASCL( 'G', 0, 0, BNRMTO, BNRM, N, 1, BETA, N, IERR )
END IF	END IF
*	*
110 CONTINUE
*
WORK( 1 ) = MAXWRK	WORK( 1 ) = MAXWRK
*
RETURN	RETURN
*	*
* End of DGGEV	* End of DGGEV

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.9
changed lines
	Added in v.1.10