Update c_sblas2.c
This commit is contained in:
parent
abd7d67143
commit
49a26657ab
|
@ -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);
|
||||||
|
|
Loading…
Reference in New Issue