void F77_NAME(dsymv)(const char *uplo, const int *n, const double *alpha, const double *a, const int *lda, const double *x, const int *incx, const double *beta, double *y, const int *incy) { DSYMV(uplo, n, alpha, a, lda, x, incx, beta, y, incy); }
void IpBlasDsymv(Index n, Number alpha, const Number* A, Index ldA, const Number* x, Index incX, Number beta, Number* y, Index incY) { ipfint N=n, LDA=ldA, INCX=incX, INCY=incY; char UPLO='L'; DSYMV(&UPLO, &N, &alpha, A, &LDA, x, &INCX, &beta, y, &INCY, 1); }