Skip to content

Commit eaeaf95

Browse files
martin-frbgmartin-frbg
authored
Merge pull request #5731 from martin-frbg/lapack1207
Fix crossover of INFO variables in some EIG tests (Reference-LAPACK PR 1207)
2 parents f1f36c0 + 391cbf8 commit eaeaf95

4 files changed

Lines changed: 12 additions & 12 deletions

File tree

‎lapack-netlib/TESTING/EIG/cdrvsg2stg.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1009,7 +1009,7 @@ SUBROUTINE CDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10091009
*
10101010
CALL CHPGVX( IBTYPE, 'V', 'A', UPLO, N, AP, BP, VL,
10111011
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
1012-
$ RWORK, IWORK( N+1 ), IWORK, INFO )
1012+
$ RWORK, IWORK( N+1 ), IWORK, IINFO )
10131013
IF( IINFO.NE.0 ) THEN
10141014
WRITE( NOUNIT, FMT = 9999 )'CHPGVX(V,A' // UPLO //
10151015
$ ')', IINFO, N, JTYPE, IOLDSD
@@ -1055,7 +1055,7 @@ SUBROUTINE CDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10551055
VU = ANORM
10561056
CALL CHPGVX( IBTYPE, 'V', 'V', UPLO, N, AP, BP, VL,
10571057
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
1058-
$ RWORK, IWORK( N+1 ), IWORK, INFO )
1058+
$ RWORK, IWORK( N+1 ), IWORK, IINFO )
10591059
IF( IINFO.NE.0 ) THEN
10601060
WRITE( NOUNIT, FMT = 9999 )'CHPGVX(V,V' // UPLO //
10611061
$ ')', IINFO, N, JTYPE, IOLDSD
@@ -1099,7 +1099,7 @@ SUBROUTINE CDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10991099
*
11001100
CALL CHPGVX( IBTYPE, 'V', 'I', UPLO, N, AP, BP, VL,
11011101
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
1102-
$ RWORK, IWORK( N+1 ), IWORK, INFO )
1102+
$ RWORK, IWORK( N+1 ), IWORK, IINFO )
11031103
IF( IINFO.NE.0 ) THEN
11041104
WRITE( NOUNIT, FMT = 9999 )'CHPGVX(V,I' // UPLO //
11051105
$ ')', IINFO, N, JTYPE, IOLDSD

‎lapack-netlib/TESTING/EIG/ddrvsg2stg.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -989,7 +989,7 @@ SUBROUTINE DDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
989989
*
990990
CALL DSPGVX( IBTYPE, 'V', 'A', UPLO, N, AP, BP, VL,
991991
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
992-
$ IWORK( N+1 ), IWORK, INFO )
992+
$ IWORK( N+1 ), IWORK, IINFO )
993993
IF( IINFO.NE.0 ) THEN
994994
WRITE( NOUNIT, FMT = 9999 )'DSPGVX(V,A' // UPLO //
995995
$ ')', IINFO, N, JTYPE, IOLDSD
@@ -1035,7 +1035,7 @@ SUBROUTINE DDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10351035
VU = ANORM
10361036
CALL DSPGVX( IBTYPE, 'V', 'V', UPLO, N, AP, BP, VL,
10371037
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
1038-
$ IWORK( N+1 ), IWORK, INFO )
1038+
$ IWORK( N+1 ), IWORK, IINFO )
10391039
IF( IINFO.NE.0 ) THEN
10401040
WRITE( NOUNIT, FMT = 9999 )'DSPGVX(V,V' // UPLO //
10411041
$ ')', IINFO, N, JTYPE, IOLDSD
@@ -1079,7 +1079,7 @@ SUBROUTINE DDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10791079
*
10801080
CALL DSPGVX( IBTYPE, 'V', 'I', UPLO, N, AP, BP, VL,
10811081
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
1082-
$ IWORK( N+1 ), IWORK, INFO )
1082+
$ IWORK( N+1 ), IWORK, IINFO )
10831083
IF( IINFO.NE.0 ) THEN
10841084
WRITE( NOUNIT, FMT = 9999 )'DSPGVX(V,I' // UPLO //
10851085
$ ')', IINFO, N, JTYPE, IOLDSD

‎lapack-netlib/TESTING/EIG/sdrvsg2stg.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -990,7 +990,7 @@ SUBROUTINE SDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
990990
*
991991
CALL SSPGVX( IBTYPE, 'V', 'A', UPLO, N, AP, BP, VL,
992992
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
993-
$ IWORK( N+1 ), IWORK, INFO )
993+
$ IWORK( N+1 ), IWORK, IINFO )
994994
IF( IINFO.NE.0 ) THEN
995995
WRITE( NOUNIT, FMT = 9999 )'SSPGVX(V,A' // UPLO //
996996
$ ')', IINFO, N, JTYPE, IOLDSD
@@ -1036,7 +1036,7 @@ SUBROUTINE SDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10361036
VU = ANORM
10371037
CALL SSPGVX( IBTYPE, 'V', 'V', UPLO, N, AP, BP, VL,
10381038
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
1039-
$ IWORK( N+1 ), IWORK, INFO )
1039+
$ IWORK( N+1 ), IWORK, IINFO )
10401040
IF( IINFO.NE.0 ) THEN
10411041
WRITE( NOUNIT, FMT = 9999 )'SSPGVX(V,V' // UPLO //
10421042
$ ')', IINFO, N, JTYPE, IOLDSD
@@ -1080,7 +1080,7 @@ SUBROUTINE SDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10801080
*
10811081
CALL SSPGVX( IBTYPE, 'V', 'I', UPLO, N, AP, BP, VL,
10821082
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
1083-
$ IWORK( N+1 ), IWORK, INFO )
1083+
$ IWORK( N+1 ), IWORK, IINFO )
10841084
IF( IINFO.NE.0 ) THEN
10851085
WRITE( NOUNIT, FMT = 9999 )'SSPGVX(V,I' // UPLO //
10861086
$ ')', IINFO, N, JTYPE, IOLDSD

‎lapack-netlib/TESTING/EIG/zdrvsg2stg.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1009,7 +1009,7 @@ SUBROUTINE ZDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10091009
*
10101010
CALL ZHPGVX( IBTYPE, 'V', 'A', UPLO, N, AP, BP, VL,
10111011
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
1012-
$ RWORK, IWORK( N+1 ), IWORK, INFO )
1012+
$ RWORK, IWORK( N+1 ), IWORK, IINFO )
10131013
IF( IINFO.NE.0 ) THEN
10141014
WRITE( NOUNIT, FMT = 9999 )'ZHPGVX(V,A' // UPLO //
10151015
$ ')', IINFO, N, JTYPE, IOLDSD
@@ -1055,7 +1055,7 @@ SUBROUTINE ZDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10551055
VU = ANORM
10561056
CALL ZHPGVX( IBTYPE, 'V', 'V', UPLO, N, AP, BP, VL,
10571057
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
1058-
$ RWORK, IWORK( N+1 ), IWORK, INFO )
1058+
$ RWORK, IWORK( N+1 ), IWORK, IINFO )
10591059
IF( IINFO.NE.0 ) THEN
10601060
WRITE( NOUNIT, FMT = 9999 )'ZHPGVX(V,V' // UPLO //
10611061
$ ')', IINFO, N, JTYPE, IOLDSD
@@ -1099,7 +1099,7 @@ SUBROUTINE ZDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
10991099
*
11001100
CALL ZHPGVX( IBTYPE, 'V', 'I', UPLO, N, AP, BP, VL,
11011101
$ VU, IL, IU, ABSTOL, M, D, Z, LDZ, WORK,
1102-
$ RWORK, IWORK( N+1 ), IWORK, INFO )
1102+
$ RWORK, IWORK( N+1 ), IWORK, IINFO )
11031103
IF( IINFO.NE.0 ) THEN
11041104
WRITE( NOUNIT, FMT = 9999 )'ZHPGVX(V,I' // UPLO //
11051105
$ ')', IINFO, N, JTYPE, IOLDSD

0 commit comments

Comments
 (0)