[clblas] 05/67: Guarded debug printf statements in several level 1 and 2 routines
Ghislain Vaillant
ghisvail-guest at moszumanska.debian.org
Tue Oct 27 08:02:08 UTC 2015
This is an automated email from the git hooks/post-receive script.
ghisvail-guest pushed a commit to branch master
in repository clblas.
commit 4367daa8742903f90547f4c4da6e79117b3e53e1
Author: CNugteren <web at cedricnugteren.nl>
Date: Fri Jul 31 09:37:51 2015 +0200
Guarded debug printf statements in several level 1 and 2 routines
---
src/library/blas/ixamax.c | 16 ++++++++++++----
src/library/blas/xasum.c | 16 ++++++++++++----
src/library/blas/xaxpy.c | 6 ++++++
src/library/blas/xcopy.c | 6 ++++++
src/library/blas/xdot.c | 20 +++++++++++++++-----
src/library/blas/xger.c | 8 ++++++++
src/library/blas/xher.c | 8 +++++++-
src/library/blas/xher2.c | 8 ++++++++
src/library/blas/xrot.c | 12 +++++++++---
src/library/blas/xrotg.c | 24 ++++++++++++++++++------
src/library/blas/xrotm.c | 8 ++++++++
src/library/blas/xrotmg.c | 14 ++++++++++++++
src/library/blas/xscal.c | 8 ++++++--
src/library/blas/xswap.c | 6 ++++++
src/library/blas/xsyr.c | 8 +++++++-
src/library/blas/xsyr2.c | 8 ++++++++
src/library/blas/xtbmv.c | 16 ++++++++++++----
src/library/blas/xtrmv.c | 16 ++++++++++++----
18 files changed, 174 insertions(+), 34 deletions(-)
diff --git a/src/library/blas/ixamax.c b/src/library/blas/ixamax.c
index 8e4f44e..18088b6 100644
--- a/src/library/blas/ixamax.c
+++ b/src/library/blas/ixamax.c
@@ -56,23 +56,31 @@ doiAmax(
retCode = checkMemObjects(X, scratchBuf, iMax, true, X_VEC_ERRSET, A_MAT_ERRSET, X_VEC_ERRSET );
if (retCode) {
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_iAMAX
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET ))) {
- printf("Invalid Size for X\n");
+ #ifdef DEBUG_iAMAX
+ printf("Invalid Size for X\n");
+ #endif
return retCode;
}
// Minimum size of scratchBuff is 2 * N
if ((retCode = checkVectorSizes(kargs->dtype, (2 * N), scratchBuf, 0, 1, A_MAT_ERRSET ))) {
- printf("Insufficient ScratchBuff A\n");
+ #ifdef DEBUG_iAMAX
+ printf("Insufficient ScratchBuff A\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(TYPE_UNSIGNED_INT, 1, iMax, offiMax, 1, X_VEC_ERRSET ))) {
- printf("Invalid Size for iX\n");
+ #ifdef DEBUG_iAMAX
+ printf("Invalid Size for iX\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xasum.c b/src/library/blas/xasum.c
index 0a27c39..edc718c 100644
--- a/src/library/blas/xasum.c
+++ b/src/library/blas/xasum.c
@@ -59,24 +59,32 @@ doAsum(
retCode = checkMemObjects(scratchBuff, asum, X, true, X_VEC_ERRSET, X_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) {
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_ASUM
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET ))) {
- printf("Invalid Size for X\n");
+ #ifdef DEBUG_ASUM
+ printf("Invalid Size for X\n");
+ #endif
return retCode;
}
// Minimum size of scratchBuff is N
if ((retCode = checkVectorSizes(kargs->dtype, N, scratchBuff, 0, 1, X_VEC_ERRSET ))) {
- printf("Insufficient ScratchBuff\n");
+ #ifdef DEBUG_ASUM
+ printf("Insufficient ScratchBuff\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(asumType, 1, asum, offAsum, 1, X_VEC_ERRSET ))) {
- printf("Invalid Size for asum\n");
+ #ifdef DEBUG_ASUM
+ printf("Invalid Size for asum\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xaxpy.c b/src/library/blas/xaxpy.c
index d57b4c2..4eb66a3 100644
--- a/src/library/blas/xaxpy.c
+++ b/src/library/blas/xaxpy.c
@@ -54,18 +54,24 @@ doAxpy(
retCode = checkMemObjects(X, Y, X, false, X_VEC_ERRSET, Y_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) {
+ #ifdef DEBUG_AXPY
printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
+ #ifdef DEBUG_AXPY
printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, Y, offy, incy, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_AXPY
printf("Invalid Size for Y\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xcopy.c b/src/library/blas/xcopy.c
index 8e37597..d60ba5e 100644
--- a/src/library/blas/xcopy.c
+++ b/src/library/blas/xcopy.c
@@ -54,18 +54,24 @@ doCopy(
retCode = checkMemObjects(X, Y, X, false, X_VEC_ERRSET, Y_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) {
+ #ifdef DEBUG_COPY
printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
+ #ifdef DEBUG_COPY
printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, Y, offy, incy, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_COPY
printf("Invalid Size for Y\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xdot.c b/src/library/blas/xdot.c
index 67bf4cd..ed5530e 100644
--- a/src/library/blas/xdot.c
+++ b/src/library/blas/xdot.c
@@ -61,27 +61,37 @@ doDot(
retCode = checkMemObjects(X, Y, X, false, X_VEC_ERRSET, Y_VEC_ERRSET, X_VEC_ERRSET );
retCode |= checkMemObjects(scratchBuff, dotProduct, X, false, X_VEC_ERRSET, X_VEC_ERRSET, Y_VEC_ERRSET );
if (retCode) {
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_DOT
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
- printf("Invalid Size for X\n");
+ #ifdef DEBUG_DOT
+ printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, Y, offy, incy, Y_VEC_ERRSET))) {
- printf("Invalid Size for Y\n");
+ #ifdef DEBUG_DOT
+ printf("Invalid Size for Y\n");
+ #endif
return retCode;
}
// Minimum size of scratchBuff is N
if ((retCode = checkVectorSizes(kargs->dtype, N, scratchBuff, 0, 1, X_VEC_ERRSET))) {
- printf("Insufficient ScratchBuff\n");
+ #ifdef DEBUG_DOT
+ printf("Insufficient ScratchBuff\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, 1, dotProduct, offDP, 1, Y_VEC_ERRSET))) {
- printf("Invalid Size for dotProduct\n");
+ #ifdef DEBUG_DOT
+ printf("Invalid Size for dotProduct\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xger.c b/src/library/blas/xger.c
index c9e9e1c..9f79420 100644
--- a/src/library/blas/xger.c
+++ b/src/library/blas/xger.c
@@ -59,7 +59,9 @@ doGer(
/* Validate arguments */
if ((retCode = checkMemObjects(A, X, Y, true, A_MAT_ERRSET, X_VEC_ERRSET, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_GER
printf("Invalid mem object..\n");
+ #endif
return retCode;
}
@@ -67,15 +69,21 @@ doGer(
if ((retCode = checkMatrixSizes(kargs->dtype, order, clblasNoTrans, M, N, A, offa, lda, A_MAT_ERRSET))) {
+ #ifdef DEBUG_GER
printf("Invalid Size for A %d\n",retCode );
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, M, X, offx, incx, X_VEC_ERRSET))) {
+ #ifdef DEBUG_GER
printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, Y, offy, incy, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_GER
printf("Invalid Size for Y\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xher.c b/src/library/blas/xher.c
index 7131057..0b94580 100644
--- a/src/library/blas/xher.c
+++ b/src/library/blas/xher.c
@@ -57,16 +57,22 @@ doher(
/* Validate arguments */
if ((retCode = checkMemObjects(A, X, 0, false, A_MAT_ERRSET, X_VEC_ERRSET, END_ERRSET))) {
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_HER
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
if ((retCode = checkMatrixSizes(kargs->dtype, order, clblasNoTrans, N, N, A, offa, lda, A_MAT_ERRSET))) {
+ #ifdef DEBUG_HER
printf("Invalid Size for A\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
+ #ifdef DEBUG_HER
printf("Invalid Size for X\n");
+ #endif
return retCode;
}
diff --git a/src/library/blas/xher2.c b/src/library/blas/xher2.c
index 21a8ddc..a6de9fe 100644
--- a/src/library/blas/xher2.c
+++ b/src/library/blas/xher2.c
@@ -60,21 +60,29 @@ doHer2(
/* Validate arguments */
if ((retCode = checkMemObjects(A, X, Y, true, A_MAT_ERRSET, X_VEC_ERRSET, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_HER2
printf("Invalid mem object..\n");
+ #endif
return retCode;
}
if ((retCode = checkMatrixSizes(kargs->dtype, order, clblasNoTrans, N, N, A, offa, lda, A_MAT_ERRSET))) {
+ #ifdef DEBUG_HER2
printf("Invalid Size for A\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
+ #ifdef DEBUG_HER2
printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, Y, offy, incy, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_HER2
printf("Invalid Size for Y\n");
+ #endif
return retCode;
}
diff --git a/src/library/blas/xrot.c b/src/library/blas/xrot.c
index d07ec87..cf9acc6 100644
--- a/src/library/blas/xrot.c
+++ b/src/library/blas/xrot.c
@@ -52,18 +52,24 @@ doRot(
retCode = checkMemObjects(X, Y, X, false, X_VEC_ERRSET, Y_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) {
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_ROT
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
- printf("Invalid Size for X\n");
+ #ifdef DEBUG_ROT
+ printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, Y, offy, incy, Y_VEC_ERRSET))) {
- printf("Invalid Size for Y\n");
+ #ifdef DEBUG_ROT
+ printf("Invalid Size for Y\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xrotg.c b/src/library/blas/xrotg.c
index e497148..6d1623d 100644
--- a/src/library/blas/xrotg.c
+++ b/src/library/blas/xrotg.c
@@ -58,33 +58,45 @@ doRotg(
retCode = checkMemObjects(A, B, A, false, X_VEC_ERRSET, Y_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) { // for mem objects A, B
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_ROTG
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
retCode = checkMemObjects(C, S, C, false, X_VEC_ERRSET, Y_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) { // for mem objects C, S
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_ROTG
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, 1, A, offA, 1, X_VEC_ERRSET))) {
- printf("Invalid Size for A\n");
+ #ifdef DEBUG_ROTG
+ printf("Invalid Size for A\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, 1, B, offB, 1, Y_VEC_ERRSET))) {
- printf("Invalid Size for B\n");
+ #ifdef DEBUG_ROTG
+ printf("Invalid Size for B\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(cType, 1, C, offC, 1, X_VEC_ERRSET))) {
- printf("Invalid Size for C\n");
+ #ifdef DEBUG_ROTG
+ printf("Invalid Size for C\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, 1, S, offS, 1, Y_VEC_ERRSET))) {
- printf("Invalid Size for S\n");
+ #ifdef DEBUG_ROTG
+ printf("Invalid Size for S\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xrotm.c b/src/library/blas/xrotm.c
index 4130cf5..dad78d8 100644
--- a/src/library/blas/xrotm.c
+++ b/src/library/blas/xrotm.c
@@ -54,22 +54,30 @@ doRotm(
retCode = checkMemObjects(X, Y, param, true, X_VEC_ERRSET, Y_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) {
+ #ifdef DEBUG_ROTM
printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
+ #ifdef DEBUG_ROTM
printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, Y, offy, incy, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_ROTM
printf("Invalid Size for Y\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, 5, param, offParam, 1, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_ROTM
printf("Invalid Size for PARAM\n"); // PARAM is of minimum length 5
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xrotmg.c b/src/library/blas/xrotmg.c
index e6e48b6..176ccc2 100644
--- a/src/library/blas/xrotmg.c
+++ b/src/library/blas/xrotmg.c
@@ -54,35 +54,49 @@ doRotmg(
retCode = checkMemObjects(D1, D2, X1, true, X_VEC_ERRSET, Y_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) { // for mem objects A, B
+ #ifdef DEBUG_ROTMG
printf("Invalid mem object..\n");
+ #endif
return retCode;
}
retCode = checkMemObjects(Y1, param, Y1, false, X_VEC_ERRSET, Y_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) { // for mem objects C, S
+ #ifdef DEBUG_ROTMG
printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, 1, D1, offD1, 1, X_VEC_ERRSET))) {
+ #ifdef DEBUG_ROTMG
printf("Invalid Size for D1\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, 1, D2, offD2, 1, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_ROTMG
printf("Invalid Size for D2\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, 1, X1, offX1, 1, X_VEC_ERRSET))) {
+ #ifdef DEBUG_ROTMG
printf("Invalid Size for X1\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, 1, Y1, offY1, 1, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_ROTMG
printf("Invalid Size for Y1\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, 1, param, offParam, 1, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_ROTMG
printf("Invalid Size for PARAM\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xscal.c b/src/library/blas/xscal.c
index b262031..08bcb61 100644
--- a/src/library/blas/xscal.c
+++ b/src/library/blas/xscal.c
@@ -51,14 +51,18 @@ doScal(
retCode = checkMemObjects(X, X, X, false, X_VEC_ERRSET, X_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) {
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_SCAL
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
- printf("Invalid Size for X\n");
+ #ifdef DEBUG_SCAL
+ printf("Invalid Size for X\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xswap.c b/src/library/blas/xswap.c
index 1d83a5b..006053b 100644
--- a/src/library/blas/xswap.c
+++ b/src/library/blas/xswap.c
@@ -54,18 +54,24 @@ doSwap(
retCode = checkMemObjects(X, Y, X, false, X_VEC_ERRSET, Y_VEC_ERRSET, X_VEC_ERRSET );
if (retCode) {
+ #ifdef DEBUG_SWAP
printf("Invalid mem object..\n");
+ #endif
return retCode;
}
// Check wheather enough memory was allocated
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
+ #ifdef DEBUG_SWAP
printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, Y, offy, incy, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_SWAP
printf("Invalid Size for Y\n");
+ #endif
return retCode;
}
///////////////////////////////////////////////////////////////
diff --git a/src/library/blas/xsyr.c b/src/library/blas/xsyr.c
index 9358920..99b47b4 100644
--- a/src/library/blas/xsyr.c
+++ b/src/library/blas/xsyr.c
@@ -56,7 +56,9 @@ doSyr(
/* Validate arguments */
if ((retCode = checkMemObjects(A, X, 0, false, A_MAT_ERRSET, X_VEC_ERRSET, END_ERRSET))) {
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_SYR
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
@@ -66,11 +68,15 @@ doSyr(
* Need to be added.
*/
if ((retCode = checkMatrixSizes(kargs->dtype, order, clblasNoTrans, N, N, A, offa, lda, A_MAT_ERRSET))) {
+ #ifdef DEBUG_SYR
printf("Invalid Size for A\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
+ #ifdef DEBUG_SYR
printf("Invalid Size for X\n");
+ #endif
return retCode;
}
diff --git a/src/library/blas/xsyr2.c b/src/library/blas/xsyr2.c
index fddcfbd..37a31ee 100644
--- a/src/library/blas/xsyr2.c
+++ b/src/library/blas/xsyr2.c
@@ -59,21 +59,29 @@ doSyr2(
/* Validate arguments */
if ((retCode = checkMemObjects(A, X, Y, true, A_MAT_ERRSET, X_VEC_ERRSET, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_SYR2
printf("Invalid mem object..\n");
+ #endif
return retCode;
}
if ((retCode = checkMatrixSizes(kargs->dtype, order, clblasNoTrans, N, N, A, offa, lda, A_MAT_ERRSET ))) {
+ #ifdef DEBUG_SYR2
printf("Invalid Size for A\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, X, offx, incx, X_VEC_ERRSET))) {
+ #ifdef DEBUG_SYR2
printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, Y, offy, incy, Y_VEC_ERRSET))) {
+ #ifdef DEBUG_SYR2
printf("Invalid Size for Y\n");
+ #endif
return retCode;
}
diff --git a/src/library/blas/xtbmv.c b/src/library/blas/xtbmv.c
index b3b0d3b..83322e5 100644
--- a/src/library/blas/xtbmv.c
+++ b/src/library/blas/xtbmv.c
@@ -60,20 +60,28 @@ doTbmv(
/* Validate arguments */
if ((retCode = checkMemObjects(A, x, y, true, A_MAT_ERRSET, X_VEC_ERRSET, Y_VEC_ERRSET))) {
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_TBMV
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
if ((retCode = checkBandedMatrixSizes(kargs->dtype, order, trans, N, N, K, 0, A, offa, lda, A_MAT_ERRSET))) {
- printf("Invalid Size for A\n");
+ #ifdef DEBUG_TBMV
+ printf("Invalid Size for A\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, x, offx, incx, X_VEC_ERRSET))) {
- printf("Invalid Size for X\n");
+ #ifdef DEBUG_TBMV
+ printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, y, 0, incx, Y_VEC_ERRSET))) {
- printf("Invalid Size for scratch vector\n");
+ #ifdef DEBUG_TBMV
+ printf("Invalid Size for scratch vector\n");
+ #endif
return retCode;
}
diff --git a/src/library/blas/xtrmv.c b/src/library/blas/xtrmv.c
index 145c799..6ff205b 100644
--- a/src/library/blas/xtrmv.c
+++ b/src/library/blas/xtrmv.c
@@ -58,20 +58,28 @@ doTrmv(
/* Validate arguments */
if ((retCode = checkMemObjects(A, x, y, true, A_MAT_ERRSET, X_VEC_ERRSET, Y_VEC_ERRSET))) {
- printf("Invalid mem object..\n");
+ #ifdef DEBUG_TRMV
+ printf("Invalid mem object..\n");
+ #endif
return retCode;
}
if ((retCode = checkMatrixSizes(kargs->dtype, order, trans, N, N, A, offa, lda, A_MAT_ERRSET))) {
- printf("Invalid Size for A\n");
+ #ifdef DEBUG_TRMV
+ printf("Invalid Size for A\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, x, offx, incx, X_VEC_ERRSET))) {
- printf("Invalid Size for X\n");
+ #ifdef DEBUG_TRMV
+ printf("Invalid Size for X\n");
+ #endif
return retCode;
}
if ((retCode = checkVectorSizes(kargs->dtype, N, y, 0, incx, Y_VEC_ERRSET))) {
- printf("Invalid Size for scratch vector\n");
+ #ifdef DEBUG_TRMV
+ printf("Invalid Size for scratch vector\n");
+ #endif
return retCode;
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/clblas.git
More information about the debian-science-commits
mailing list