Update c_sblas2.c

This commit is contained in:
Martin Kroeker 2021-04-16 14:10:13 +02:00 committed by GitHub
parent abd7d67143
commit 49a26657ab
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions

View File

@ -8,12 +8,12 @@
#include "common.h" #include "common.h"
#include "cblas_test.h" #include "cblas_test.h"
void F77_sgemv(blasint *order, char *transp, blasint *m, blasint *n, float *alpha, void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha,
float *a, blasint *lda, float *x, blasint *incx, float *beta, float *a, int *lda, float *x, int *incx, float *beta,
float *y, blasint *incy ) { float *y, int *incy ) {
float *A; float *A;
blasint i,j,LDA; int i,j,LDA;
enum CBLAS_TRANSPOSE trans; enum CBLAS_TRANSPOSE trans;
get_transpose_type(transp, &trans); get_transpose_type(transp, &trans);