| 47 | } |
| 48 | |
| 49 | void |
| 50 | zgemv(char transa, int m, int n, doublecomplex *alpha, doublecomplex *a, int lda, doublecomplex *x, int incx, doublecomplex *beta, doublecomplex *y, int incy) |
| 51 | { |
| 52 | zgemv_(&transa, &m, &n, alpha, a, &lda, x, &incx, beta, y, &incy); |
| 53 | } |
| 54 | |
| 55 | void |
| 56 | ssymv(char uplo, int n, float alpha, float *a, int lda, float *x, int incx, float beta, float *y, int incy) |