Skip to content

extend tests for error exit sysv sytd2 gehd2 #795

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 4 commits into from
Apr 15, 2023
Merged

extend tests for error exit sysv sytd2 gehd2 #795

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
ab92781
add test for error exit sytd2/hetd2
dklyuchinskiy Feb 14, 2023
86d01a7
extend test for error exit for sysv routines
dklyuchinskiy Feb 14, 2023
aa43f30
add test for error exit gehd2
dklyuchinskiy Feb 14, 2023
56934c7
fix typo in driver for sysv_aa_2stage to run correct error checker
dklyuchinskiy Feb 14, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
add test for error exit gehd2
  • Loading branch information
@dklyuchinskiy
dklyuchinskiy committed Feb 14, 2023
commit aa43f301e54f05df3a6f330805cfd77e7e849a8b
29 changes: 26 additions & 3 deletions TESTING/EIG/cerrhs.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -21,8 +21,8 @@
*>
*> \verbatim
*>
*> CERRHS tests the error exits for CGEBAK, CGEBAL, CGEHRD, CUNGHR,
*> CUNMHR, CHSEQR, CHSEIN, CTREVC, and CTREVC3.
*> CERRHS tests the error exits for CGEBAK, CGEBAL, CGEHRD, CGEHD2,
*> CUNGHR, CUNMHR, CHSEQR, CHSEIN, CTREVC, and CTREVC3.
*> \endverbatim
*
* Arguments:
Expand Down Expand Up @@ -86,7 +86,7 @@ SUBROUTINE CERRHS( PATH, NUNIT )
* ..
* .. External Subroutines ..
EXTERNAL CHKXER, CGEBAK, CGEBAL, CGEHRD, CHSEIN, CHSEQR,
$ CUNGHR, CUNMHR, CTREVC, CTREVC3
$ CUNGHR, CUNMHR, CTREVC, CTREVC3, CGEHD2
* ..
* .. Intrinsic Functions ..
INTRINSIC REAL
Expand Down Expand Up @@ -193,6 +193,29 @@ SUBROUTINE CERRHS( PATH, NUNIT )
CALL CHKXER( 'CGEHRD', INFOT, NOUT, LERR, OK )
NT = NT + 7
*
* CGEHD2
*
SRNAMT = 'CGEHD2'
INFOT = 1
CALL CGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL CGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL CGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL CGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL CGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL CGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
NT = NT + 6
*
* CUNGHR
*
SRNAMT = 'CUNGHR'
Expand Down
29 changes: 26 additions & 3 deletions TESTING/EIG/derrhs.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -21,8 +21,8 @@
*>
*> \verbatim
*>
*> DERRHS tests the error exits for DGEBAK, DGEBAL, DGEHRD, DORGHR,
*> DORMHR, DHSEQR, DHSEIN, DTREVC, and DTREVC3.
*> DERRHS tests the error exits for DGEBAK, DGEBAL, DGEHRD, DGEHD2,
*> DORGHR, DORMHR, DHSEQR, DHSEIN, DTREVC, and DTREVC3.
*> \endverbatim
*
* Arguments:
Expand Down Expand Up @@ -86,7 +86,7 @@ SUBROUTINE DERRHS( PATH, NUNIT )
* ..
* .. External Subroutines ..
EXTERNAL CHKXER, DGEBAK, DGEBAL, DGEHRD, DHSEIN, DHSEQR,
$ DORGHR, DORMHR, DTREVC, DTREVC3
$ DORGHR, DORMHR, DTREVC, DTREVC3, DGEHD2
* ..
* .. Intrinsic Functions ..
INTRINSIC DBLE
Expand Down Expand Up @@ -194,6 +194,29 @@ SUBROUTINE DERRHS( PATH, NUNIT )
CALL CHKXER( 'DGEHRD', INFOT, NOUT, LERR, OK )
NT = NT + 7
*
* DGEHD2
*
SRNAMT = 'DGEHD2'
INFOT = 1
CALL DGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL DGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL DGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL DGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL DGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL DGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
NT = NT + 6
*
* DORGHR
*
SRNAMT = 'DORGHR'
Expand Down
29 changes: 26 additions & 3 deletions TESTING/EIG/serrhs.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -21,8 +21,8 @@
*>
*> \verbatim
*>
*> SERRHS tests the error exits for SGEBAK, SGEBAL, SGEHRD, SORGHR,
*> SORMHR, SHSEQR, SHSEIN, STREVC, and STREVC3.
*> SERRHS tests the error exits for SGEBAK, SGEBAL, SGEHRD, SGEHD2,
*> SORGHR, SORMHR, SHSEQR, SHSEIN, STREVC, and STREVC3.
*> \endverbatim
*
* Arguments:
Expand Down Expand Up @@ -85,7 +85,7 @@ SUBROUTINE SERRHS( PATH, NUNIT )
* ..
* .. External Subroutines ..
EXTERNAL CHKXER, SGEBAK, SGEBAL, SGEHRD, SHSEIN, SHSEQR,
$ SORGHR, SORMHR, STREVC, STREVC3
$ SORGHR, SORMHR, STREVC, STREVC3, SGEHD2
* ..
* .. Intrinsic Functions ..
INTRINSIC REAL
Expand Down Expand Up @@ -193,6 +193,29 @@ SUBROUTINE SERRHS( PATH, NUNIT )
CALL CHKXER( 'SGEHRD', INFOT, NOUT, LERR, OK )
NT = NT + 7
*
* SGEHD2
*
SRNAMT = 'SGEHD2'
INFOT = 1
CALL SGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL SGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL SGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL SGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL SGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL SGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
NT = NT + 6
*
* SORGHR
*
SRNAMT = 'SORGHR'
Expand Down
27 changes: 25 additions & 2 deletions TESTING/EIG/zerrhs.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -21,8 +21,8 @@
*>
*> \verbatim
*>
*> ZERRHS tests the error exits for ZGEBAK, ZGEBAL, ZGEHRD, ZUNGHR,
*> ZUNMHR, ZHSEQR, ZHSEIN, ZTREVC, and ZTREVC3.
*> ZERRHS tests the error exits for ZGEBAK, ZGEBAL, ZGEHRD, ZGEHD2,
*> ZUNGHR, ZUNMHR, ZHSEQR, ZHSEIN, ZTREVC, and ZTREVC3.
*> \endverbatim
*
* Arguments:
Expand Down Expand Up @@ -193,6 +193,29 @@ SUBROUTINE ZERRHS( PATH, NUNIT )
CALL CHKXER( 'ZGEHRD', INFOT, NOUT, LERR, OK )
NT = NT + 7
*
* ZGEHD2
*
SRNAMT = 'ZGEHD2'
INFOT = 1
CALL ZGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL ZGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL ZGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL ZGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL ZGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL ZGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
NT = NT + 6
*
* ZUNGHR
*
SRNAMT = 'ZUNGHR'
Expand Down