From 391cbf8584cccc9c7de027b18bc3c500a5881dca Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 31 Mar 2026 11:39:45 +0200 Subject: [PATCH] Pass IINFO instead of INFO to ??PGVX (Reference-LAPACK PR 1207) --- lapack-netlib/TESTING/EIG/cdrvsg2stg.f | 6 +++--- lapack-netlib/TESTING/EIG/ddrvsg2stg.f | 6 +++--- lapack-netlib/TESTING/EIG/sdrvsg2stg.f | 6 +++--- lapack-netlib/TESTING/EIG/zdrvsg2stg.f | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/cdrvsg2stg.f b/lapack-netlib/TESTING/EIG/cdrvsg2stg.f index f7d323247d..77f3865e01 100644 --- a/lapack-netlib/TESTING/EIG/cdrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/cdrvsg2stg.f @@ -1009,7 +1009,7 @@ SUBROUTINE CDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * CALL CHPGVX( IBTYPE, 'V', 'A', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ RWORK, IWORK( N+1 ), IWORK, INFO ) + $ RWORK, IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'CHPGVX(V,A' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD @@ -1055,7 +1055,7 @@ SUBROUTINE CDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, VU = ANORM CALL CHPGVX( IBTYPE, 'V', 'V', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ RWORK, IWORK( N+1 ), IWORK, INFO ) + $ RWORK, IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'CHPGVX(V,V' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD @@ -1099,7 +1099,7 @@ SUBROUTINE CDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * CALL CHPGVX( IBTYPE, 'V', 'I', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ RWORK, IWORK( N+1 ), IWORK, INFO ) + $ RWORK, IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'CHPGVX(V,I' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD diff --git a/lapack-netlib/TESTING/EIG/ddrvsg2stg.f b/lapack-netlib/TESTING/EIG/ddrvsg2stg.f index 0fe31cab17..68ca74270b 100644 --- a/lapack-netlib/TESTING/EIG/ddrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/ddrvsg2stg.f @@ -989,7 +989,7 @@ SUBROUTINE DDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * CALL DSPGVX( IBTYPE, 'V', 'A', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ IWORK( N+1 ), IWORK, INFO ) + $ IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'DSPGVX(V,A' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD @@ -1035,7 +1035,7 @@ SUBROUTINE DDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, VU = ANORM CALL DSPGVX( IBTYPE, 'V', 'V', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ IWORK( N+1 ), IWORK, INFO ) + $ IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'DSPGVX(V,V' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD @@ -1079,7 +1079,7 @@ SUBROUTINE DDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * CALL DSPGVX( IBTYPE, 'V', 'I', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ IWORK( N+1 ), IWORK, INFO ) + $ IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'DSPGVX(V,I' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD diff --git a/lapack-netlib/TESTING/EIG/sdrvsg2stg.f b/lapack-netlib/TESTING/EIG/sdrvsg2stg.f index 38ed616281..5a5e9d8da5 100644 --- a/lapack-netlib/TESTING/EIG/sdrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/sdrvsg2stg.f @@ -990,7 +990,7 @@ SUBROUTINE SDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * CALL SSPGVX( IBTYPE, 'V', 'A', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ IWORK( N+1 ), IWORK, INFO ) + $ IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'SSPGVX(V,A' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD @@ -1036,7 +1036,7 @@ SUBROUTINE SDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, VU = ANORM CALL SSPGVX( IBTYPE, 'V', 'V', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ IWORK( N+1 ), IWORK, INFO ) + $ IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'SSPGVX(V,V' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD @@ -1080,7 +1080,7 @@ SUBROUTINE SDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * CALL SSPGVX( IBTYPE, 'V', 'I', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ IWORK( N+1 ), IWORK, INFO ) + $ IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'SSPGVX(V,I' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD diff --git a/lapack-netlib/TESTING/EIG/zdrvsg2stg.f b/lapack-netlib/TESTING/EIG/zdrvsg2stg.f index c5ef4ce700..19419409ba 100644 --- a/lapack-netlib/TESTING/EIG/zdrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/zdrvsg2stg.f @@ -1009,7 +1009,7 @@ SUBROUTINE ZDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * CALL ZHPGVX( IBTYPE, 'V', 'A', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ RWORK, IWORK( N+1 ), IWORK, INFO ) + $ RWORK, IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'ZHPGVX(V,A' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD @@ -1055,7 +1055,7 @@ SUBROUTINE ZDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, VU = ANORM CALL ZHPGVX( IBTYPE, 'V', 'V', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ RWORK, IWORK( N+1 ), IWORK, INFO ) + $ RWORK, IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'ZHPGVX(V,V' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD @@ -1099,7 +1099,7 @@ SUBROUTINE ZDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * CALL ZHPGVX( IBTYPE, 'V', 'I', UPLO, N, AP, BP, VL, $ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK, - $ RWORK, IWORK( N+1 ), IWORK, INFO ) + $ RWORK, IWORK( N+1 ), IWORK, IINFO ) IF( IINFO.NE.0 ) THEN WRITE( NOUNIT, FMT = 9999 )'ZHPGVX(V,I' // UPLO // $ ')', IINFO, N, JTYPE, IOLDSD