Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
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
29 changes: 26 additions & 3 deletions TESTING/EIG/cerrhs.f
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
18 changes: 16 additions & 2 deletions TESTING/EIG/cerrst.f
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,7 @@
*>
*> \verbatim
*>
*> CERRST tests the error exits for CHETRD, CUNGTR, CUNMTR, CHPTRD,
*> CERRST tests the error exits for CHETRD, CHETD2, CUNGTR, CUNMTR, CHPTRD,
*> CUNGTR, CUPMTR, CSTEQR, CSTEIN, CPTEQR, CHBTRD,
*> CHEEV, CHEEVX, CHEEVD, CHBEV, CHBEVX, CHBEVD,
*> CHPEV, CHPEVX, CHPEVD, and CSTEDC.
Expand Down Expand Up @@ -94,7 +94,7 @@ SUBROUTINE CERRST( PATH, NUNIT )
EXTERNAL CHBEV, CHBEVD, CHBEVX, CHBTRD, CHEEV, CHEEVD,
$ CHEEVR, CHEEVX, CHETRD, CHKXER, CHPEV, CHPEVD,
$ CHPEVX, CHPTRD, CPTEQR, CSTEDC, CSTEIN, CSTEQR,
$ CUNGTR, CUNMTR, CUPGTR, CUPMTR,
$ CUNGTR, CUNMTR, CUPGTR, CUPMTR, CHETD2,
$ CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
$ CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
$ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
Expand Down Expand Up @@ -156,6 +156,20 @@ SUBROUTINE CERRST( PATH, NUNIT )
CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK )
NT = NT + 4
*
* CHETD2
*
SRNAMT = 'CHETD2'
INFOT = 1
CALL CHETD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'CHETD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL CHETD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'CHETD2', INFOT, NOUT, LERR, OK )
INFOT = 4
CALL CHETD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'CHETD2', INFOT, NOUT, LERR, OK )
NT = NT + 3
*
* CHETRD_2STAGE
*
SRNAMT = 'CHETRD_2STAGE'
Expand Down
29 changes: 26 additions & 3 deletions TESTING/EIG/derrhs.f
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
24 changes: 19 additions & 5 deletions TESTING/EIG/derrst.f
Original file line number Diff line number Diff line change
Expand Up @@ -21,10 +21,10 @@
*>
*> \verbatim
*>
*> DERRST tests the error exits for DSYTRD, DORGTR, DORMTR, DSPTRD,
*> DOPGTR, DOPMTR, DSTEQR, SSTERF, SSTEBZ, SSTEIN, DPTEQR, DSBTRD,
*> DSYEV, SSYEVX, SSYEVD, DSBEV, SSBEVX, SSBEVD,
*> DSPEV, SSPEVX, SSPEVD, DSTEV, SSTEVX, SSTEVD, and SSTEDC.
*> DERRST tests the error exits for DSYTRD, DSYTD2, DORGTR, DORMTR, DSPTRD,
*> DOPGTR, DOPMTR, DSTEQR, DSTERF, DSTEBZ, DSTEIN, DPTEQR, DSBTRD,
*> DSYEV, DSYEVX, DSYEVD, DSBEV, DSBEVX, DSBEVD,
*> DSPEV, DSPEVX, DSPEVD, DSTEV, DSTEVX, DSTEVD, and DSTEDC.
*> DSYEVD_2STAGE, DSYEVR_2STAGE, DSYEVX_2STAGE,
*> DSYEV_2STAGE, DSBEV_2STAGE, DSBEVD_2STAGE,
*> DSBEVX_2STAGE, DSYTRD_2STAGE, DSYTRD_SY2SB,
Expand Down Expand Up @@ -95,7 +95,7 @@ SUBROUTINE DERRST( PATH, NUNIT )
$ DSBEV, DSBEVD, DSBEVX, DSBTRD, DSPEV, DSPEVD,
$ DSPEVX, DSPTRD, DSTEBZ, DSTEDC, DSTEIN, DSTEQR,
$ DSTERF, DSTEV, DSTEVD, DSTEVR, DSTEVX, DSYEV,
$ DSYEVD, DSYEVR, DSYEVX, DSYTRD,
$ DSYEVD, DSYEVR, DSYEVX, DSYTRD, DSYTD2,
$ DSYEVD_2STAGE, DSYEVR_2STAGE, DSYEVX_2STAGE,
$ DSYEV_2STAGE, DSBEV_2STAGE, DSBEVD_2STAGE,
$ DSBEVX_2STAGE, DSYTRD_2STAGE, DSYTRD_SY2SB,
Expand Down Expand Up @@ -157,6 +157,20 @@ SUBROUTINE DERRST( PATH, NUNIT )
CALL CHKXER( 'DSYTRD', INFOT, NOUT, LERR, OK )
NT = NT + 4
*
* DSYTD2
*
SRNAMT = 'DSYTD2'
INFOT = 1
CALL DSYTD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'DSYTD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL DSYTD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'DSYTD2', INFOT, NOUT, LERR, OK )
INFOT = 4
CALL DSYTD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'DSYTD2', INFOT, NOUT, LERR, OK )
NT = NT + 3
*
* DSYTRD_2STAGE
*
SRNAMT = 'DSYTRD_2STAGE'
Expand Down
29 changes: 26 additions & 3 deletions TESTING/EIG/serrhs.f
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
18 changes: 16 additions & 2 deletions TESTING/EIG/serrst.f
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,7 @@
*>
*> \verbatim
*>
*> SERRST tests the error exits for SSYTRD, SORGTR, SORMTR, SSPTRD,
*> SERRST tests the error exits for SSYTRD, SSYTD2, SORGTR, SORMTR, SSPTRD,
*> SOPGTR, SOPMTR, SSTEQR, SSTERF, SSTEBZ, SSTEIN, SPTEQR, SSBTRD,
*> SSYEV, SSYEVX, SSYEVD, SSBEV, SSBEVX, SSBEVD,
*> SSPEV, SSPEVX, SSPEVD, SSTEV, SSTEVX, SSTEVD, and SSTEDC.
Expand Down Expand Up @@ -95,7 +95,7 @@ SUBROUTINE SERRST( PATH, NUNIT )
$ SSBEV, SSBEVD, SSBEVX, SSBTRD, SSPEV, SSPEVD,
$ SSPEVX, SSPTRD, SSTEBZ, SSTEDC, SSTEIN, SSTEQR,
$ SSTERF, SSTEV, SSTEVD, SSTEVR, SSTEVX, SSYEV,
$ SSYEVD, SSYEVR, SSYEVX, SSYTRD,
$ SSYEVD, SSYEVR, SSYEVX, SSYTRD, SSYTD2,
$ SSYEVD_2STAGE, SSYEVR_2STAGE, SSYEVX_2STAGE,
$ SSYEV_2STAGE, SSBEV_2STAGE, SSBEVD_2STAGE,
$ SSBEVX_2STAGE, SSYTRD_2STAGE, SSYTRD_SY2SB,
Expand Down Expand Up @@ -157,6 +157,20 @@ SUBROUTINE SERRST( PATH, NUNIT )
CALL CHKXER( 'SSYTRD', INFOT, NOUT, LERR, OK )
NT = NT + 4
*
* SSYTD2
*
SRNAMT = 'SSYTD2'
INFOT = 1
CALL SSYTD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL SSYTD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK )
INFOT = 4
CALL SSYTD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK )
NT = NT + 3
*
* SSYTRD_2STAGE
*
SRNAMT = 'SSYTRD_2STAGE'
Expand Down
27 changes: 25 additions & 2 deletions TESTING/EIG/zerrhs.f
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
18 changes: 16 additions & 2 deletions TESTING/EIG/zerrst.f
Original file line number Diff line number Diff line change
Expand Up @@ -23,7 +23,7 @@
*>
*> \verbatim
*>
*> ZERRST tests the error exits for ZHETRD, ZUNGTR, CUNMTR, ZHPTRD,
*> ZERRST tests the error exits for ZHETRD, ZHETD2, ZUNGTR, CUNMTR, ZHPTRD,
*> ZUNGTR, ZUPMTR, ZSTEQR, CSTEIN, ZPTEQR, ZHBTRD,
*> ZHEEV, CHEEVX, CHEEVD, ZHBEV, CHBEVX, CHBEVD,
*> ZHPEV, CHPEVX, CHPEVD, and ZSTEDC.
Expand Down Expand Up @@ -95,7 +95,7 @@ SUBROUTINE ZERRST( PATH, NUNIT )
EXTERNAL CHKXER, ZHBEV, ZHBEVD, ZHBEVX, ZHBTRD, ZHEEV,
$ ZHEEVD, ZHEEVR, ZHEEVX, ZHETRD, ZHPEV, ZHPEVD,
$ ZHPEVX, ZHPTRD, ZPTEQR, ZSTEDC, ZSTEIN, ZSTEQR,
$ ZUNGTR, ZUNMTR, ZUPGTR, ZUPMTR,
$ ZUNGTR, ZUNMTR, ZUPGTR, ZUPMTR, ZHETD2,
$ ZHEEVD_2STAGE, ZHEEVR_2STAGE, ZHEEVX_2STAGE,
$ ZHEEV_2STAGE, ZHBEV_2STAGE, ZHBEVD_2STAGE,
$ ZHBEVX_2STAGE, ZHETRD_2STAGE
Expand Down Expand Up @@ -156,6 +156,20 @@ SUBROUTINE ZERRST( PATH, NUNIT )
CALL CHKXER( 'ZHETRD', INFOT, NOUT, LERR, OK )
NT = NT + 4
*
* ZHETD2
*
SRNAMT = 'ZHETD2'
INFOT = 1
CALL ZHETD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'ZHETD2', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL ZHETD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'ZHETD2', INFOT, NOUT, LERR, OK )
INFOT = 4
CALL ZHETD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
CALL CHKXER( 'ZHETD2', INFOT, NOUT, LERR, OK )
NT = NT + 3
*
* ZHETRD_2STAGE
*
SRNAMT = 'ZHETRD_2STAGE'
Expand Down
Loading