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

Merge pull request #3841 from martin-frbg/lapack755+764 

Fix SLATRS3 and CLATRS3 tests in TESTING/LIN (Reference-LAPACK PRs 755+764)
This commit is contained in:
Martin Kroeker 2022-11-23 22:38:06 +01:00 committed by GitHub
parent bf0e8d67b5 a5470521ee
commit e9a911fb9f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lapack-netlib/SRC/iparam2stage.F
View File

@ -178,7 +178,8 @@
* .. * ..
* .. External Functions .. * .. External Functions ..
INTEGER ILAENV INTEGER ILAENV
EXTERNAL ILAENV LOGICAL LSAME
EXTERNAL ILAENV, LSAME
* .. * ..
* .. Executable Statements .. * .. Executable Statements ..
* *
@ -310,7 +311,7 @@
* *
* Will add the VECT OPTION HERE next release * Will add the VECT OPTION HERE next release
VECT = OPTS(1:1) VECT = OPTS(1:1)
IF( VECT.EQ.'N' ) THEN IF( LSAME( VECT, 'N' ) ) THEN
LHOUS = MAX( 1, 4*NI ) LHOUS = MAX( 1, 4*NI )
ELSE ELSE
* This is not correct, it need to call the ALGO and the stage2 * This is not correct, it need to call the ALGO and the stage2

6
lapack-netlib/TESTING/LIN/cchktr.f
View File

@ -541,7 +541,7 @@
* *
SRNAMT = 'CLATRS3' SRNAMT = 'CLATRS3'
CALL CCOPY( N, X, 1, B, 1 ) CALL CCOPY( N, X, 1, B, 1 )
CALL CCOPY( N, X, 1, B, 1 ) CALL CCOPY( N, X, 1, B( N+1 ), 1 )
CALL CSCAL( N, BIGNUM, B( N+1 ), 1 ) CALL CSCAL( N, BIGNUM, B( N+1 ), 1 )
CALL CLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA, CALL CLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA,
$ B, MAX(1, N), SCALE3, RWORK, WORK, NMAX, $ B, MAX(1, N), SCALE3, RWORK, WORK, NMAX,
@ -551,7 +551,7 @@
* *
IF( INFO.NE.0 ) IF( INFO.NE.0 )
$ CALL ALAERH( PATH, 'CLATRS3', INFO, 0, $ CALL ALAERH( PATH, 'CLATRS3', INFO, 0,
$ UPLO // TRANS // DIAG // 'Y', N, N, $ UPLO // TRANS // DIAG // 'N', N, N,
$ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT ) $ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT )
CALL CTRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, CALL CTRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,
$ SCALE3( 1 ), RWORK, ONE, B( 1 ), LDA, $ SCALE3( 1 ), RWORK, ONE, B( 1 ), LDA,
@ -559,7 +559,7 @@
CALL CSSCAL( N, BIGNUM, X, 1 ) CALL CSSCAL( N, BIGNUM, X, 1 )
CALL CTRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, CALL CTRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,
$ SCALE3( 2 ), RWORK, ONE, B( N+1 ), LDA, $ SCALE3( 2 ), RWORK, ONE, B( N+1 ), LDA,
$ X, LDA, WORK, RESULT( 10 ) ) $ X, LDA, WORK, RES )
RESULT( 10 ) = MAX( RESULT( 10 ), RES ) RESULT( 10 ) = MAX( RESULT( 10 ), RES )
* *
* Print information about the tests that did not pass * Print information about the tests that did not pass

4
lapack-netlib/TESTING/LIN/schktr.f
View File

@ -555,11 +555,11 @@
* *
IF( INFO.NE.0 ) IF( INFO.NE.0 )
$ CALL ALAERH( PATH, 'SLATRS3', INFO, 0, $ CALL ALAERH( PATH, 'SLATRS3', INFO, 0,
$ UPLO // TRANS // DIAG // 'Y', N, N, $ UPLO // TRANS // DIAG // 'N', N, N,
$ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT ) $ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT )
* *
CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,
$ SCALE3 ( 1 ), RWORK, ONE, B( N+1 ), LDA, $ SCALE3( 1 ), RWORK, ONE, B( 1 ), LDA,
$ X, LDA, WORK, RESULT( 10 ) ) $ X, LDA, WORK, RESULT( 10 ) )
CALL SSCAL( N, BIGNUM, X, 1 ) CALL SSCAL( N, BIGNUM, X, 1 )
CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,