1
2 #include "f2c-bridge.h"
3 #include "blas_enum.h"
4 void BLAS_zgemm_z_c(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 void *a, int lda, const void *b,
7 int ldb, const void *beta, void *c, int ldc);
8
9
FC_FUNC_(blas_zgemm_z_c,BLAS_ZGEMM_Z_C)10 extern void FC_FUNC_(blas_zgemm_z_c, BLAS_ZGEMM_Z_C)
11
12 (int *transa, int *transb, int *m, int *n, int *k, const void *alpha,
13 const void *a, int *lda, const void *b, int *ldb, const void *beta,
14 void *c, int *ldc) {
15 BLAS_zgemm_z_c(blas_colmajor, (enum blas_trans_type) *transa,
16 (enum blas_trans_type) *transb, *m, *n, *k, alpha, a, *lda,
17 b, *ldb, beta, c, *ldc);
18 }
19