| 323 | } |
| 324 | |
| 325 | void |
| 326 | zher(char uplo, int n, double alpha, doublecomplex *x, int incx, doublecomplex *a, int lda) |
| 327 | { |
| 328 | zher_( &uplo, &n, &alpha, x, &incx, a, &lda); |
| 329 | } |
| 330 | |
| 331 | void |
| 332 | cher2(char uplo, int n, complex *alpha, complex *x, int incx, complex *y, int incy, complex *a, int lda) |