| 161 | } |
| 162 | |
| 163 | void |
| 164 | ssyrk(char uplo, char transa, int n, int k, float alpha, float *a, int lda, float beta, float *c, int ldc) |
| 165 | { |
| 166 | ssyrk_(&uplo, &transa, &n, &k, &alpha, a, &lda, &beta, c, &ldc); |
| 167 | } |
| 168 | |
| 169 | void |
| 170 | dsyrk(char uplo, char transa, int n, int k, double alpha, double *a, int lda, double beta, double *c, int ldc) |