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