MueLu
Version of the Day
Main Page
Modules
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
MueLu_UtilitiesBase_def.hpp
Go to the documentation of this file.
1
// @HEADER
2
//
3
// ***********************************************************************
4
//
5
// MueLu: A package for multigrid based preconditioning
6
// Copyright 2012 Sandia Corporation
7
//
8
// Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
9
// the U.S. Government retains certain rights in this software.
10
//
11
// Redistribution and use in source and binary forms, with or without
12
// modification, are permitted provided that the following conditions are
13
// met:
14
//
15
// 1. Redistributions of source code must retain the above copyright
16
// notice, this list of conditions and the following disclaimer.
17
//
18
// 2. Redistributions in binary form must reproduce the above copyright
19
// notice, this list of conditions and the following disclaimer in the
20
// documentation and/or other materials provided with the distribution.
21
//
22
// 3. Neither the name of the Corporation nor the names of the
23
// contributors may be used to endorse or promote products derived from
24
// this software without specific prior written permission.
25
//
26
// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
27
// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29
// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
30
// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
31
// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
32
// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
33
// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
34
// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
35
// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
36
// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
37
//
38
// Questions? Contact
39
// Jonathan Hu (jhu@sandia.gov)
40
// Andrey Prokopenko (aprokop@sandia.gov)
41
// Ray Tuminaro (rstumin@sandia.gov)
42
//
43
// ***********************************************************************
44
//
45
// @HEADER
46
#ifndef MUELU_UTILITIESBASE_DEF_HPP
47
#define MUELU_UTILITIESBASE_DEF_HPP
48
49
#include "
MueLu_ConfigDefs.hpp
"
50
51
#include "
MueLu_UtilitiesBase_decl.hpp
"
52
53
namespace
MueLu {
54
55
/*template <class Scalar, class LocalOrdinal, class GlobalOrdinal, class Node>
56
Teuchos::ArrayRCP<Scalar>
57
UtilitiesBase<Scalar, LocalOrdinal, GlobalOrdinal, Node>::
58
GetMatrixDiagonal(const Xpetra::Matrix<Scalar,LocalOrdinal,GlobalOrdinal,Node>& A) {
59
size_t numRows = A.getRowMap()->getNodeNumElements();
60
Teuchos::ArrayRCP<Scalar> diag(numRows);
61
Teuchos::ArrayView<const LocalOrdinal> cols;
62
Teuchos::ArrayView<const Scalar> vals;
63
for (size_t i = 0; i < numRows; ++i) {
64
A.getLocalRowView(i, cols, vals);
65
LocalOrdinal j = 0;
66
for (; j < cols.size(); ++j) {
67
if (Teuchos::as<size_t>(cols[j]) == i) {
68
diag[i] = vals[j];
69
break;
70
}
71
}
72
if (j == cols.size()) {
73
// Diagonal entry is absent
74
diag[i] = Teuchos::ScalarTraits<Scalar>::zero();
75
}
76
}
77
return diag;
78
}*/
79
80
}
//namespace MueLu
81
82
#define MUELU_UTILITIESBASE_SHORT
83
#endif // MUELU_UTILITIESBASE_DEF_HPP
84
85
// LocalWords: LocalOrdinal
MueLu_UtilitiesBase_decl.hpp
MueLu_ConfigDefs.hpp
src
Utils
MueLu_UtilitiesBase_def.hpp
Generated on Fri Jun 5 2020 09:55:26 for MueLu by
1.8.5