| 73 | |
| 74 | |
| 75 | int dgemm(char *transa, char *transb, integer *m, integer * |
| 76 | n, integer *k, doublereal *alpha, doublereal *a, integer *lda, |
| 77 | doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, |
| 78 | integer *ldc) |
| 79 | { |
| 80 | return dgemm_ (transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c__, ldc); |
| 81 | } |
| 82 | |
| 83 | int zgemm(char *transa, char *transb, integer *m, integer * |
| 84 | n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, |
no outgoing calls
no test coverage detected