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

Update gemv.c

This commit is contained in:
Martin Kroeker 2021-04-16 08:29:36 +02:00 committed by GitHub
parent 5e30b86023
commit 0a8f96c084
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
interface/gemv.c
View File

@ -201,6 +201,7 @@ fprintf(stderr,"interface for CBLAS_?GEMV starting, order=%d trans=%d m=%ld n=%l
if (beta != ONE) { if (beta != ONE) {
fprintf(stderr,"CBLAS_?GEMV calling SCAL_K with beta=%f incy=%d\n",beta,blasabs(incy)); 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); SCAL_K(leny, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);
fprintf(stderr,"CBLAS_?GEMV done calling SCAL_K\n"); fprintf(stderr,"CBLAS_?GEMV done calling SCAL_K\n");
} }