Update gemv.c

This commit is contained in:
Martin Kroeker 2021-04-15 21:35:37 +02:00 committed by GitHub
parent 595f35d88e
commit 0d331d2727
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions

View File

@ -198,13 +198,13 @@ fprintf(stderr,"interface for CBLAS_?GEMV starting, order=%d trans=%d m=%ld n=%l
leny = m;
if (trans) lenx = m;
if (trans) leny = n;
if (alpha == ZERO) return;
if (beta != ONE) {
fprintf(stderr,"CBLAS_?GEMV calling SCAL_K\n");
fprintf(stderr,"CBLAS_?GEMV calling SCAL_K with beta=%f incy=%d\n",beta,blasabs(incy));
SCAL_K(leny, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);
fprintf(stderr,"CBLAS_?GEMV done calling SCAL_K\n");
}
if (alpha == ZERO) return;
IDEBUG_START;