| 335 | } |
| 336 | |
| 337 | void |
| 338 | zher2(char uplo, int n, doublecomplex *alpha, doublecomplex *x, int incx, doublecomplex *y, int incy, doublecomplex *a, int lda) |
| 339 | { |
| 340 | zher2_( &uplo, &n, alpha, x, &incx, y, &incy, a, &lda); |
| 341 | } |
| 342 | |
| 343 | void |
| 344 | chemv(char uplo, int n, complex *alpha, complex *a, int lda, complex *x, int incx, complex *beta, complex *y, int incy) |