| 431 | } |
| 432 | |
| 433 | void |
| 434 | zhpmv(char uplo, int n, doublecomplex *alpha, doublecomplex *ap, doublecomplex *x, int incx, doublecomplex *beta, doublecomplex *y, int incy) |
| 435 | { |
| 436 | zhpmv_( &uplo, &n, alpha, ap, x, &incx, beta, y, &incy ); |
| 437 | } |
| 438 | |
| 439 | void |
| 440 | chpr(char uplo, int n, float alpha, complex *x, int incx, complex *ap ) |