12#ifndef TLAPACK_LACPY_HH
13#define TLAPACK_LACPY_HH
44 const idx_t m = nrows(
A);
45 const idx_t n = ncols(
A);
49 uplo != Uplo::General);
51 if (
uplo == Uplo::Upper) {
53 for (idx_t j = 0; j < n; ++j) {
54 const idx_t
M = min(m, j + 1);
55 for (idx_t i = 0; i <
M; ++i)
59 else if (
uplo == Uplo::Lower) {
61 const idx_t
N = min(m, n);
62 for (idx_t j = 0; j <
N; ++j)
63 for (idx_t i = j; i < m; ++i)
68 for (idx_t j = 0; j < n; ++j)
69 for (idx_t i = 0; i < m; ++i)
#define TLAPACK_UPLO
Macro for tlapack::concepts::Uplo compatible with C++17.
Definition concepts.hpp:942
#define TLAPACK_MATRIX
Macro for tlapack::concepts::Matrix compatible with C++17.
Definition concepts.hpp:896
void lacpy(uplo_t uplo, const matrixA_t &A, matrixB_t &B)
Copies a matrix from A to B.
Definition lacpy.hpp:38
#define tlapack_check_false(cond)
Throw an error if cond is true.
Definition exceptionHandling.hpp:113
typename traits::real_type_traits< Types..., int >::type real_type
The common real type of the list of types.
Definition scalar_type_traits.hpp:113