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

Merge pull request #739 from sebastien-villemot/develop 

Fixes for old outstanding bugs in CBLAS test programs
This commit is contained in:
Zhang Xianyi 2016-01-12 14:47:34 -06:00
parent c6a27bbe64 04ad946fc8
commit b65de4947a
7 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ctest/c_cblat3.f
View File

@ -1365,8 +1365,9 @@
* *
150 CONTINUE 150 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, IF( TRACE )
$ M, N, ALPHA, LDA, LDB) $ CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
$ M, N, ALPHA, LDA, LDB)
* *
160 CONTINUE 160 CONTINUE
RETURN RETURN

5
ctest/c_cblat3_3m.f
View File

@ -1365,8 +1365,9 @@
* *
150 CONTINUE 150 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, IF( TRACE )
$ M, N, ALPHA, LDA, LDB) $ CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
$ M, N, ALPHA, LDA, LDB)
* *
160 CONTINUE 160 CONTINUE
RETURN RETURN

5
ctest/c_dblat3.f
View File

@ -1335,8 +1335,9 @@
* *
150 CONTINUE 150 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, IF( TRACE )
$ M, N, ALPHA, LDA, LDB) $ CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
$ M, N, ALPHA, LDA, LDB)
* *
160 CONTINUE 160 CONTINUE
RETURN RETURN

5
ctest/c_sblat3.f
View File

@ -1339,8 +1339,9 @@
* *
150 CONTINUE 150 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, IF( TRACE )
$ M, N, ALPHA, LDA, LDB) $ CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
$ M, N, ALPHA, LDA, LDB)
* *
160 CONTINUE 160 CONTINUE
RETURN RETURN

10
ctest/c_zblat2.f
View File

@ -1350,7 +1350,7 @@
* *
* Call the subroutine. * Call the subroutine.
* *
IF( SNAME( 4: 5 ).EQ.'mv' )THEN IF( SNAME( 10: 11 ).EQ.'mv' )THEN
IF( FULL )THEN IF( FULL )THEN
IF( TRACE ) IF( TRACE )
$ WRITE( NTRA, FMT = 9993 )NC, SNAME, $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
@ -1376,7 +1376,7 @@
CALL CZTPMV( IORDER, UPLO, TRANS, DIAG, CALL CZTPMV( IORDER, UPLO, TRANS, DIAG,
$ N, AA, XX, INCX ) $ N, AA, XX, INCX )
END IF END IF
ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
IF( FULL )THEN IF( FULL )THEN
IF( TRACE ) IF( TRACE )
$ WRITE( NTRA, FMT = 9993 )NC, SNAME, $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
@ -1465,7 +1465,7 @@
END IF END IF
* *
IF( .NOT.NULL )THEN IF( .NOT.NULL )THEN
IF( SNAME( 4: 5 ).EQ.'mv' )THEN IF( SNAME( 10: 11 ).EQ.'mv' )THEN
* *
* Check the result. * Check the result.
* *
@ -1473,7 +1473,7 @@
$ INCX, ZERO, Z, INCX, XT, G, $ INCX, ZERO, Z, INCX, XT, G,
$ XX, EPS, ERR, FATAL, NOUT, $ XX, EPS, ERR, FATAL, NOUT,
$ .TRUE. ) $ .TRUE. )
ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
* *
* Compute approximation to original vector. * Compute approximation to original vector.
* *
@ -1611,7 +1611,7 @@
* .. Common blocks .. * .. Common blocks ..
COMMON /INFOC/INFOT, NOUTC, OK COMMON /INFOC/INFOT, NOUTC, OK
* .. Executable Statements .. * .. Executable Statements ..
CONJ = SNAME( 5: 5 ).EQ.'c' CONJ = SNAME( 11: 11 ).EQ.'c'
* Define the number of arguments. * Define the number of arguments.
NARGS = 9 NARGS = 9
* *

5
ctest/c_zblat3.f
View File

@ -1366,8 +1366,9 @@
* *
150 CONTINUE 150 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, IF( TRACE )
$ M, N, ALPHA, LDA, LDB) $ CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
$ M, N, ALPHA, LDA, LDB)
* *
160 CONTINUE 160 CONTINUE
RETURN RETURN

5
ctest/c_zblat3_3m.f
View File

@ -1366,8 +1366,9 @@
* *
150 CONTINUE 150 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, IF( TRACE )
$ M, N, ALPHA, LDA, LDB) $ CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
$ M, N, ALPHA, LDA, LDB)
* *
160 CONTINUE 160 CONTINUE
RETURN RETURN