Skip to content

Commit 8ce44c1

Browse files
martin-frbgmartin-frbg
authored
Handle corner cases of LWORK (Reference-LAPACK PR 942)
1 parent 68ef232 commit 8ce44c1

5 files changed

Lines changed: 17 additions & 17 deletions

File tree

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

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -748,17 +748,17 @@ SUBROUTINE CERRST( PATH, NUNIT )
748748
CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
749749
INFOT = 18
750750
CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
751-
$ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
751+
$ M, R, Z, 1, IW, Q, 0, RW, 24*N, IW( 2*N+1 ),
752752
$ 10*N, INFO )
753753
CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
754754
INFOT = 20
755755
CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
756-
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N-1, IW( 2*N-1 ),
756+
$ M, R, Z, 1, IW, Q, 2*N, RW, 0, IW( 2*N-1 ),
757757
$ 10*N, INFO )
758758
CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
759759
INFOT = 22
760760
CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
761-
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 10*N-1,
761+
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 0,
762762
$ INFO )
763763
CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
764764
NT = NT + 12
@@ -830,19 +830,19 @@ SUBROUTINE CERRST( PATH, NUNIT )
830830
INFOT = 18
831831
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
832832
$ 0.0, 0.0, 1, 1, 0.0,
833-
$ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
833+
$ M, R, Z, 1, IW, Q, 0, RW, 24*N, IW( 2*N+1 ),
834834
$ 10*N, INFO )
835835
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
836836
INFOT = 20
837837
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
838838
$ 0.0, 0.0, 1, 1, 0.0,
839-
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N-1, IW( 2*N-1 ),
839+
$ M, R, Z, 1, IW, Q, 26*N, RW, 0, IW( 2*N-1 ),
840840
$ 10*N, INFO )
841841
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
842842
INFOT = 22
843843
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
844844
$ 0.0, 0.0, 1, 1, 0.0,
845-
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 10*N-1,
845+
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 0,
846846
$ INFO )
847847
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
848848
NT = NT + 13

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -61,7 +61,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
6161
RETURN
6262
*
6363
9999 FORMAT( ' *** Illegal value of parameter number ', I2,
64-
$ ' not detected by ', A6, ' ***' )
64+
$ ' not detected by ', A, ' ***' )
6565
*
6666
* End of CHKXER
6767
*

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

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -735,12 +735,12 @@ SUBROUTINE DERRST( PATH, NUNIT )
735735
CALL CHKXER( 'DSYEVR', INFOT, NOUT, LERR, OK )
736736
INFOT = 18
737737
CALL DSYEVR( 'V', 'I', 'U', 1, A, 1, 0.0D0, 0.0D0, 1, 1, 0.0D0,
738-
$ M, R, Z, 1, IW, Q, 26*N-1, IW( 2*N+1 ), 10*N,
738+
$ M, R, Z, 1, IW, Q, 0, IW( 2*N+1 ), 10*N,
739739
$ INFO )
740740
CALL CHKXER( 'DSYEVR', INFOT, NOUT, LERR, OK )
741741
INFOT = 20
742742
CALL DSYEVR( 'V', 'I', 'U', 1, A, 1, 0.0D0, 0.0D0, 1, 1, 0.0D0,
743-
$ M, R, Z, 1, IW, Q, 26*N, IW( 2*N+1 ), 10*N-1,
743+
$ M, R, Z, 1, IW, Q, 26*N, IW( 2*N+1 ), 0,
744744
$ INFO )
745745
CALL CHKXER( 'DSYEVR', INFOT, NOUT, LERR, OK )
746746
NT = NT + 11

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

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -733,12 +733,12 @@ SUBROUTINE SERRST( PATH, NUNIT )
733733
CALL CHKXER( 'SSYEVR', INFOT, NOUT, LERR, OK )
734734
INFOT = 18
735735
CALL SSYEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
736-
$ M, R, Z, 1, IW, Q, 26*N-1, IW( 2*N+1 ), 10*N,
736+
$ M, R, Z, 1, IW, Q, 0, IW( 2*N+1 ), 10*N,
737737
$ INFO )
738738
CALL CHKXER( 'SSYEVR', INFOT, NOUT, LERR, OK )
739739
INFOT = 20
740740
CALL SSYEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
741-
$ M, R, Z, 1, IW, Q, 26*N, IW( 2*N+1 ), 10*N-1,
741+
$ M, R, Z, 1, IW, Q, 26*N, IW( 2*N+1 ), 0,
742742
$ INFO )
743743
CALL CHKXER( 'SSYEVR', INFOT, NOUT, LERR, OK )
744744
NT = NT + 11

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

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -748,17 +748,17 @@ SUBROUTINE ZERRST( PATH, NUNIT )
748748
CALL CHKXER( 'ZHEEVR', INFOT, NOUT, LERR, OK )
749749
INFOT = 18
750750
CALL ZHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0D0, 0.0D0, 1, 1, 0.0D0,
751-
$ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
751+
$ M, R, Z, 1, IW, Q, 0, RW, 24*N, IW( 2*N+1 ),
752752
$ 10*N, INFO )
753753
CALL CHKXER( 'ZHEEVR', INFOT, NOUT, LERR, OK )
754754
INFOT = 20
755755
CALL ZHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0D0, 0.0D0, 1, 1, 0.0D0,
756-
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N-1, IW( 2*N-1 ),
756+
$ M, R, Z, 1, IW, Q, 2*N, RW, 0, IW( 2*N-1 ),
757757
$ 10*N, INFO )
758758
CALL CHKXER( 'ZHEEVR', INFOT, NOUT, LERR, OK )
759759
INFOT = 22
760760
CALL ZHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0D0, 0.0D0, 1, 1, 0.0D0,
761-
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 10*N-1,
761+
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 0,
762762
$ INFO )
763763
CALL CHKXER( 'ZHEEVR', INFOT, NOUT, LERR, OK )
764764
NT = NT + 12
@@ -830,19 +830,19 @@ SUBROUTINE ZERRST( PATH, NUNIT )
830830
INFOT = 18
831831
CALL ZHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
832832
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
833-
$ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
833+
$ M, R, Z, 1, IW, Q, 0, RW, 24*N, IW( 2*N+1 ),
834834
$ 10*N, INFO )
835835
CALL CHKXER( 'ZHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
836836
INFOT = 20
837837
CALL ZHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
838838
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
839-
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N-1, IW( 2*N-1 ),
839+
$ M, R, Z, 1, IW, Q, 26*N, RW, 0, IW( 2*N-1 ),
840840
$ 10*N, INFO )
841841
CALL CHKXER( 'ZHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
842842
INFOT = 22
843843
CALL ZHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
844844
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
845-
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 10*N-1,
845+
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 0,
846846
$ INFO )
847847
CALL CHKXER( 'ZHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
848848
NT = NT + 13

0 commit comments

Comments
 (0)