| 137 | } |
| 138 | |
| 139 | void |
| 140 | ssyr2k(char uplo, char transa, int n, int k, float alpha, float *a, int lda, float *b, int ldb, float beta, float *c, int ldc) |
| 141 | { |
| 142 | ssyr2k_(&uplo, &transa, &n, &k, &alpha, a, &lda, b, &ldb, &beta, c, &ldc); |
| 143 | } |
| 144 | |
| 145 | void |
| 146 | dsyr2k(char uplo, char transa, int n, int k, double alpha, double *a, int lda, double *b, int ldb, double beta, double *c, int ldc) |