rpl/lapack/lapack/zhetrd_he2hb.f - diff

Return to zhetrd_he2hb.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.4, 2018/05/29 07:18:20	version 1.5, 2020/05/21 21:46:05
Line 285	Line 285
* ..	* ..
* .. External Functions ..	* .. External Functions ..
LOGICAL LSAME	LOGICAL LSAME
INTEGER ILAENV	INTEGER ILAENV2STAGE
EXTERNAL LSAME, ILAENV	EXTERNAL LSAME, ILAENV2STAGE
* ..	* ..
* .. Executable Statements ..	* .. Executable Statements ..
*	*
Line 296	Line 296
INFO = 0	INFO = 0
UPPER = LSAME( UPLO, 'U' )	UPPER = LSAME( UPLO, 'U' )
LQUERY = ( LWORK.EQ.-1 )	LQUERY = ( LWORK.EQ.-1 )
LWMIN = ILAENV( 20, 'ZHETRD_HE2HB', '', N, KD, -1, -1 )	LWMIN = ILAENV2STAGE( 4, 'ZHETRD_HE2HB', '', N, KD, -1, -1 )

IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN	IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN
INFO = -1	INFO = -1
Line 363	Line 363
*	*
*	*
* Set the workspace of the triangular matrix T to zero once such a	* Set the workspace of the triangular matrix T to zero once such a
* way everytime T is generated the upper/lower portion will be always zero	* way every time T is generated the upper/lower portion will be always zero
*	*
CALL ZLASET( "A", LDT, KD, ZERO, ZERO, WORK( TPOS ), LDT )	CALL ZLASET( "A", LDT, KD, ZERO, ZERO, WORK( TPOS ), LDT )
*	*