1
2 #include "f2c-bridge.h"
3 #include "blas_enum.h"
4 void BLAS_zgemm_d_z(enum blas_order_type order, enum blas_trans_type transa,
5 enum blas_trans_type transb, int m, int n, int k,
6 const void *alpha, const double *a, int lda,
7 const void *b, int ldb, const void *beta, void *c,
8 int ldc);
9
10
FC_FUNC_(blas_zgemm_d_z,BLAS_ZGEMM_D_Z)11 extern void FC_FUNC_(blas_zgemm_d_z, BLAS_ZGEMM_D_Z)
12
13 (int *transa, int *transb, int *m, int *n, int *k, const void *alpha,
14 const double *a, int *lda, const void *b, int *ldb, const void *beta,
15 void *c, int *ldc) {
16 BLAS_zgemm_d_z(blas_colmajor, (enum blas_trans_type) *transa,
17 (enum blas_trans_type) *transb, *m, *n, *k, alpha, a, *lda,
18 b, *ldb, beta, c, *ldc);
19 }
20