| 593 | } |
| 594 | |
| 595 | void |
| 596 | zher2k(char uplo, char transa, int n, int k, doublecomplex *alpha, doublecomplex *a, int lda, doublecomplex *b, int ldb, double beta, doublecomplex *c, int ldc) |
| 597 | { |
| 598 | zher2k_( &uplo, &transa, &n, &k, alpha, a, &lda, b, &ldb, &beta, c, &ldc); |
| 599 | } |
| 600 | |
| 601 | void sscal( int n, float alpha, float *x, int incx) |
| 602 | { |