rpl/lapack/lapack/zggevx.f - diff

Return to zggevx.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/zggevx.f between versions 1.14 and 1.15

version 1.14, 2016/08/27 15:34:48	version 1.15, 2017/06/17 10:54:12
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 ZGGEVX + dependencies	*> Download ZGGEVX + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zggevx.f">	*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zggevx.f">
*> [TGZ]</a>	*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zggevx.f">	*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zggevx.f">
*> [ZIP]</a>	*> [ZIP]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zggevx.f">	*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zggevx.f">
*> [TXT]</a>	*> [TXT]</a>
*> \endhtmlonly	*> \endhtmlonly
*	*
* Definition:	* Definition:
* ===========	* ===========
Line 22	Line 22
* ALPHA, BETA, VL, LDVL, VR, LDVR, ILO, IHI,	* ALPHA, BETA, VL, LDVL, VR, LDVR, ILO, IHI,
* LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV,	* LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV,
* WORK, LWORK, RWORK, IWORK, BWORK, INFO )	* WORK, LWORK, RWORK, IWORK, BWORK, INFO )
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
* CHARACTER BALANC, JOBVL, JOBVR, SENSE	* CHARACTER BALANC, JOBVL, JOBVR, SENSE
* INTEGER IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N	* INTEGER IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N
Line 37	Line 37
* $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ),	* $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ),
* $ WORK( * )	* $ WORK( * )
* ..	* ..
*	*
*	*
*> \par Purpose:	*> \par Purpose:
* =============	* =============
Line 330	Line 330
* 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 374	Line 374
$ LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV,	$ LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV,
$ WORK, LWORK, RWORK, IWORK, BWORK, INFO )	$ WORK, LWORK, RWORK, IWORK, BWORK, INFO )
*	*
* -- LAPACK driver routine (version 3.4.1) --	* -- LAPACK driver 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 522	Line 522
IF( ILVL ) THEN	IF( ILVL ) THEN
MAXWRK = MAX( MAXWRK, N +	MAXWRK = MAX( MAXWRK, N +
$ N*ILAENV( 1, 'ZUNGQR', ' ', N, 1, N, 0 ) )	$ N*ILAENV( 1, 'ZUNGQR', ' ', N, 1, N, 0 ) )
END IF	END IF
END IF	END IF
WORK( 1 ) = MAXWRK	WORK( 1 ) = MAXWRK
*	*

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.14
changed lines
	Added in v.1.15