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