| 581 | } |
| 582 | |
| 583 | void |
| 584 | zherk(char uplo, char transa, int n, int k, double alpha, doublecomplex *a, int lda, double beta, doublecomplex *c, int ldc) |
| 585 | { |
| 586 | zherk_( &uplo, &transa, &n, &k, &alpha, a, &lda, &beta, c, &ldc); |
| 587 | } |
| 588 | |
| 589 | void |
| 590 | cher2k(char uplo, char transa, int n, int k, complex *alpha, complex *a, int lda, complex *b, int ldb, float beta, complex *c, int ldc) |