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

Update c_sblas2.c

This commit is contained in:
Martin Kroeker 2021-04-16 11:37:01 +02:00 committed by GitHub
parent 5711ab0c90
commit 9807861f27
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ctest/c_sblas2.c
View File

@ -32,7 +32,7 @@ void F77_sgemv(blasint *order, char *transp, blasint *m, blasint *n, float *alph
else if (*order == TEST_COL_MJR) { else if (*order == TEST_COL_MJR) {
fprintf(stderr,"calling cblas_sgemv COL %s %d %ld %ld ...\n",transp,trans,*m,*n); fprintf(stderr,"calling cblas_sgemv COL %s %d %ld %ld ...\n",transp,trans,*m,*n);
fprintf(stderr,"... alpha=%f (a) %ld (x) %ld ...\n",*alpha,*lda,*incx); fprintf(stderr,"... alpha=%f (a) %ld (x) %ld ...\n",*alpha,*lda,*incx);
fprintf(stderr,"... beta=%f (y) %ld from c_cblas2.c\n", *alpha,*lda,*incx,*beta,*incy); fprintf(stderr,"... beta=%f (y) %ld from c_cblas2.c\n", *beta,*incy);
cblas_sgemv( CblasColMajor, trans, cblas_sgemv( CblasColMajor, trans,
*m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy ); *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
fprintf(stderr,"calling cblas_sgemv COL from c_cblas2.c done\n"); fprintf(stderr,"calling cblas_sgemv COL from c_cblas2.c done\n");