| 569 | } |
| 570 | |
| 571 | void |
| 572 | zhemm(char side, char uplo, int m, int n, doublecomplex *alpha, doublecomplex *a, int lda, doublecomplex *b, int ldb, doublecomplex *beta, doublecomplex *c, int ldc) |
| 573 | { |
| 574 | zhemm_( &side, &uplo, &m, &n, alpha, a, &lda, b, &ldb, beta, c, &ldc); |
| 575 | } |
| 576 | |
| 577 | void |
| 578 | cherk(char uplo, char transa, int n, int k, float alpha, complex *a, int lda, float beta, complex *c, int ldc) |