rpl/lapack/lapack/zgges3.f - diff

Return to zgges3.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.1, 2015/11/26 11:44:22	version 1.2, 2016/08/27 15:27:12
Line 269	Line 269
$ LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR,	$ LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR,
$ WORK, LWORK, RWORK, BWORK, INFO )	$ WORK, LWORK, RWORK, BWORK, INFO )
*	*
* -- LAPACK driver routine (version 3.6.0) --	* -- LAPACK driver routine (version 3.6.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..--
* January 2015	* January 2015
Line 392	Line 392
$ LDVSL, VSR, LDVSR, WORK, -1, IERR )	$ LDVSL, VSR, LDVSR, WORK, -1, IERR )
LWKOPT = MAX( LWKOPT, N + INT ( WORK( 1 ) ) )	LWKOPT = MAX( LWKOPT, N + INT ( WORK( 1 ) ) )
CALL ZHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB,	CALL ZHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB,
$ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK,	$ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, -1,
$ -1, RWORK, IERR )	$ RWORK, IERR )
LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) )	LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) )
IF( WANTST ) THEN	IF( WANTST ) THEN
CALL ZTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB,	CALL ZTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB,