5 #ifndef FML_PAR_GPU_LINALG_BLAS_H
6 #define FML_PAR_GPU_LINALG_BLAS_H
10 #include "../../../gpu/linalg/linalg_blas.hh"
12 #include "../parmat.hh"
36 template <
typename REAL>
40 err::check_card(x, y, ret);
42 linalg::matmult(
false,
false, (REAL)1.0, x.data_obj(), y, ret.data_obj());
46 template <
typename REAL>
49 parmat_gpu<REAL> ret(x.get_comm(), x.get_card(), x.nrows(), x.ncols(), x.nrows_before());
54 template <
typename REAL>
58 err::check_card(x, y, ret);
60 linalg::matmult(
true,
false, (REAL)1.0, x.data_obj(), y.data_obj(), ret);
65 template <
typename REAL>
91 template <
typename REAL>
94 err::check_card(x, ret);
96 const len_t n = x.ncols();
102 comm r = x.get_comm();
107 template <
typename REAL>
110 const len_t n = x.ncols();