49 void scal(get_value_t<X> alpha, X &&x) {
50 static_assert(is_blas_lapack_v<get_value_t<X>>,
"Error in nda::blas::scal: Value type of vector is incompatible with blas");
52 if constexpr (mem::on_host<X>) {
53 f77::scal(x.size(), alpha, x.data(), x.indexmap().strides()[0]);
55#if defined(NDA_HAVE_DEVICE)
56 device::scal(x.size(), alpha, x.data(), x.indexmap().strides()[0]);