Skip to content

Commit

Permalink
Handle corner cases of LWORK (Reference-LAPACK PR 942)
Browse files Browse the repository at this point in the history
  • Loading branch information
@martin-frbg
martin-frbg authored Dec 23, 2023
1 parent 68ef232 commit 8ce44c1
Show file tree
Hide file tree
Showing 5 changed files with 17 additions and 17 deletions.
12 changes: 6 additions & 6 deletions lapack-netlib/TESTING/EIG/cerrst.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -748,17 +748,17 @@ SUBROUTINE CERRST( PATH, NUNIT )
CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
INFOT = 18
CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
$ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
$ M, R, Z, 1, IW, Q, 0, RW, 24*N, IW( 2*N+1 ),
$ 10*N, INFO )
CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
INFOT = 20
CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N-1, IW( 2*N-1 ),
$ M, R, Z, 1, IW, Q, 2*N, RW, 0, IW( 2*N-1 ),
$ 10*N, INFO )
CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
INFOT = 22
CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 10*N-1,
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 0,
$ INFO )
CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
NT = NT + 12
Expand Down Expand Up @@ -830,19 +830,19 @@ SUBROUTINE CERRST( PATH, NUNIT )
INFOT = 18
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
$ 0.0, 0.0, 1, 1, 0.0,
$ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
$ M, R, Z, 1, IW, Q, 0, RW, 24*N, IW( 2*N+1 ),
$ 10*N, INFO )
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 20
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
$ 0.0, 0.0, 1, 1, 0.0,
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N-1, IW( 2*N-1 ),
$ M, R, Z, 1, IW, Q, 26*N, RW, 0, IW( 2*N-1 ),
$ 10*N, INFO )
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 22
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
$ 0.0, 0.0, 1, 1, 0.0,
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 10*N-1,
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 0,
$ INFO )
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
NT = NT + 13
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/TESTING/EIG/chkxer.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,7 +61,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
RETURN
*
9999 FORMAT( ' *** Illegal value of parameter number ', I2,
$ ' not detected by ', A6, ' ***' )
$ ' not detected by ', A, ' ***' )
*
* End of CHKXER
*
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/TESTING/EIG/derrst.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -735,12 +735,12 @@ SUBROUTINE DERRST( PATH, NUNIT )
CALL CHKXER( 'DSYEVR', INFOT, NOUT, LERR, OK )
INFOT = 18
CALL DSYEVR( 'V', 'I', 'U', 1, A, 1, 0.0D0, 0.0D0, 1, 1, 0.0D0,
$ M, R, Z, 1, IW, Q, 26*N-1, IW( 2*N+1 ), 10*N,
$ M, R, Z, 1, IW, Q, 0, IW( 2*N+1 ), 10*N,
$ INFO )
CALL CHKXER( 'DSYEVR', INFOT, NOUT, LERR, OK )
INFOT = 20
CALL DSYEVR( 'V', 'I', 'U', 1, A, 1, 0.0D0, 0.0D0, 1, 1, 0.0D0,
$ M, R, Z, 1, IW, Q, 26*N, IW( 2*N+1 ), 10*N-1,
$ M, R, Z, 1, IW, Q, 26*N, IW( 2*N+1 ), 0,
$ INFO )
CALL CHKXER( 'DSYEVR', INFOT, NOUT, LERR, OK )
NT = NT + 11
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/TESTING/EIG/serrst.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -733,12 +733,12 @@ SUBROUTINE SERRST( PATH, NUNIT )
CALL CHKXER( 'SSYEVR', INFOT, NOUT, LERR, OK )
INFOT = 18
CALL SSYEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
$ M, R, Z, 1, IW, Q, 26*N-1, IW( 2*N+1 ), 10*N,
$ M, R, Z, 1, IW, Q, 0, IW( 2*N+1 ), 10*N,
$ INFO )
CALL CHKXER( 'SSYEVR', INFOT, NOUT, LERR, OK )
INFOT = 20
CALL SSYEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
$ M, R, Z, 1, IW, Q, 26*N, IW( 2*N+1 ), 10*N-1,
$ M, R, Z, 1, IW, Q, 26*N, IW( 2*N+1 ), 0,
$ INFO )
CALL CHKXER( 'SSYEVR', INFOT, NOUT, LERR, OK )
NT = NT + 11
Expand Down
12 changes: 6 additions & 6 deletions lapack-netlib/TESTING/EIG/zerrst.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -748,17 +748,17 @@ SUBROUTINE ZERRST( PATH, NUNIT )
CALL CHKXER( 'ZHEEVR', INFOT, NOUT, LERR, OK )
INFOT = 18
CALL ZHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0D0, 0.0D0, 1, 1, 0.0D0,
$ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
$ M, R, Z, 1, IW, Q, 0, RW, 24*N, IW( 2*N+1 ),
$ 10*N, INFO )
CALL CHKXER( 'ZHEEVR', INFOT, NOUT, LERR, OK )
INFOT = 20
CALL ZHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0D0, 0.0D0, 1, 1, 0.0D0,
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N-1, IW( 2*N-1 ),
$ M, R, Z, 1, IW, Q, 2*N, RW, 0, IW( 2*N-1 ),
$ 10*N, INFO )
CALL CHKXER( 'ZHEEVR', INFOT, NOUT, LERR, OK )
INFOT = 22
CALL ZHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0D0, 0.0D0, 1, 1, 0.0D0,
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 10*N-1,
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 0,
$ INFO )
CALL CHKXER( 'ZHEEVR', INFOT, NOUT, LERR, OK )
NT = NT + 12
Expand Down Expand Up @@ -830,19 +830,19 @@ SUBROUTINE ZERRST( PATH, NUNIT )
INFOT = 18
CALL ZHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
$ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
$ M, R, Z, 1, IW, Q, 0, RW, 24*N, IW( 2*N+1 ),
$ 10*N, INFO )
CALL CHKXER( 'ZHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 20
CALL ZHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N-1, IW( 2*N-1 ),
$ M, R, Z, 1, IW, Q, 26*N, RW, 0, IW( 2*N-1 ),
$ 10*N, INFO )
CALL CHKXER( 'ZHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 22
CALL ZHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 10*N-1,
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 0,
$ INFO )
CALL CHKXER( 'ZHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
NT = NT + 13
Expand Down

0 comments on commit 8ce44c1

Please sign in to comment.