add_diag.hpp

Go to the documentation of this file.

#ifndef STAN_MATH_OPENCL_PRIM_ADD_DIAG_HPP
#define STAN_MATH_OPENCL_PRIM_ADD_DIAG_HPP
#ifdef STAN_OPENCL
#include <stan/math/opencl/prim/size.hpp>
#include <stan/math/opencl/kernel_generator.hpp>
#include <stan/math/prim/meta.hpp>
#include <stan/math/prim/err.hpp>
 
namespace stan {
namespace math {
 
template <typename T_m, typename T_a,
          require_all_kernel_expressions_and_none_scalar_t<T_m>* = nullptr,
          require_all_kernel_expressions_t<T_a>* = nullptr>
inline auto add_diag(T_m&& mat, T_a&& to_add) {  // NOLINT
  if constexpr (!is_stan_scalar<T_a>::value) {
    const size_t length_diag = std::min(mat.rows(), mat.cols());
    check_consistent_sizes("add_diag (OpenCL)", "number of elements of to_add",
                           to_add, "diagonal", length_diag);
  }
  matrix_cl<value_type_t<T_m>> mat_eval = mat;
  diagonal(mat_eval) = diagonal(mat_eval) + to_add;
  return mat_eval;
}
}  // namespace math
}  // namespace stan
 
#endif
#endif