From 04ad946fc8f34dcf02dd00efb3120fad15d977fc Mon Sep 17 00:00:00 2001 From: =?utf8?q?S=C3=A9bastien=20Villemot?= Date: Mon, 11 Jan 2016 11:22:17 +0100 Subject: [PATCH] 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. --- ctest/c_cblat3.f | 5 +++-- ctest/c_cblat3_3m.f | 5 +++-- ctest/c_dblat3.f | 5 +++-- ctest/c_sblat3.f | 5 +++-- ctest/c_zblat3.f | 5 +++-- ctest/c_zblat3_3m.f | 5 +++-- 6 files changed, 18 insertions(+), 12 deletions(-) diff --git a/ctest/c_cblat3.f b/ctest/c_cblat3.f index 7d1743b..94144b8 100644 --- a/ctest/c_cblat3.f +++ b/ctest/c_cblat3.f @@ -1365,8 +1365,9 @@ * 150 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, - $ M, N, ALPHA, LDA, LDB) + IF( TRACE ) + $ CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, + $ M, N, ALPHA, LDA, LDB) * 160 CONTINUE RETURN diff --git a/ctest/c_cblat3_3m.f b/ctest/c_cblat3_3m.f index 68dd498..9643ebc 100644 --- a/ctest/c_cblat3_3m.f +++ b/ctest/c_cblat3_3m.f @@ -1365,8 +1365,9 @@ * 150 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, - $ M, N, ALPHA, LDA, LDB) + IF( TRACE ) + $ CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, + $ M, N, ALPHA, LDA, LDB) * 160 CONTINUE RETURN diff --git a/ctest/c_dblat3.f b/ctest/c_dblat3.f index 24befdc..72ad80c 100644 --- a/ctest/c_dblat3.f +++ b/ctest/c_dblat3.f @@ -1335,8 +1335,9 @@ * 150 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, - $ M, N, ALPHA, LDA, LDB) + IF( TRACE ) + $ CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, + $ M, N, ALPHA, LDA, LDB) * 160 CONTINUE RETURN diff --git a/ctest/c_sblat3.f b/ctest/c_sblat3.f index 606f83a..31babd9 100644 --- a/ctest/c_sblat3.f +++ b/ctest/c_sblat3.f @@ -1339,8 +1339,9 @@ * 150 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, - $ M, N, ALPHA, LDA, LDB) + IF( TRACE ) + $ CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, + $ M, N, ALPHA, LDA, LDB) * 160 CONTINUE RETURN diff --git a/ctest/c_zblat3.f b/ctest/c_zblat3.f index 93b2b77..21e743d 100644 --- a/ctest/c_zblat3.f +++ b/ctest/c_zblat3.f @@ -1366,8 +1366,9 @@ * 150 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, - $ M, N, ALPHA, LDA, LDB) + IF( TRACE ) + $ CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, + $ M, N, ALPHA, LDA, LDB) * 160 CONTINUE RETURN diff --git a/ctest/c_zblat3_3m.f b/ctest/c_zblat3_3m.f index 7390d87..ead64da 100644 --- a/ctest/c_zblat3_3m.f +++ b/ctest/c_zblat3_3m.f @@ -1366,8 +1366,9 @@ * 150 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, - $ M, N, ALPHA, LDA, LDB) + IF( TRACE ) + $ CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, + $ M, N, ALPHA, LDA, LDB) * 160 CONTINUE RETURN -- 2.7.4