rpl/lapack/lapack/zgghd3.f - diff

Return to zgghd3.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 227	Line 227
SUBROUTINE ZGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q,	SUBROUTINE ZGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q,
$ LDQ, Z, LDZ, WORK, LWORK, INFO )	$ LDQ, Z, LDZ, WORK, LWORK, INFO )
*	*
* -- LAPACK computational routine (version 3.6.0) --	* -- LAPACK computational 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 277	Line 277
*	*
INFO = 0	INFO = 0
NB = ILAENV( 1, 'ZGGHD3', ' ', N, ILO, IHI, -1 )	NB = ILAENV( 1, 'ZGGHD3', ' ', N, ILO, IHI, -1 )
LWKOPT = 6NNB	LWKOPT = MAX( 6NNB, 1 )
WORK( 1 ) = DCMPLX( LWKOPT )	WORK( 1 ) = DCMPLX( LWKOPT )
INITQ = LSAME( COMPQ, 'I' )	INITQ = LSAME( COMPQ, 'I' )
WANTQ = INITQ .OR. LSAME( COMPQ, 'V' )	WANTQ = INITQ .OR. LSAME( COMPQ, 'V' )