diff --git a/interface/gemv.c b/interface/gemv.c index 00086b0b0..2f4c61722 100644 --- a/interface/gemv.c +++ b/interface/gemv.c @@ -191,6 +191,7 @@ void CNAME(enum CBLAS_ORDER order, } fprintf(stderr,"interface for CBLAS_?GEMV starting, order=%d trans=%d m=%ld n=%ld\n",order,trans,m,n); + fprintf(stderr,"SCAL_K is %x SSCAL_K %x DSCAL_K %x CSCAL_K %x ZSCAL_K %x\n",SCAL_K,SSCAL_K,DSCAL_K,CSCAL_K, ZSCAL_K); #endif if ((m==0) || (n==0)) return;