| 81 | } |
| 82 | |
| 83 | int zgemm(char *transa, char *transb, integer *m, integer * |
| 84 | n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, |
| 85 | doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex * |
| 86 | c__, integer *ldc) |
| 87 | { |
| 88 | return zgemm_ (transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c__, ldc); |
| 89 | } |
| 90 | |
| 91 | int dger(integer *m, integer *n, doublereal *alpha, |
| 92 | doublereal *x, integer *incx, doublereal *y, integer *incy, |
no outgoing calls
no test coverage detected