OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

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

tags/v0.3.24
Martin Kroeker GitHub 3 years ago
parent
0c38ebd599
commit
ca1791cfeb
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 167 additions and 47 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +52
    -5
      lapack-netlib/TESTING/LIN/cerrvx.f
  2. +27
    -17
      lapack-netlib/TESTING/LIN/derrvx.f
  3. +20
    -4
      lapack-netlib/TESTING/LIN/serrvx.f
  4. +1
    -1
      lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f
  5. +67
    -20
      lapack-netlib/TESTING/LIN/zerrvx.f

+ 52
- 5
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 = 7
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 INFOT = 11
CALL CHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1, 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
CALL CHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
INFOT = 13
CALL CHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, 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 )
*
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
CALL CSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
INFOT = 13
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 )


+ 27
- 17
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
*
SRNAMT = 'DSYSV_AA'
INFOT = 1
CALL DSYSV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL DSYSV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL DSYSV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
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 )
* DSYSV_AASEN
*
SRNAMT = 'DSYSV_AA'
INFOT = 1
CALL DSYSV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL DSYSV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL DSYSV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL DSYSV_AA( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
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
CALL DSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
INFOT = 13
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 )
* *


+ 20
- 4
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
CALL SSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
INFOT = 13
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 )
* *


+ 1
- 1
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
* *


+ 67
- 20
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
*
SRNAMT = 'ZHESV_AA'
INFOT = 1
CALL ZHESV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL ZHESV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL ZHESV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
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 )
* ZHESV_AASEN
*
SRNAMT = 'ZHESV_AA'
INFOT = 1
CALL ZHESV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 2
CALL ZHESV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 3
CALL ZHESV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
INFOT = 5
CALL ZHESV_AA( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
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 = 7
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 INFOT = 11
CALL ZHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1, 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
CALL ZHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
INFOT = 13
CALL ZHESV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, 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 )
*
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 = 7
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 INFOT = 11
CALL ZSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, IP, IP, B, 1, 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
CALL ZSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 1, IP, IP, B, 2,
INFOT = 13
CALL ZSYSV_AA_2STAGE( 'U', 2, 1, A, 2, A, 8, 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 )
**
*
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 )


Write Preview
Loading…
Cancel
Save