Skip to content

Commit 941a34b

Browse files
martin-frbgmartin-frbg
authored
Merge pull request #4046 from martin-frbg/lapack795
Extend LAPACK tests for error exit sysv/sytd2/gehd2 (Reference-LAPACK PR 795)
2 parents be05ba4 + ca1791c commit 941a34b

File tree

13 files changed

+504
-72
lines changed

13 files changed

+504
-72
lines changed

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

Lines changed: 67 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -21,8 +21,8 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> CERRHS tests the error exits for CGEBAK, CGEBAL, CGEHRD, CUNGHR,
25-
*> CUNMHR, CHSEQR, CHSEIN, and CTREVC.
24+
*> CERRHS tests the error exits for CGEBAK, CGEBAL, CGEHRD, CGEHD2,
25+
*> CUNGHR, CUNMHR, CHSEQR, CHSEIN, CTREVC, and CTREVC3.
2626
*> \endverbatim
2727
*
2828
* Arguments:
@@ -86,7 +86,7 @@ SUBROUTINE CERRHS( PATH, NUNIT )
8686
* ..
8787
* .. External Subroutines ..
8888
EXTERNAL CHKXER, CGEBAK, CGEBAL, CGEHRD, CHSEIN, CHSEQR,
89-
$ CUNGHR, CUNMHR, CTREVC
89+
$ CUNGHR, CUNMHR, CTREVC, CTREVC3, CGEHD2
9090
* ..
9191
* .. Intrinsic Functions ..
9292
INTRINSIC REAL
@@ -193,6 +193,29 @@ SUBROUTINE CERRHS( PATH, NUNIT )
193193
CALL CHKXER( 'CGEHRD', INFOT, NOUT, LERR, OK )
194194
NT = NT + 7
195195
*
196+
* CGEHD2
197+
*
198+
SRNAMT = 'CGEHD2'
199+
INFOT = 1
200+
CALL CGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
201+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
202+
INFOT = 2
203+
CALL CGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
204+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
205+
INFOT = 2
206+
CALL CGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
207+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
208+
INFOT = 3
209+
CALL CGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
210+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
211+
INFOT = 3
212+
CALL CGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
213+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
214+
INFOT = 5
215+
CALL CGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
216+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
217+
NT = NT + 6
218+
*
196219
* CUNGHR
197220
*
198221
SRNAMT = 'CUNGHR'
@@ -398,6 +421,47 @@ SUBROUTINE CERRHS( PATH, NUNIT )
398421
$ RW, INFO )
399422
CALL CHKXER( 'CTREVC', INFOT, NOUT, LERR, OK )
400423
NT = NT + 7
424+
*
425+
* CTREVC3
426+
*
427+
SRNAMT = 'CTREVC3'
428+
INFOT = 1
429+
CALL CTREVC3( '/', 'A', SEL, 0, A, 1, VL, 1, VR, 1, 0, M, W,
430+
$ LW, RW, 1, INFO )
431+
CALL CHKXER( 'CTREVC3', INFOT, NOUT, LERR, OK )
432+
INFOT = 2
433+
CALL CTREVC3( 'L', '/', SEL, 0, A, 1, VL, 1, VR, 1, 0, M, W,
434+
$ LW, RW, 1, INFO )
435+
CALL CHKXER( 'CTREVC3', INFOT, NOUT, LERR, OK )
436+
INFOT = 4
437+
CALL CTREVC3( 'L', 'A', SEL, -1, A, 1, VL, 1, VR, 1, 0, M, W,
438+
$ LW, RW, 1, INFO )
439+
CALL CHKXER( 'CTREVC3', INFOT, NOUT, LERR, OK )
440+
INFOT = 6
441+
CALL CTREVC3( 'L', 'A', SEL, 2, A, 1, VL, 2, VR, 1, 4, M, W,
442+
$ LW, RW, 2, INFO )
443+
CALL CHKXER( 'CTREVC3', INFOT, NOUT, LERR, OK )
444+
INFOT = 8
445+
CALL CTREVC3( 'L', 'A', SEL, 2, A, 2, VL, 1, VR, 1, 4, M, W,
446+
$ LW, RW, 2, INFO )
447+
CALL CHKXER( 'CTREVC3', INFOT, NOUT, LERR, OK )
448+
INFOT = 10
449+
CALL CTREVC3( 'R', 'A', SEL, 2, A, 2, VL, 1, VR, 1, 4, M, W,
450+
$ LW, RW, 2, INFO )
451+
CALL CHKXER( 'CTREVC3', INFOT, NOUT, LERR, OK )
452+
INFOT = 11
453+
CALL CTREVC3( 'L', 'A', SEL, 2, A, 2, VL, 2, VR, 1, 1, M, W,
454+
$ LW, RW, 2, INFO )
455+
CALL CHKXER( 'CTREVC3', INFOT, NOUT, LERR, OK )
456+
INFOT = 14
457+
CALL CTREVC3( 'L', 'A', SEL, 2, A, 2, VL, 2, VR, 1, 2, M, W,
458+
$ 2, RW, 2, INFO )
459+
CALL CHKXER( 'CTREVC3', INFOT, NOUT, LERR, OK )
460+
INFOT = 16
461+
CALL CTREVC3( 'L', 'A', SEL, 2, A, 2, VL, 2, VR, 1, 2, M, W,
462+
$ LW, RW, 1, INFO )
463+
CALL CHKXER( 'CTREVC3', INFOT, NOUT, LERR, OK )
464+
NT = NT + 9
401465
END IF
402466
*
403467
* Print a summary line.

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

Lines changed: 16 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -21,7 +21,7 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> CERRST tests the error exits for CHETRD, CUNGTR, CUNMTR, CHPTRD,
24+
*> CERRST tests the error exits for CHETRD, CHETD2, CUNGTR, CUNMTR, CHPTRD,
2525
*> CUNGTR, CUPMTR, CSTEQR, CSTEIN, CPTEQR, CHBTRD,
2626
*> CHEEV, CHEEVX, CHEEVD, CHBEV, CHBEVX, CHBEVD,
2727
*> CHPEV, CHPEVX, CHPEVD, and CSTEDC.
@@ -94,7 +94,7 @@ SUBROUTINE CERRST( PATH, NUNIT )
9494
EXTERNAL CHBEV, CHBEVD, CHBEVX, CHBTRD, CHEEV, CHEEVD,
9595
$ CHEEVR, CHEEVX, CHETRD, CHKXER, CHPEV, CHPEVD,
9696
$ CHPEVX, CHPTRD, CPTEQR, CSTEDC, CSTEIN, CSTEQR,
97-
$ CUNGTR, CUNMTR, CUPGTR, CUPMTR,
97+
$ CUNGTR, CUNMTR, CUPGTR, CUPMTR, CHETD2,
9898
$ CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
9999
$ CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
100100
$ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
@@ -156,6 +156,20 @@ SUBROUTINE CERRST( PATH, NUNIT )
156156
CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK )
157157
NT = NT + 4
158158
*
159+
* CHETD2
160+
*
161+
SRNAMT = 'CHETD2'
162+
INFOT = 1
163+
CALL CHETD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
164+
CALL CHKXER( 'CHETD2', INFOT, NOUT, LERR, OK )
165+
INFOT = 2
166+
CALL CHETD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
167+
CALL CHKXER( 'CHETD2', INFOT, NOUT, LERR, OK )
168+
INFOT = 4
169+
CALL CHETD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
170+
CALL CHKXER( 'CHETD2', INFOT, NOUT, LERR, OK )
171+
NT = NT + 3
172+
*
159173
* CHETRD_2STAGE
160174
*
161175
SRNAMT = 'CHETRD_2STAGE'

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

Lines changed: 68 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -21,8 +21,8 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> DERRHS tests the error exits for DGEBAK, SGEBAL, SGEHRD, DORGHR,
25-
*> DORMHR, DHSEQR, SHSEIN, and DTREVC.
24+
*> DERRHS tests the error exits for DGEBAK, DGEBAL, DGEHRD, DGEHD2,
25+
*> DORGHR, DORMHR, DHSEQR, DHSEIN, DTREVC, and DTREVC3.
2626
*> \endverbatim
2727
*
2828
* Arguments:
@@ -86,7 +86,7 @@ SUBROUTINE DERRHS( PATH, NUNIT )
8686
* ..
8787
* .. External Subroutines ..
8888
EXTERNAL CHKXER, DGEBAK, DGEBAL, DGEHRD, DHSEIN, DHSEQR,
89-
$ DORGHR, DORMHR, DTREVC
89+
$ DORGHR, DORMHR, DTREVC, DTREVC3, DGEHD2
9090
* ..
9191
* .. Intrinsic Functions ..
9292
INTRINSIC DBLE
@@ -194,6 +194,29 @@ SUBROUTINE DERRHS( PATH, NUNIT )
194194
CALL CHKXER( 'DGEHRD', INFOT, NOUT, LERR, OK )
195195
NT = NT + 7
196196
*
197+
* DGEHD2
198+
*
199+
SRNAMT = 'DGEHD2'
200+
INFOT = 1
201+
CALL DGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
202+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
203+
INFOT = 2
204+
CALL DGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
205+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
206+
INFOT = 2
207+
CALL DGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
208+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
209+
INFOT = 3
210+
CALL DGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
211+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
212+
INFOT = 3
213+
CALL DGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
214+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
215+
INFOT = 5
216+
CALL DGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
217+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
218+
NT = NT + 6
219+
*
197220
* DORGHR
198221
*
199222
SRNAMT = 'DORGHR'
@@ -328,7 +351,11 @@ SUBROUTINE DERRHS( PATH, NUNIT )
328351
CALL DHSEQR( 'E', 'V', 2, 1, 2, A, 2, WR, WI, C, 1, W, 1,
329352
$ INFO )
330353
CALL CHKXER( 'DHSEQR', INFOT, NOUT, LERR, OK )
331-
NT = NT + 9
354+
INFOT = 13
355+
CALL DHSEQR( 'E', 'N', 2, 1, 2, A, 2, WR, WI, C, 1, W, 1,
356+
$ INFO )
357+
CALL CHKXER( 'DHSEQR', INFOT, NOUT, LERR, OK )
358+
NT = NT + 10
332359
*
333360
* DHSEIN
334361
*
@@ -399,6 +426,43 @@ SUBROUTINE DERRHS( PATH, NUNIT )
399426
$ INFO )
400427
CALL CHKXER( 'DTREVC', INFOT, NOUT, LERR, OK )
401428
NT = NT + 7
429+
*
430+
* DTREVC3
431+
*
432+
SRNAMT = 'DTREVC3'
433+
INFOT = 1
434+
CALL DTREVC3( '/', 'A', SEL, 0, A, 1, VL, 1, VR, 1, 0, M, W,
435+
$ LW, INFO )
436+
CALL CHKXER( 'DTREVC3', INFOT, NOUT, LERR, OK )
437+
INFOT = 2
438+
CALL DTREVC3( 'L', '/', SEL, 0, A, 1, VL, 1, VR, 1, 0, M, W,
439+
$ LW, INFO )
440+
CALL CHKXER( 'DTREVC3', INFOT, NOUT, LERR, OK )
441+
INFOT = 4
442+
CALL DTREVC3( 'L', 'A', SEL, -1, A, 1, VL, 1, VR, 1, 0, M, W,
443+
$ LW, INFO )
444+
CALL CHKXER( 'DTREVC3', INFOT, NOUT, LERR, OK )
445+
INFOT = 6
446+
CALL DTREVC3( 'L', 'A', SEL, 2, A, 1, VL, 2, VR, 1, 4, M, W,
447+
$ LW, INFO )
448+
CALL CHKXER( 'DTREVC3', INFOT, NOUT, LERR, OK )
449+
INFOT = 8
450+
CALL DTREVC3( 'L', 'A', SEL, 2, A, 2, VL, 1, VR, 1, 4, M, W,
451+
$ LW, INFO )
452+
CALL CHKXER( 'DTREVC3', INFOT, NOUT, LERR, OK )
453+
INFOT = 10
454+
CALL DTREVC3( 'R', 'A', SEL, 2, A, 2, VL, 1, VR, 1, 4, M, W,
455+
$ LW, INFO )
456+
CALL CHKXER( 'DTREVC3', INFOT, NOUT, LERR, OK )
457+
INFOT = 11
458+
CALL DTREVC3( 'L', 'A', SEL, 2, A, 2, VL, 2, VR, 1, 1, M, W,
459+
$ LW, INFO )
460+
CALL CHKXER( 'DTREVC3', INFOT, NOUT, LERR, OK )
461+
INFOT = 14
462+
CALL DTREVC3( 'L', 'A', SEL, 2, A, 2, VL, 2, VR, 1, 2, M, W,
463+
$ 2, INFO )
464+
CALL CHKXER( 'DTREVC3', INFOT, NOUT, LERR, OK )
465+
NT = NT + 8
402466
END IF
403467
*
404468
* Print a summary line.

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

Lines changed: 19 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -21,10 +21,10 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> DERRST tests the error exits for DSYTRD, DORGTR, DORMTR, DSPTRD,
25-
*> DOPGTR, DOPMTR, DSTEQR, SSTERF, SSTEBZ, SSTEIN, DPTEQR, DSBTRD,
26-
*> DSYEV, SSYEVX, SSYEVD, DSBEV, SSBEVX, SSBEVD,
27-
*> DSPEV, SSPEVX, SSPEVD, DSTEV, SSTEVX, SSTEVD, and SSTEDC.
24+
*> DERRST tests the error exits for DSYTRD, DSYTD2, DORGTR, DORMTR, DSPTRD,
25+
*> DOPGTR, DOPMTR, DSTEQR, DSTERF, DSTEBZ, DSTEIN, DPTEQR, DSBTRD,
26+
*> DSYEV, DSYEVX, DSYEVD, DSBEV, DSBEVX, DSBEVD,
27+
*> DSPEV, DSPEVX, DSPEVD, DSTEV, DSTEVX, DSTEVD, and DSTEDC.
2828
*> DSYEVD_2STAGE, DSYEVR_2STAGE, DSYEVX_2STAGE,
2929
*> DSYEV_2STAGE, DSBEV_2STAGE, DSBEVD_2STAGE,
3030
*> DSBEVX_2STAGE, DSYTRD_2STAGE, DSYTRD_SY2SB,
@@ -95,7 +95,7 @@ SUBROUTINE DERRST( PATH, NUNIT )
9595
$ DSBEV, DSBEVD, DSBEVX, DSBTRD, DSPEV, DSPEVD,
9696
$ DSPEVX, DSPTRD, DSTEBZ, DSTEDC, DSTEIN, DSTEQR,
9797
$ DSTERF, DSTEV, DSTEVD, DSTEVR, DSTEVX, DSYEV,
98-
$ DSYEVD, DSYEVR, DSYEVX, DSYTRD,
98+
$ DSYEVD, DSYEVR, DSYEVX, DSYTRD, DSYTD2,
9999
$ DSYEVD_2STAGE, DSYEVR_2STAGE, DSYEVX_2STAGE,
100100
$ DSYEV_2STAGE, DSBEV_2STAGE, DSBEVD_2STAGE,
101101
$ DSBEVX_2STAGE, DSYTRD_2STAGE, DSYTRD_SY2SB,
@@ -157,6 +157,20 @@ SUBROUTINE DERRST( PATH, NUNIT )
157157
CALL CHKXER( 'DSYTRD', INFOT, NOUT, LERR, OK )
158158
NT = NT + 4
159159
*
160+
* DSYTD2
161+
*
162+
SRNAMT = 'DSYTD2'
163+
INFOT = 1
164+
CALL DSYTD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
165+
CALL CHKXER( 'DSYTD2', INFOT, NOUT, LERR, OK )
166+
INFOT = 2
167+
CALL DSYTD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
168+
CALL CHKXER( 'DSYTD2', INFOT, NOUT, LERR, OK )
169+
INFOT = 4
170+
CALL DSYTD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
171+
CALL CHKXER( 'DSYTD2', INFOT, NOUT, LERR, OK )
172+
NT = NT + 3
173+
*
160174
* DSYTRD_2STAGE
161175
*
162176
SRNAMT = 'DSYTRD_2STAGE'

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

Lines changed: 68 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -21,8 +21,8 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> SERRHS tests the error exits for SGEBAK, SGEBAL, SGEHRD, SORGHR,
25-
*> SORMHR, SHSEQR, SHSEIN, and STREVC.
24+
*> SERRHS tests the error exits for SGEBAK, SGEBAL, SGEHRD, SGEHD2,
25+
*> SORGHR, SORMHR, SHSEQR, SHSEIN, STREVC, and STREVC3.
2626
*> \endverbatim
2727
*
2828
* Arguments:
@@ -85,7 +85,7 @@ SUBROUTINE SERRHS( PATH, NUNIT )
8585
* ..
8686
* .. External Subroutines ..
8787
EXTERNAL CHKXER, SGEBAK, SGEBAL, SGEHRD, SHSEIN, SHSEQR,
88-
$ SORGHR, SORMHR, STREVC
88+
$ SORGHR, SORMHR, STREVC, STREVC3, SGEHD2
8989
* ..
9090
* .. Intrinsic Functions ..
9191
INTRINSIC REAL
@@ -193,6 +193,29 @@ SUBROUTINE SERRHS( PATH, NUNIT )
193193
CALL CHKXER( 'SGEHRD', INFOT, NOUT, LERR, OK )
194194
NT = NT + 7
195195
*
196+
* SGEHD2
197+
*
198+
SRNAMT = 'SGEHD2'
199+
INFOT = 1
200+
CALL SGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
201+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
202+
INFOT = 2
203+
CALL SGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
204+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
205+
INFOT = 2
206+
CALL SGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
207+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
208+
INFOT = 3
209+
CALL SGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
210+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
211+
INFOT = 3
212+
CALL SGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
213+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
214+
INFOT = 5
215+
CALL SGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
216+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
217+
NT = NT + 6
218+
*
196219
* SORGHR
197220
*
198221
SRNAMT = 'SORGHR'
@@ -327,7 +350,11 @@ SUBROUTINE SERRHS( PATH, NUNIT )
327350
CALL SHSEQR( 'E', 'V', 2, 1, 2, A, 2, WR, WI, C, 1, W, 1,
328351
$ INFO )
329352
CALL CHKXER( 'SHSEQR', INFOT, NOUT, LERR, OK )
330-
NT = NT + 9
353+
INFOT = 13
354+
CALL SHSEQR( 'E', 'N', 2, 1, 2, A, 2, WR, WI, C, 1, W, 1,
355+
$ INFO )
356+
CALL CHKXER( 'SHSEQR', INFOT, NOUT, LERR, OK )
357+
NT = NT + 10
331358
*
332359
* SHSEIN
333360
*
@@ -398,6 +425,43 @@ SUBROUTINE SERRHS( PATH, NUNIT )
398425
$ INFO )
399426
CALL CHKXER( 'STREVC', INFOT, NOUT, LERR, OK )
400427
NT = NT + 7
428+
*
429+
* STREVC3
430+
*
431+
SRNAMT = 'STREVC3'
432+
INFOT = 1
433+
CALL STREVC3( '/', 'A', SEL, 0, A, 1, VL, 1, VR, 1, 0, M, W,
434+
$ LW, INFO )
435+
CALL CHKXER( 'STREVC3', INFOT, NOUT, LERR, OK )
436+
INFOT = 2
437+
CALL STREVC3( 'L', '/', SEL, 0, A, 1, VL, 1, VR, 1, 0, M, W,
438+
$ LW, INFO )
439+
CALL CHKXER( 'STREVC3', INFOT, NOUT, LERR, OK )
440+
INFOT = 4
441+
CALL STREVC3( 'L', 'A', SEL, -1, A, 1, VL, 1, VR, 1, 0, M, W,
442+
$ LW, INFO )
443+
CALL CHKXER( 'STREVC3', INFOT, NOUT, LERR, OK )
444+
INFOT = 6
445+
CALL STREVC3( 'L', 'A', SEL, 2, A, 1, VL, 2, VR, 1, 4, M, W,
446+
$ LW, INFO )
447+
CALL CHKXER( 'STREVC3', INFOT, NOUT, LERR, OK )
448+
INFOT = 8
449+
CALL STREVC3( 'L', 'A', SEL, 2, A, 2, VL, 1, VR, 1, 4, M, W,
450+
$ LW, INFO )
451+
CALL CHKXER( 'STREVC3', INFOT, NOUT, LERR, OK )
452+
INFOT = 10
453+
CALL STREVC3( 'R', 'A', SEL, 2, A, 2, VL, 1, VR, 1, 4, M, W,
454+
$ LW, INFO )
455+
CALL CHKXER( 'STREVC3', INFOT, NOUT, LERR, OK )
456+
INFOT = 11
457+
CALL STREVC3( 'L', 'A', SEL, 2, A, 2, VL, 2, VR, 1, 1, M, W,
458+
$ LW, INFO )
459+
CALL CHKXER( 'STREVC3', INFOT, NOUT, LERR, OK )
460+
INFOT = 14
461+
CALL STREVC3( 'L', 'A', SEL, 2, A, 2, VL, 2, VR, 1, 2, M, W,
462+
$ 2, INFO )
463+
CALL CHKXER( 'STREVC3', INFOT, NOUT, LERR, OK )
464+
NT = NT + 8
401465
END IF
402466
*
403467
* Print a summary line.

0 commit comments

Comments
 (0)