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

Merge pull request #3193 from martin-frbg/lapack538 

Apply lapack-testing fixes from Reference-LAPACK PR538
This commit is contained in:
Martin Kroeker 2021-04-27 15:40:51 +02:00 committed by GitHub
parent d511a7bb4f 3526ff2507
commit a6c2cb8417
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
11 changed files with 33 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lapack-netlib/TESTING/LIN/cdrvgex.f
View File

@ -707,9 +707,10 @@
CALL CLACPY( 'Full', N, NRHS, BSAV, LDA, B, LDA )
IF( .NOT.PREFAC )
$ CALL CLASET( 'Full', N, N, ZERO, ZERO, AFAC,
$ LDA )
CALL CLASET( 'Full', N, NRHS, ZERO, ZERO, X, LDA )
$ CALL CLASET( 'Full', N, N, CMPLX( ZERO ),
$ CMPLX( ZERO ), AFAC, LDA )
CALL CLASET( 'Full', N, NRHS, CMPLX( ZERO ),
$ CMPLX( ZERO ), X, LDA )
IF( IEQUED.GT.1 .AND. N.GT.0 ) THEN
*
* Equilibrate the matrix if FACT = 'F' and

10
lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f
View File

@ -449,11 +449,11 @@
* Reconstruct matrix from factors and compute
* residual.
*
c CALL CHET01_AA( UPLO, N, A, LDA, AFAC, LDA,
c $ IWORK, AINV, LDA, RWORK,
c $ RESULT( 2 ) )
c NT = 2
NT = 1
c CALL CHET01_AA( UPLO, N, A, LDA, AFAC, LDA,
c $ IWORK, AINV, LDA, RWORK,
c $ RESULT( 2 ) )
c NT = 2
NT = 1
*
* Print information about the tests that did not pass
* the threshold.

8
lapack-netlib/TESTING/LIN/cdrvrfp.f
View File

@ -449,19 +449,19 @@
* Form the inverse of A.
*
CALL CPOTRI( UPLO, N, A, LDA, INFO )
IF ( N .NE. 0 ) THEN
*
* Compute the 1-norm condition number of A.
* Compute the 1-norm condition number of A.
*
IF ( N .NE. 0 ) THEN
AINVNM = CLANHE( '1', UPLO, N, A, LDA,
+ S_WORK_CLANHE )
RCONDC = ( ONE / ANORM ) / AINVNM
*
* Restore the matrix A.
*
CALL CLACPY( UPLO, N, N, ASAV, LDA, A, LDA )
CALL CLACPY( UPLO, N, N, ASAV, LDA, A, LDA )
END IF
*
END IF
*

3
lapack-netlib/TESTING/LIN/ddrvrfp.f
View File

@ -443,8 +443,7 @@
*
CALL DPOTRI( UPLO, N, A, LDA, INFO )
IF ( N .NE. 0 ) THEN
IF ( N .NE. 0 ) THEN
*
* Compute the 1-norm condition number of A.
*

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

@ -443,7 +443,7 @@
*
CALL SPOTRI( UPLO, N, A, LDA, INFO )
IF ( N .NE. 0 ) THEN
IF ( N .NE. 0 ) THEN
*
* Compute the 1-norm condition number of A.
*

7
lapack-netlib/TESTING/LIN/zdrvgex.f
View File

@ -707,9 +707,10 @@
CALL ZLACPY( 'Full', N, NRHS, BSAV, LDA, B, LDA )
IF( .NOT.PREFAC )
$ CALL ZLASET( 'Full', N, N, ZERO, ZERO, AFAC,
$ LDA )
CALL ZLASET( 'Full', N, NRHS, ZERO, ZERO, X, LDA )
$ CALL ZLASET( 'Full', N, N, DCMPLX( ZERO ),
$ DCMPLX( ZERO ), AFAC, LDA )
CALL ZLASET( 'Full', N, NRHS, DCMPLX( ZERO ),
$ DCMPLX( ZERO ), X, LDA )
IF( IEQUED.GT.1 .AND. N.GT.0 ) THEN
*
* Equilibrate the matrix if FACT = 'F' and

8
lapack-netlib/TESTING/LIN/zdrvhex.f
View File

@ -599,10 +599,10 @@
* Restore the matrices A and B.
*
IF( IFACT.EQ.2 )
$ CALL ZLASET( UPLO, N, N, CMPLX( ZERO ),
$ CMPLX( ZERO ), AFAC, LDA )
CALL ZLASET( 'Full', N, NRHS, CMPLX( ZERO ),
$ CMPLX( ZERO ), X, LDA )
$ CALL ZLASET( UPLO, N, N, DCMPLX( ZERO ),
$ DCMPLX( ZERO ), AFAC, LDA )
CALL ZLASET( 'Full', N, NRHS, DCMPLX( ZERO ),
$ DCMPLX( ZERO ), X, LDA )
*
* Solve the system and compute the condition number
* and error bounds using ZHESVXX.

8
lapack-netlib/TESTING/LIN/zdrvpox.f
View File

@ -611,10 +611,10 @@
CALL ZLACPY( 'Full', N, NRHS, BSAV, LDA, B, LDA )
IF( .NOT.PREFAC )
$ CALL ZLASET( UPLO, N, N, CMPLX( ZERO ),
$ CMPLX( ZERO ), AFAC, LDA )
CALL ZLASET( 'Full', N, NRHS, CMPLX( ZERO ),
$ CMPLX( ZERO ), X, LDA )
$ CALL ZLASET( UPLO, N, N, DCMPLX( ZERO ),
$ DCMPLX( ZERO ), AFAC, LDA )
CALL ZLASET( 'Full', N, NRHS, DCMPLX( ZERO ),
$ DCMPLX( ZERO ), X, LDA )
IF( IEQUED.GT.1 .AND. N.GT.0 ) THEN
*
* Equilibrate the matrix if FACT='F' and

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

@ -450,7 +450,7 @@
*
CALL ZPOTRI( UPLO, N, A, LDA, INFO )
IF ( N .NE. 0 ) THEN
IF ( N .NE. 0 ) THEN
*
* Compute the 1-norm condition number of A.
*

8
lapack-netlib/TESTING/LIN/zdrvsyx.f
View File

@ -605,10 +605,10 @@
* Restore the matrices A and B.
*
IF( IFACT.EQ.2 )
$ CALL ZLASET( UPLO, N, N, CMPLX( ZERO ),
$ CMPLX( ZERO ), AFAC, LDA )
CALL ZLASET( 'Full', N, NRHS, CMPLX( ZERO ),
$ CMPLX( ZERO ), X, LDA )
$ CALL ZLASET( UPLO, N, N, DCMPLX( ZERO ),
$ DCMPLX( ZERO ), AFAC, LDA )
CALL ZLASET( 'Full', N, NRHS, DCMPLX( ZERO ),
$ DCMPLX( ZERO ), X, LDA )
*
* Solve the system and compute the condition number
* and error bounds using ZSYSVXX.

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

@ -1166,7 +1166,7 @@
$ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N,
$ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO )
CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK )
INFOT = 13
INFOT = 13
EQ = 'N'
CALL ZSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 1, X,
$ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N,