| 347 | } |
| 348 | |
| 349 | void |
| 350 | zhemv(char uplo, int n, doublecomplex *alpha, doublecomplex *a, int lda, doublecomplex *x, int incx, doublecomplex *beta, doublecomplex *y, int incy) |
| 351 | { |
| 352 | zhemv_( &uplo, &n, alpha, a, &lda, x, &incx, beta, y, &incy ); |
| 353 | } |
| 354 | |
| 355 | void |
| 356 | stpmv(char uplo, char transa, char diag, int n, float *ap, float *x, int incx) |