3 #include "Teuchos_RCP.hpp"
4 #include "Teuchos_Comm.hpp"
6 #include "Tpetra_CrsGraph.hpp"
7 #include "Tpetra_CrsMatrix.hpp"
11 #include "KokkosKernels_Utils.hpp"
12 #include "KokkosSparse_Utils.hpp"
22 template <
typename LO,
typename GO,
typename NO,
typename list_of_colors_t>
25 const Tpetra::CrsGraph<LO, GO, NO> &graph,
26 const list_of_colors_t &list_of_colors)
28 typedef typename list_of_colors_t::execution_space execution_space;
30 Teuchos::RCP<const Teuchos::Comm<int>> comm = graph.getRowMap()->getComm();
31 const int rank = comm->getRank();
32 auto local_graph = graph.getLocalGraphDevice();
33 const size_t num_rows = graph.getLocalNumRows();
34 size_t num_conflict = 0;
36 Kokkos::parallel_reduce(
37 "check_coloring()", Kokkos::RangePolicy<execution_space>(0, num_rows),
38 KOKKOS_LAMBDA(
const size_t row,
size_t &lcl_conflict) {
39 const size_t entry_begin = local_graph.row_map(row);
40 const size_t entry_end = local_graph.row_map(row + 1);
41 for (
size_t entry = entry_begin; entry < entry_end; entry++)
43 const size_t col = local_graph.entries(entry);
44 for (
size_t entry2 = entry_begin; entry2 < entry_end; ++entry2)
46 const size_t col2 = local_graph.entries(entry2);
47 if (col != col2 && list_of_colors[col] == list_of_colors[col2])
51 "proc = %i : Invalid coloring! Local row %zu"
52 " and columns %zu, %zu have the same color %i\n",
53 rank, row, col, col2, list_of_colors[col]);
60 size_t global_num_conflict = 0;
61 Teuchos::reduceAll(*comm, Teuchos::REDUCE_SUM, 1, &num_conflict,
62 &global_num_conflict);
64 return global_num_conflict == 0;
68 template <
typename LocalCrsGraphType>
71 const LocalCrsGraphType &local_graph,
72 const size_t num_cols)
74 using KokkosSparse::Impl::transpose_graph;
76 typedef LocalCrsGraphType graph_t;
77 typedef typename graph_t::row_map_type lno_view_t;
78 typedef typename graph_t::entries_type lno_nnz_view_t;
79 typedef typename lno_view_t::non_const_type trans_row_view_t;
80 typedef typename lno_nnz_view_t::non_const_type trans_nnz_view_t;
81 typedef typename lno_view_t::execution_space exec_t;
84 const size_t num_rows = local_graph.row_map.extent(0) - 1;
85 const size_t num_nnz = local_graph.entries.extent(0);
87 trans_row_view_t trans_row_map(
"trans_row_map", num_cols + 1);
88 trans_nnz_view_t trans_entries(
"trans_entries", num_nnz);
90 transpose_graph<lno_view_t, lno_nnz_view_t, trans_row_view_t,
91 trans_nnz_view_t, trans_row_view_t, exec_t>(
92 num_rows, num_cols, local_graph.row_map, local_graph.entries,
93 trans_row_map, trans_entries);
95 graph_t local_trans_graph(trans_entries, trans_row_map);
97 return local_trans_graph;
115 template <
typename LO,
typename GO,
typename NO>
116 Teuchos::RCP<Tpetra::CrsGraph<LO, GO, NO>>
122 typedef Tpetra::CrsGraph<LO, GO, NO> graph_t;
123 typedef typename graph_t::local_graph_device_type local_graph_t;
126 local_graph_t local_graph = graph.getLocalGraphDevice();
127 local_graph_t local_trans_graph =
129 graph.getLocalNumCols());
144 RCP<graph_t> trans_graph_shared = rcp(
new graph_t(
145 local_trans_graph, graph.getColMap(), graph.getRowMap(),
146 graph.getRangeMap(), graph.getRowMap()));
148 RCP<graph_t> trans_graph;
152 RCP<const Tpetra::Export<LO, GO, NO>> exporter =
153 trans_graph_shared->getExporter();
154 if (exporter == Teuchos::null)
155 trans_graph = trans_graph_shared;
158 RCP<const graph_t> trans_graph_shared_const = trans_graph_shared;
159 trans_graph = Tpetra::exportAndFillCompleteCrsGraph(
160 trans_graph_shared_const, *exporter,
161 Teuchos::null, Teuchos::null, Teuchos::null);
168 template <
typename SC,
typename LO,
typename GO,
typename NO>
169 Teuchos::RCP<Tpetra::CrsGraph<LO, GO, NO>>
176 template <
typename SC,
typename LO,
typename GO,
typename NO>
177 Teuchos::RCP<Tpetra::CrsGraph<LO, GO, NO>>
LocalCrsGraphType compute_local_transpose_graph(const LocalCrsGraphType &local_graph, const size_t num_cols)
Teuchos::RCP< Tpetra::CrsGraph< LO, GO, NO > > compute_transpose_graph(const Tpetra::CrsGraph< LO, GO, NO > &graph)
bool check_coloring(const Tpetra::CrsGraph< LO, GO, NO > &graph, const list_of_colors_t &list_of_colors)