| 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) |
| 57 | { |
| 58 | ssymv_(&uplo, &n, &alpha, a, &lda, x, &incx, &beta, y, &incy); |
| 59 | } |
| 60 | |
| 61 | void |
| 62 | dsymv(char uplo, int n, double alpha, double *a, int lda, double *x, int incx, double beta, double *y, int incy) |