Repository navigation
Expand file tree
/
Copy pathCSRMatrix.hpp
More file actions
139 lines (121 loc) · 4.18 KB
/
Copy pathCSRMatrix.hpp
File metadata and controls
139 lines (121 loc) · 4.18 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
#ifndef _CSRMatrix_hpp_
#define _CSRMatrix_hpp_
//@HEADER
// ************************************************************************
//
// miniFE: simple finite-element assembly and linear-solve
// Copyright (2006) Sandia Corporation
//
// Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
// license for use of this work by or on behalf of the U.S. Government.
//
// This library is free software; you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as
// published by the Free Software Foundation; either version 2.1 of the
// License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA
// Questions? Contact Michael A. Heroux (maherou@sandia.gov)
//
// ************************************************************************
//@HEADER
#include <cstddef>
#include <vector>
#include <algorithm>
#ifdef HAVE_MPI
#include <mpi.h>
#endif
namespace miniFE {
template<typename Scalar,
typename LocalOrdinal,
typename GlobalOrdinal,
typename ComputeNode>
struct
CSRMatrix {
CSRMatrix(ComputeNode& comp_node)
: has_local_indices(false),
rows(), row_offsets(), row_offsets_external(),
packed_cols(), packed_coefs(),
num_cols(0),
compute_node(comp_node)
#ifdef HAVE_MPI
,external_index(), external_local_index(), elements_to_send(),
neighbors(), recv_length(), send_length(), send_buffer(), request()
#endif
{
}
~CSRMatrix()
{}
typedef Scalar ScalarType;
typedef LocalOrdinal LocalOrdinalType;
typedef GlobalOrdinal GlobalOrdinalType;
typedef ComputeNode ComputeNodeType;
bool has_local_indices;
std::vector<GlobalOrdinal> rows;
std::vector<LocalOrdinal> row_offsets;
std::vector<LocalOrdinal> row_offsets_external;
std::vector<GlobalOrdinal> packed_cols;
std::vector<Scalar> packed_coefs;
LocalOrdinal num_cols;
ComputeNode& compute_node;
#ifdef HAVE_MPI
std::vector<GlobalOrdinal> external_index;
std::vector<GlobalOrdinal> external_local_index;
std::vector<GlobalOrdinal> elements_to_send;
std::vector<int> neighbors;
std::vector<LocalOrdinal> recv_length;
std::vector<LocalOrdinal> send_length;
std::vector<Scalar> send_buffer;
std::vector<MPI_Request> request;
#endif
size_t num_nonzeros() const
{
return row_offsets[row_offsets.size()-1];
}
void reserve_space(unsigned nrows, unsigned ncols_per_row)
{
rows.resize(nrows);
row_offsets.resize(nrows+1);
packed_cols.reserve(nrows * ncols_per_row);
packed_coefs.reserve(nrows * ncols_per_row);
}
void get_row_pointers(GlobalOrdinalType row, size_t& row_length,
GlobalOrdinalType*& cols,
ScalarType*& coefs)
{
ptrdiff_t local_row = -1;
//first see if we can get the local-row index using fast direct lookup:
if (rows.size() >= 1) {
ptrdiff_t idx = row - rows[0];
if (idx < rows.size() && rows[idx] == row) {
local_row = idx;
}
}
//if we didn't get the local-row index using direct lookup, try a
//more expensive binary-search:
if (local_row == -1) {
typename std::vector<GlobalOrdinal>::iterator row_iter =
std::lower_bound(rows.begin(), rows.end(), row);
//if we still haven't found row, it's not local so jump out:
if (row_iter == rows.end() || *row_iter != row) {
row_length = 0;
return;
}
local_row = row_iter - rows.begin();
}
LocalOrdinalType offset = row_offsets[local_row];
row_length = row_offsets[local_row+1] - offset;
cols = &packed_cols[offset];
coefs = &packed_coefs[offset];
}
};
}//namespace miniFE
#endif