| 65 | } |
| 66 | |
| 67 | void |
| 68 | sgemm(char transa, char transb, int m, int n, int k, float alpha, float *a, int lda, float *b, int ldb, float beta, float *c, int ldc) |
| 69 | { |
| 70 | sgemm_(&transa, &transb, &m, &n, &k, &alpha, a, &lda, b, &ldb, &beta, c, &ldc); |
| 71 | } |
| 72 | |
| 73 | void |
| 74 | dgemm(char transa, char transb, int m, int n, int k, double alpha, double *a, int lda, double *b, int ldb, double beta, double *c, int ldc) |