| 179 | } |
| 180 | |
| 181 | void |
| 182 | zsyrk(char uplo, char transa, int n, int k, doublecomplex *alpha, doublecomplex *a, int lda, doublecomplex *beta, doublecomplex *c, int ldc) |
| 183 | { |
| 184 | zsyrk_(&uplo, &transa, &n, &k, alpha, a, &lda, beta, c, &ldc); |
| 185 | } |
| 186 | |
| 187 | void |
| 188 | strmv(char uplo, char transa, char diag, int n, float *a, int lda, float *x, int incx) |