From 9807861f2752bc7c098f517cf720de837a259d4f Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 16 Apr 2021 11:37:01 +0200 Subject: [PATCH] Update c_sblas2.c --- ctest/c_sblas2.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ctest/c_sblas2.c b/ctest/c_sblas2.c index c277696b6..fee6b7801 100644 --- a/ctest/c_sblas2.c +++ b/ctest/c_sblas2.c @@ -32,7 +32,7 @@ void F77_sgemv(blasint *order, char *transp, blasint *m, blasint *n, float *alph else if (*order == TEST_COL_MJR) { 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,"... 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, *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy ); fprintf(stderr,"calling cblas_sgemv COL from c_cblas2.c done\n");