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

Fix output descriptors of c_{s,d,c,z}blat3 

The NTRA argument can be equal to -1 if one does not want a snapshot file
(and this is the case with sample data {s,d,c,z}in3).
The routines {S,D,C,Z}PRCN3 will try to use their first argument as an output
unit number, so we avoid calling them when NTRA < 0.

Patch originally written by Camm Maguire.
This commit is contained in:
Sébastien Villemot 2016-01-11 11:22:17 +01:00
parent f704b8d32f
commit 04ad946fc8
6 changed files with 18 additions and 12 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

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