floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Extend tests for error exit sysv/sytd2/gehd2 (Reference-LAPACK PR 795)

This commit is contained in:
Martin Kroeker 2023-05-18 17:35:00 +02:00 committed by GitHub
parent 0c38ebd599
commit ca1791cfeb
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 171 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
lapack-netlib/TESTING/LIN/cerrvx.f
View File

@ -87,7 +87,7 @@
* .. * ..
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL CGBSV, CGBSVX, CGESV, CGESVX, CGTSV, CGTSVX, EXTERNAL CGBSV, CGBSVX, CGESV, CGESVX, CGTSV, CGTSVX,
$ CHESV, CHESV_RK ,CHESV_ROOK, CHESVX, CHKXER, $ CHESV, CHESV_RK, CHESV_ROOK, CHESVX, CHKXER,
$ CHPSV, CHPSVX, CPBSV, CPBSVX, CPOSV, CPOSVX, $ CHPSV, CHPSVX, CPBSV, CPBSVX, CPOSV, CPOSVX,
$ CPPSV, CPPSVX, CPTSV, CPTSVX, CSPSV, CSPSVX, $ CPPSV, CPPSVX, CPTSV, CPTSVX, CSPSV, CSPSVX,
$ CSYSV, CSYSV_AA, CSYSV_RK, CSYSV_ROOK, $ CSYSV, CSYSV_AA, CSYSV_RK, CSYSV_ROOK,
@ -651,6 +651,9 @@
INFOT = 3 INFOT = 3
CALL CHESV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL CHESV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CHESV_ROOK', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CHESV_ROOK', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL CHESV_ROOK( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'CHESV_ROOK', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL CHESV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL CHESV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CHESV_ROOK', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CHESV_ROOK', INFOT, NOUT, LERR, OK )
@ -710,9 +713,15 @@
INFOT = 3 INFOT = 3
CALL CHESV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL CHESV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CHESV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL CHESV_AA( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'CHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL CHESV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL CHESV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CHESV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 10
CALL CHESV_AA( 'U', 3, 1, A, 3, IP, B, 3, W, 6, INFO )
CALL CHKXER( 'CHESV_AA', INFOT, NOUT, LERR, OK )
* *
ELSE IF( LSAMEN( 2, C2, 'H2' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'H2' ) ) THEN
* *
@ -733,16 +742,44 @@
CALL CHKXER( 'CHESV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 5 INFOT = 5
CALL CHESV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1, CALL CHESV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1,
$ W, 1, INFO )
CALL CHKXER( 'CHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 11
CALL CHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'CHESV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 7 INFOT = 7
CALL CHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2, CALL CHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'CHESV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 11
CALL CHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1,
$ W, 1, INFO )
CALL CHKXER( 'CHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 13
CALL CHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 2,
$ W, 1, INFO )
CALL CHKXER( 'CHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
*
ELSE IF( LSAMEN( 2, C2, 'SA' ) ) THEN
*
* CSYSV_AASEN
*
SRNAMT = 'CSYSV_AA'
INFOT = 1
CALL CSYSV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL CSYSV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL CSYSV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL CSYSV_AA( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'CSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 8
CALL CSYSV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 10
CALL CSYSV_AA( 'U', 3, 1, A, 3, IP, B, 3, W, 6, INFO )
CALL CHKXER( 'CSYSV_AA', INFOT, NOUT, LERR, OK )
* *
ELSE IF( LSAMEN( 2, C2, 'S2' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'S2' ) ) THEN
* *
@ -763,14 +800,18 @@
CALL CHKXER( 'CSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 5 INFOT = 5
CALL CSYSV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1, CALL CSYSV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1,
$ W, 1, INFO )
CALL CHKXER( 'CSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 7
CALL CSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'CSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 11 INFOT = 11
CALL CSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1, CALL CSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'CSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 7 INFOT = 13
CALL CSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2, CALL CSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 2,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'CSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
* *
@ -834,6 +875,9 @@
INFOT = 3 INFOT = 3
CALL CSYSV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL CSYSV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CSYSV ', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CSYSV ', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL CSYSV( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'CSYSV ', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL CSYSV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL CSYSV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CSYSV ', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CSYSV ', INFOT, NOUT, LERR, OK )
@ -898,6 +942,9 @@
INFOT = 3 INFOT = 3
CALL CSYSV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL CSYSV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CSYSV_ROOK', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CSYSV_ROOK', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL CSYSV_ROOK( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'CSYSV_ROOK', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL CSYSV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL CSYSV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'CSYSV_ROOK', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'CSYSV_ROOK', INFOT, NOUT, LERR, OK )

42
lapack-netlib/TESTING/LIN/derrvx.f
View File

@ -699,21 +699,27 @@
* *
ELSE IF( LSAMEN( 2, C2, 'SA' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'SA' ) ) THEN
* *
* DSYSV_AA * DSYSV_AASEN
* *
SRNAMT = 'DSYSV_AA' SRNAMT = 'DSYSV_AA'
INFOT = 1 INFOT = 1
CALL DSYSV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO ) CALL DSYSV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 2 INFOT = 2
CALL DSYSV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO ) CALL DSYSV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 3 INFOT = 3
CALL DSYSV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL DSYSV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 5
CALL DSYSV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL DSYSV_AA( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 8
CALL DSYSV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 10
CALL DSYSV_AA( 'U', 3, 1, A, 3, IP, B, 3, W, 6, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
* *
ELSE IF( LSAMEN( 2, C2, 'S2' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'S2' ) ) THEN
* *
@ -734,14 +740,18 @@
CALL CHKXER( 'DSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'DSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 5 INFOT = 5
CALL DSYSV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1, CALL DSYSV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1,
$ W, 1, INFO )
CALL CHKXER( 'DSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 7
CALL DSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'DSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'DSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 11 INFOT = 11
CALL DSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1, CALL DSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'DSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'DSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 7 INFOT = 13
CALL DSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2, CALL DSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 2,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'DSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'DSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
* *

24
lapack-netlib/TESTING/LIN/serrvx.f
View File

@ -582,6 +582,9 @@
INFOT = 3 INFOT = 3
CALL SSYSV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL SSYSV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'SSYSV ', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYSV ', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL SSYSV( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'SSYSV ', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL SSYSV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL SSYSV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'SSYSV ', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYSV ', INFOT, NOUT, LERR, OK )
@ -647,6 +650,9 @@
INFOT = 3 INFOT = 3
CALL SSYSV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL SSYSV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'SSYSV_ROOK', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYSV_ROOK', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL SSYSV_ROOK( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'SSYSV_ROOK', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL SSYSV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL SSYSV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'SSYSV_ROOK', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYSV_ROOK', INFOT, NOUT, LERR, OK )
@ -694,7 +700,7 @@
* *
ELSE IF( LSAMEN( 2, C2, 'SA' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'SA' ) ) THEN
* *
* SSYSV_AA * SSYSV_AASEN
* *
SRNAMT = 'SSYSV_AA' SRNAMT = 'SSYSV_AA'
INFOT = 1 INFOT = 1
@ -706,13 +712,19 @@
INFOT = 3 INFOT = 3
CALL SSYSV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL SSYSV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'SSYSV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL SSYSV_AA( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'SSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL SSYSV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL SSYSV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'SSYSV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 10
CALL SSYSV_AA( 'U', 3, 1, A, 3, IP, B, 3, W, 6, INFO )
CALL CHKXER( 'SSYSV_AA', INFOT, NOUT, LERR, OK )
* *
ELSE IF( LSAMEN( 2, C2, 'S2' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'S2' ) ) THEN
* *
* DSYSV_AASEN_2STAGE * SSYSV_AASEN_2STAGE
* *
SRNAMT = 'SSYSV_AA_2STAGE' SRNAMT = 'SSYSV_AA_2STAGE'
INFOT = 1 INFOT = 1
@ -729,14 +741,18 @@
CALL CHKXER( 'SSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 5 INFOT = 5
CALL SSYSV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1, CALL SSYSV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1,
$ W, 1, INFO )
CALL CHKXER( 'SSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 7
CALL SSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'SSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 11 INFOT = 11
CALL SSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1, CALL SSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'SSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 7 INFOT = 13
CALL SSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2, CALL SSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 2,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'SSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
* *

2
lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f
View File

@ -229,7 +229,7 @@
* Test path * Test path
* *
PATH( 1: 1 ) = 'Zomplex precision' PATH( 1: 1 ) = 'Zomplex precision'
PATH( 2: 3 ) = 'H2' PATH( 2: 3 ) = 'S2'
* *
* Path to generate matrices * Path to generate matrices
* *

93
lapack-netlib/TESTING/LIN/zerrvx.f
View File

@ -653,6 +653,9 @@
INFOT = 3 INFOT = 3
CALL ZHESV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL ZHESV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL ZHESV_ROOK( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL ZHESV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL ZHESV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK )
@ -700,21 +703,27 @@
* *
ELSE IF( LSAMEN( 2, C2, 'HA' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'HA' ) ) THEN
* *
* ZHESV_AA * ZHESV_AASEN
* *
SRNAMT = 'ZHESV_AA' SRNAMT = 'ZHESV_AA'
INFOT = 1 INFOT = 1
CALL ZHESV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO ) CALL ZHESV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 2 INFOT = 2
CALL ZHESV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO ) CALL ZHESV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 3 INFOT = 3
CALL ZHESV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL ZHESV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 5
CALL ZHESV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL ZHESV_AA( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 8
CALL ZHESV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 10
CALL ZHESV_AA( 'U', 3, 1, A, 3, IP, B, 3, W, 6, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
* *
ELSE IF( LSAMEN( 2, C2, 'H2' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'H2' ) ) THEN
* *
@ -735,16 +744,44 @@
CALL CHKXER( 'ZHESV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 5 INFOT = 5
CALL ZHESV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1, CALL ZHESV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1,
$ W, 1, INFO )
CALL CHKXER( 'ZHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 11
CALL ZHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'ZHESV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 7 INFOT = 7
CALL ZHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2, CALL ZHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'ZHESV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 11
CALL ZHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1,
$ W, 1, INFO )
CALL CHKXER( 'ZHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 13
CALL ZHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 2,
$ W, 1, INFO )
CALL CHKXER( 'ZHESV_AA_2STAGE', INFOT, NOUT, LERR, OK )
*
ELSE IF( LSAMEN( 2, C2, 'SA' ) ) THEN
*
* ZSYSV_AASEN
*
SRNAMT = 'ZSYSV_AA'
INFOT = 1
CALL ZSYSV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL ZSYSV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL ZSYSV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL ZSYSV_AA( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'ZSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 8
CALL ZSYSV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 10
CALL ZSYSV_AA( 'U', 3, 1, A, 3, IP, B, 3, W, 6, INFO )
CALL CHKXER( 'ZSYSV_AA', INFOT, NOUT, LERR, OK )
* *
ELSE IF( LSAMEN( 2, C2, 'S2' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'S2' ) ) THEN
* *
@ -765,17 +802,21 @@
CALL CHKXER( 'ZSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 5 INFOT = 5
CALL ZSYSV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1, CALL ZSYSV_AA_2STAGE( 'U', 2, 1, A, 1, A, 1, IP, IP, B, 1,
$ W, 1, INFO )
CALL CHKXER( 'ZSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 11
CALL ZSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'ZSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 7 INFOT = 7
CALL ZSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2, CALL ZSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
$ W, 1, INFO ) $ W, 1, INFO )
CALL CHKXER( 'ZSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
** INFOT = 11
CALL ZSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1,
$ W, 1, INFO )
CALL CHKXER( 'ZSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
INFOT = 13
CALL ZSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 2,
$ W, 1, INFO )
CALL CHKXER( 'ZSYSV_AA_2STAGE', INFOT, NOUT, LERR, OK )
*
ELSE IF( LSAMEN( 2, C2, 'HP' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'HP' ) ) THEN
* *
* ZHPSV * ZHPSV
@ -836,6 +877,9 @@
INFOT = 3 INFOT = 3
CALL ZSYSV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL ZSYSV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL ZSYSV( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL ZSYSV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL ZSYSV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK )
@ -900,6 +944,9 @@
INFOT = 3 INFOT = 3
CALL ZSYSV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) CALL ZSYSV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZSYSV_ROOK', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZSYSV_ROOK', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL ZSYSV_ROOK( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
CALL CHKXER( 'ZSYSV_ROOK', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL ZSYSV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) CALL ZSYSV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZSYSV_ROOK', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'ZSYSV_ROOK', INFOT, NOUT, LERR, OK )