From 0a8f96c084d795f2c7d90d04358ddadd7d99e83f Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 16 Apr 2021 08:29:36 +0200 Subject: [PATCH] Update gemv.c --- interface/gemv.c | 1 + 1 file changed, 1 insertion(+) diff --git a/interface/gemv.c b/interface/gemv.c index 0971923b5..00086b0b0 100644 --- a/interface/gemv.c +++ b/interface/gemv.c @@ -201,6 +201,7 @@ fprintf(stderr,"interface for CBLAS_?GEMV starting, order=%d trans=%d m=%ld n=%l if (beta != ONE) { fprintf(stderr,"CBLAS_?GEMV calling SCAL_K with beta=%f incy=%d\n",beta,blasabs(incy)); + fprintf(stderr,"SCAL_K is %x SSCAL_K %x DSCAL_K %x\n",SCAL_K,SSCAL_K,DSCAL_K); SCAL_K(leny, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0); fprintf(stderr,"CBLAS_?GEMV done calling SCAL_K\n"); }