| 29 | #endif |
| 30 | |
| 31 | void |
| 32 | sgemv(char transa, int m, int n, float alpha, float *a, int lda, float *x, int incx, float beta, float *y, int incy) |
| 33 | { |
| 34 | sgemv_(&transa, &m, &n, &alpha, a, &lda, x, &incx, &beta, y, &incy); |
| 35 | } |
| 36 | |
| 37 | void |
| 38 | dgemv(char transa, int m, int n, double alpha, double *a, int lda, double *x, int incx, double beta, double *y, int incy) |