Skip to content

Commit 9e917b1

Browse files
martin-frbgmartin-frbg
authored
Fix missing replacements of ILAENV by ILAENV_2STAGE (lapack PR 272)
This could cause spurious "parameter has an illegal value" errors in DSYEVR and related routines, see Reference-LAPACK/lapack#262
1 parent 61659f8 commit 9e917b1

File tree

8 files changed

+32
-32
lines changed

8 files changed

+32
-32
lines changed

‎lapack-netlib/SRC/chetrd_hb2st.F‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -280,8 +280,8 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
280280
* ..
281281
* .. External Functions ..
282282
LOGICAL LSAME
283-
INTEGER ILAENV
284-
EXTERNAL LSAME, ILAENV
283+
INTEGER ILAENV2STAGE
284+
EXTERNAL LSAME, ILAENV2STAGE
285285
* ..
286286
* .. Executable Statements ..
287287
*
@@ -297,9 +297,9 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
297297
*
298298
* Determine the block size, the workspace size and the hous size.
299299
*
300-
IB = ILAENV( 18, 'CHETRD_HB2ST', VECT, N, KD, -1, -1 )
301-
LHMIN = ILAENV( 19, 'CHETRD_HB2ST', VECT, N, KD, IB, -1 )
302-
LWMIN = ILAENV( 20, 'CHETRD_HB2ST', VECT, N, KD, IB, -1 )
300+
IB = ILAENV2STAGE( 2, 'CHETRD_HB2ST', VECT, N, KD, -1, -1 )
301+
LHMIN = ILAENV2STAGE( 3, 'CHETRD_HB2ST', VECT, N, KD, IB, -1 )
302+
LWMIN = ILAENV2STAGE( 4, 'CHETRD_HB2ST', VECT, N, KD, IB, -1 )
303303
*
304304
IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
305305
INFO = -1

‎lapack-netlib/SRC/chetrd_he2hb.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -285,8 +285,8 @@ SUBROUTINE CHETRD_HE2HB( UPLO, N, KD, A, LDA, AB, LDAB, TAU,
285285
* ..
286286
* .. External Functions ..
287287
LOGICAL LSAME
288-
INTEGER ILAENV
289-
EXTERNAL LSAME, ILAENV
288+
INTEGER ILAENV2STAGE
289+
EXTERNAL LSAME, ILAENV2STAGE
290290
* ..
291291
* .. Executable Statements ..
292292
*
@@ -296,7 +296,7 @@ SUBROUTINE CHETRD_HE2HB( UPLO, N, KD, A, LDA, AB, LDAB, TAU,
296296
INFO = 0
297297
UPPER = LSAME( UPLO, 'U' )
298298
LQUERY = ( LWORK.EQ.-1 )
299-
LWMIN = ILAENV( 20, 'CHETRD_HE2HB', '', N, KD, -1, -1 )
299+
LWMIN = ILAENV2STAGE( 4, 'CHETRD_HE2HB', '', N, KD, -1, -1 )
300300

301301
IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN
302302
INFO = -1

‎lapack-netlib/SRC/dsytrd_sb2st.F‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -277,8 +277,8 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
277277
* ..
278278
* .. External Functions ..
279279
LOGICAL LSAME
280-
INTEGER ILAENV
281-
EXTERNAL LSAME, ILAENV
280+
INTEGER ILAENV2STAGE
281+
EXTERNAL LSAME, ILAENV2STAGE
282282
* ..
283283
* .. Executable Statements ..
284284
*
@@ -294,9 +294,9 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
294294
*
295295
* Determine the block size, the workspace size and the hous size.
296296
*
297-
IB = ILAENV( 18, 'DSYTRD_SB2ST', VECT, N, KD, -1, -1 )
298-
LHMIN = ILAENV( 19, 'DSYTRD_SB2ST', VECT, N, KD, IB, -1 )
299-
LWMIN = ILAENV( 20, 'DSYTRD_SB2ST', VECT, N, KD, IB, -1 )
297+
IB = ILAENV2STAGE( 2, 'DSYTRD_SB2ST', VECT, N, KD, -1, -1 )
298+
LHMIN = ILAENV2STAGE( 3, 'DSYTRD_SB2ST', VECT, N, KD, IB, -1 )
299+
LWMIN = ILAENV2STAGE( 4, 'DSYTRD_SB2ST', VECT, N, KD, IB, -1 )
300300
*
301301
IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
302302
INFO = -1

‎lapack-netlib/SRC/dsytrd_sy2sb.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -285,8 +285,8 @@ SUBROUTINE DSYTRD_SY2SB( UPLO, N, KD, A, LDA, AB, LDAB, TAU,
285285
* ..
286286
* .. External Functions ..
287287
LOGICAL LSAME
288-
INTEGER ILAENV
289-
EXTERNAL LSAME, ILAENV
288+
INTEGER ILAENV2STAGE
289+
EXTERNAL LSAME, ILAENV2STAGE
290290
* ..
291291
* .. Executable Statements ..
292292
*
@@ -296,7 +296,7 @@ SUBROUTINE DSYTRD_SY2SB( UPLO, N, KD, A, LDA, AB, LDAB, TAU,
296296
INFO = 0
297297
UPPER = LSAME( UPLO, 'U' )
298298
LQUERY = ( LWORK.EQ.-1 )
299-
LWMIN = ILAENV( 20, 'DSYTRD_SY2SB', '', N, KD, -1, -1 )
299+
LWMIN = ILAENV2STAGE( 4, 'DSYTRD_SY2SB', '', N, KD, -1, -1 )
300300

301301
IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN
302302
INFO = -1

‎lapack-netlib/SRC/ssytrd_sb2st.F‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -277,8 +277,8 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
277277
* ..
278278
* .. External Functions ..
279279
LOGICAL LSAME
280-
INTEGER ILAENV
281-
EXTERNAL LSAME, ILAENV
280+
INTEGER ILAENV2STAGE
281+
EXTERNAL LSAME, ILAENV2STAGE
282282
* ..
283283
* .. Executable Statements ..
284284
*
@@ -294,9 +294,9 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
294294
*
295295
* Determine the block size, the workspace size and the hous size.
296296
*
297-
IB = ILAENV( 18, 'SSYTRD_SB2ST', VECT, N, KD, -1, -1 )
298-
LHMIN = ILAENV( 19, 'SSYTRD_SB2ST', VECT, N, KD, IB, -1 )
299-
LWMIN = ILAENV( 20, 'SSYTRD_SB2ST', VECT, N, KD, IB, -1 )
297+
IB = ILAENV2STAGE( 2, 'SSYTRD_SB2ST', VECT, N, KD, -1, -1 )
298+
LHMIN = ILAENV2STAGE( 3, 'SSYTRD_SB2ST', VECT, N, KD, IB, -1 )
299+
LWMIN = ILAENV2STAGE( 4, 'SSYTRD_SB2ST', VECT, N, KD, IB, -1 )
300300
*
301301
IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
302302
INFO = -1

‎lapack-netlib/SRC/ssytrd_sy2sb.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -285,8 +285,8 @@ SUBROUTINE SSYTRD_SY2SB( UPLO, N, KD, A, LDA, AB, LDAB, TAU,
285285
* ..
286286
* .. External Functions ..
287287
LOGICAL LSAME
288-
INTEGER ILAENV
289-
EXTERNAL LSAME, ILAENV
288+
INTEGER ILAENV2STAGE
289+
EXTERNAL LSAME, ILAENV2STAGE
290290
* ..
291291
* .. Executable Statements ..
292292
*
@@ -296,7 +296,7 @@ SUBROUTINE SSYTRD_SY2SB( UPLO, N, KD, A, LDA, AB, LDAB, TAU,
296296
INFO = 0
297297
UPPER = LSAME( UPLO, 'U' )
298298
LQUERY = ( LWORK.EQ.-1 )
299-
LWMIN = ILAENV( 20, 'SSYTRD_SY2SB', '', N, KD, -1, -1 )
299+
LWMIN = ILAENV2STAGE( 4, 'SSYTRD_SY2SB', '', N, KD, -1, -1 )
300300

301301
IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN
302302
INFO = -1

‎lapack-netlib/SRC/zhetrd_hb2st.F‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -280,8 +280,8 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
280280
* ..
281281
* .. External Functions ..
282282
LOGICAL LSAME
283-
INTEGER ILAENV
284-
EXTERNAL LSAME, ILAENV
283+
INTEGER ILAENV2STAGE
284+
EXTERNAL LSAME, ILAENV2STAGE
285285
* ..
286286
* .. Executable Statements ..
287287
*
@@ -297,9 +297,9 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
297297
*
298298
* Determine the block size, the workspace size and the hous size.
299299
*
300-
IB = ILAENV( 18, 'ZHETRD_HB2ST', VECT, N, KD, -1, -1 )
301-
LHMIN = ILAENV( 19, 'ZHETRD_HB2ST', VECT, N, KD, IB, -1 )
302-
LWMIN = ILAENV( 20, 'ZHETRD_HB2ST', VECT, N, KD, IB, -1 )
300+
IB = ILAENV2STAGE( 2, 'ZHETRD_HB2ST', VECT, N, KD, -1, -1 )
301+
LHMIN = ILAENV2STAGE( 3, 'ZHETRD_HB2ST', VECT, N, KD, IB, -1 )
302+
LWMIN = ILAENV2STAGE( 4, 'ZHETRD_HB2ST', VECT, N, KD, IB, -1 )
303303
*
304304
IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
305305
INFO = -1

‎lapack-netlib/SRC/zhetrd_he2hb.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -285,8 +285,8 @@ SUBROUTINE ZHETRD_HE2HB( UPLO, N, KD, A, LDA, AB, LDAB, TAU,
285285
* ..
286286
* .. External Functions ..
287287
LOGICAL LSAME
288-
INTEGER ILAENV
289-
EXTERNAL LSAME, ILAENV
288+
INTEGER ILAENV2STAGE
289+
EXTERNAL LSAME, ILAENV2STAGE
290290
* ..
291291
* .. Executable Statements ..
292292
*
@@ -296,7 +296,7 @@ SUBROUTINE ZHETRD_HE2HB( UPLO, N, KD, A, LDA, AB, LDAB, TAU,
296296
INFO = 0
297297
UPPER = LSAME( UPLO, 'U' )
298298
LQUERY = ( LWORK.EQ.-1 )
299-
LWMIN = ILAENV( 20, 'ZHETRD_HE2HB', '', N, KD, -1, -1 )
299+
LWMIN = ILAENV2STAGE( 4, 'ZHETRD_HE2HB', '', N, KD, -1, -1 )
300300

301301
IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN
302302
INFO = -1

0 commit comments

Comments
 (0)