rpl/lapack/lapack/dggevx.f - diff

Return to dggevx.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dggevx.f between versions 1.8 and 1.10

version 1.8, 2011/11/21 20:42:52	version 1.10, 2012/07/31 11:06:35
Line 352	Line 352
*> \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 391	Line 391
$ IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE,	$ IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE,
$ RCONDV, WORK, LWORK, IWORK, BWORK, INFO )	$ RCONDV, WORK, LWORK, IWORK, BWORK, 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 BALANC, JOBVL, JOBVR, SENSE	CHARACTER BALANC, JOBVL, JOBVR, SENSE
Line 849	Line 849
*	*
* Undo scaling if necessary	* Undo scaling if necessary
*	*
	130 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 858	Line 860
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
*	*
130 CONTINUE
WORK( 1 ) = MAXWRK	WORK( 1 ) = MAXWRK
*
RETURN	RETURN
*	*
* End of DGGEVX	* End of DGGEVX

CVSweb interface <joel.bertrand@systella.fr>

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