Tpetra parallel linear algebra  Version of the Day
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Pages
Tpetra_Details_normImpl.cpp
1 /*
2 // @HEADER
3 // ***********************************************************************
4 //
5 // Tpetra: Templated Linear Algebra Services Package
6 // Copyright (2008) 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 Michael A. Heroux (maherou@sandia.gov)
39 //
40 // ************************************************************************
41 // @HEADER
42 */
43 
44 #include "TpetraCore_config.h"
45 
46 #if defined(HAVE_TPETRA_EXPLICIT_INSTANTIATION)
47 
48 #include "KokkosCompat_ClassicNodeAPI_Wrapper.hpp"
49 #include "Tpetra_Details_normImpl_decl.hpp"
51 #include "TpetraCore_ETIHelperMacros.h"
52 
53 
54 #if defined(HAVE_TPETRA_INST_INT_INT)
55 // don't need to do anything; Scalar=int is already added
56 # define TPETRA_DETAILS_NORMIMPL_INSTANT_INT( NODE )
57 #else
58 # define TPETRA_DETAILS_NORMIMPL_INSTANT_INT( NODE ) \
59  TPETRA_DETAILS_NORMIMPL_INSTANT( int, NODE )
60 #endif
61 
62 namespace Tpetra {
63 
64  TPETRA_ETI_MANGLING_TYPEDEFS()
65 
66  TPETRA_INSTANTIATE_SN_NO_ORDINAL_SCALAR( TPETRA_DETAILS_NORMIMPL_INSTANT )
67  TPETRA_INSTANTIATE_GN( TPETRA_DETAILS_NORMIMPL_INSTANT )
68 #ifndef HAVE_TPETRA_INST_INT_INT
69  TPETRA_INSTANTIATE_N( TPETRA_DETAILS_NORMIMPL_INSTANT_INT )
70 #endif // NOT HAVE_TPETRA_INST_INT_INT
71 
72 #ifdef HAVE_TPETRA_INST_CUDA
73 
74  using cuda_host_mirror_device_type =
75  Kokkos::Device<Kokkos::DefaultHostExecutionSpace,
76  Kokkos::CudaUVMSpace>;
77 
78 #define TPETRA_DETAILS_NORMIMPL_INSTANT_CUDAHOSTMIRROR( S ) \
79  TPETRA_DETAILS_NORMIMPL_INSTANT( S, cuda_host_mirror_device_type )
80 
81  TPETRA_INSTANTIATE_S_NO_ORDINAL_SCALAR( TPETRA_DETAILS_NORMIMPL_INSTANT_CUDAHOSTMIRROR )
82  TPETRA_INSTANTIATE_G( TPETRA_DETAILS_NORMIMPL_INSTANT_CUDAHOSTMIRROR )
83 #if ! defined(HAVE_TPETRA_INST_INT_INT)
84  TPETRA_DETAILS_NORMIMPL_INSTANT_CUDAHOSTMIRROR( int )
85 #endif
86 
87 #endif // HAVE_TPETRA_INST_CUDA
88 
89 } // namespace Tpetra
90 
91 #endif // Whether we should build this specialization
Definition of the Tpetra::Details::normImpl function.