1
2 #include "f2c-bridge.h"
3 #include "blas_enum.h"
4 void BLAS_ctpmv_x(enum blas_order_type order, enum blas_uplo_type uplo,
5 enum blas_trans_type trans, enum blas_diag_type diag,
6 int n, const void *alpha, const void *tp,
7 void *x, int incx, enum blas_prec_type prec);
8
9
FC_FUNC_(blas_ctpmv_x,BLAS_CTPMV_X)10 extern void FC_FUNC_(blas_ctpmv_x, BLAS_CTPMV_X)
11
12 (int *uplo, int *trans, int *diag, int *n, const void *alpha,
13 const void *tp, void *x, int *incx, int *prec) {
14 BLAS_ctpmv_x(blas_colmajor, (enum blas_uplo_type) *uplo,
15 (enum blas_trans_type) *trans, (enum blas_diag_type) *diag, *n,
16 alpha, tp, x, *incx, (enum blas_prec_type) *prec);
17 }
18