From 75170ef552c763f4f1716a17efe7be40e85d89a0 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 18 Apr 2021 14:49:41 +0200 Subject: [PATCH] Update c_sblas2.c --- ctest/c_sblas2.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/ctest/c_sblas2.c b/ctest/c_sblas2.c index 30afa4c05..2ff61a8c8 100644 --- a/ctest/c_sblas2.c +++ b/ctest/c_sblas2.c @@ -15,7 +15,7 @@ void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha, float *A; int i,j,LDA; enum CBLAS_TRANSPOSE trans; - fprintf(stderr,"F77_gemv start gotoblas->sscal is %x\n",gotoblas->sscal_k); + fprintf(stderr,"F77_gemv start gotoblas->sscal is %x\n",SSCAL_K); get_transpose_type(transp, &trans); if (*order == TEST_ROW_MJR) { LDA = *n+1; @@ -33,15 +33,15 @@ void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha, 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", *beta,*incy); - fprintf(stderr,"gotoblas->sscal is %x\n",gotoblas->sscal_k); + fprintf(stderr,"gotoblas->sscal is %x\n",SSCAL_K); 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, gotoblas->sscal now %x\n",gotoblas->sscal_k); + fprintf(stderr,"calling cblas_sgemv COL from c_cblas2.c done, gotoblas->sscal now %x\n",SSCAL_K); } else { - fprintf(stderr,"calling cblas_sgemv UNDEF from c_cblas2.c, gotoblas->sscal is %x\n",gotoblas->sscal_k); + fprintf(stderr,"calling cblas_sgemv UNDEF from c_cblas2.c, gotoblas->sscal is %x\n",SSCAL_K); cblas_sgemv( UNDEFINED, trans, *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy ); - fprintf(stderr,"calling cblas_sgemv UNDEF from c_cblas2.c done, gotoblas->sscal now %x\n",gotoblas->sscal_k); + fprintf(stderr,"calling cblas_sgemv UNDEF from c_cblas2.c done, gotoblas->sscal now %x\n",SSCAL_K); } }