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-18 13:50:44 +02:00 committed by GitHub
parent c3f6971ed3
commit 38ddb6211a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ctest/c_sblas2.c
View File

@ -15,7 +15,7 @@ void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha,
float *A; float *A;
int i,j,LDA; int i,j,LDA;
enum CBLAS_TRANSPOSE trans; enum CBLAS_TRANSPOSE trans;
fprintf(stderr,"F77_gemv start gotoblas->sscal is %x\n",gotoblas->sscal_k);
get_transpose_type(transp, &trans); get_transpose_type(transp, &trans);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *n+1; LDA = *n+1;
@ -33,14 +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,"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", *beta,*incy); fprintf(stderr,"... beta=%f (y) %ld from c_cblas2.c\n", *beta,*incy);
fprintf(stderr,"gotoblas->sscal is %x\n",gotoblas->sscal_k);
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, gotoblas->sscal now %x\n",gotoblas->sscal_k);
} else { } else {
fprintf(stderr,"calling cblas_sgemv UNDEF from c_cblas2.c\n"); fprintf(stderr,"calling cblas_sgemv UNDEF from c_cblas2.c, gotoblas->sscal is %x\n",gotoblas->sscal_k);
cblas_sgemv( UNDEFINED, trans, cblas_sgemv( UNDEFINED, 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 UNDEF from c_cblas2.c done\n"); fprintf(stderr,"calling cblas_sgemv UNDEF from c_cblas2.c done, gotoblas->sscal now %x\n",gotoblas->sscal_k);
} }
} }