Thyra Package Browser (Single Doxygen Collection)
Version of the Day
Loading...
Searching...
No Matches
adapters
tpetra
src
Thyra_TpetraThyraWrappers.cpp
Go to the documentation of this file.
1
/*
2
// @HEADER
3
// ***********************************************************************
4
//
5
// Thyra: Interfaces and Support for Abstract Numerical Algorithms
6
// Copyright (2004) Sandia Corporation
7
//
8
// Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
9
// license for use of this work by or on behalf of the U.S. Government.
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 Roscoe A. Bartlett (bartlettra@ornl.gov)
39
//
40
// ***********************************************************************
41
// @HEADER
42
*/
43
44
//#include "Thyra_TpetraThyraWrappers.hpp"
45
#include "
Thyra_TpetraThyraWrappers_decl.hpp
"
46
47
48
#include "
Teuchos_DefaultSerialComm.hpp
"
49
#ifdef HAVE_MPI
50
# include "
Teuchos_DefaultMpiComm.hpp
"
51
#endif
52
53
54
Teuchos::RCP<const Teuchos::Comm<Thyra::Ordinal>
>
55
Thyra::convertTpetraToThyraComm
(
const
RCP
<
const
Teuchos::Comm<int>
> &
tpetraComm
)
56
{
57
58
using
Teuchos::rcp_dynamic_cast;
59
60
#ifdef HAVE_MPI
61
const
RCP<const Teuchos::MpiComm<int>
>
tpetraMpiComm
=
62
rcp_dynamic_cast<const Teuchos::MpiComm<int>
>(
tpetraComm
);
63
if
(nonnull(
tpetraMpiComm
)) {
64
return
Teuchos::createMpiComm<Ordinal>
(
tpetraMpiComm
->getRawMpiComm(),
tpetraMpiComm
->getTag());
65
}
66
#endif
// HAVE_MPI
67
68
// Assert conversion to Teuchos::SerialComm as a last resort (or throw)
69
rcp_dynamic_cast<const Teuchos::SerialComm<int>
>(
tpetraComm
,
true
);
70
return
Teuchos::createSerialComm<Ordinal>
();
71
72
// NOTE: Above will throw if the type is not Teuchos::SerialComm. In this
73
// case, the type could not be converted. We need to either get rid of the
74
// Ordinal templating on Comm or we need to use the same ordinal type for
75
// Tpetra and Thyra so this conversion function goes away!
76
77
}
Teuchos_DefaultMpiComm.hpp
Teuchos_DefaultSerialComm.hpp
Thyra_TpetraThyraWrappers_decl.hpp
Teuchos::RCP
Thyra::convertTpetraToThyraComm
RCP< const Teuchos::Comm< Ordinal > > convertTpetraToThyraComm(const RCP< const Teuchos::Comm< int > > &tpetraComm)
Given an Tpetra Teuchos::Comm<int> object, return an equivalent Teuchos::Comm<Ordinal> object.
Definition
Thyra_TpetraThyraWrappers.cpp:55
Generated by
1.10.0