/usr/include/trilinos/Sacado_ELRFad_ViewFadTraits.hpp is in libtrilinos-sacado-dev 12.12.1-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | // @HEADER
// ***********************************************************************
//
// Sacado Package
// Copyright (2006) Sandia Corporation
//
// Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
// the U.S. Government retains certain rights in this software.
//
// 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
// USA
// Questions? Contact David M. Gay (dmgay@sandia.gov) or Eric T. Phipps
// (etphipp@sandia.gov).
//
// ***********************************************************************
//
// The forward-mode AD classes in Sacado are a derivative work of the
// expression template classes in the Fad package by Nicolas Di Cesare.
// The following banner is included in the original Fad source code:
//
// ************ DO NOT REMOVE THIS BANNER ****************
//
// Nicolas Di Cesare <Nicolas.Dicesare@ann.jussieu.fr>
// http://www.ann.jussieu.fr/~dicesare
//
// CEMRACS 98 : C++ courses,
// templates : new C++ techniques
// for scientific computing
//
//********************************************************
//
// NumericalTraits class to illustrate TRAITS
//
//********************************************************
// @HEADER
#ifndef SACADO_ELRFAD_VIEWFADTRAITS_HPP
#define SACADO_ELRFAD_VIEWFADTRAITS_HPP
#include "Sacado_Traits.hpp"
// Forward declarations
namespace Sacado {
namespace ELRFad {
template <typename T,unsigned,unsigned,typename> class ViewFad;
}
}
namespace Sacado {
//! Specialization of %Promote to ViewFad types
SACADO_VFAD_PROMOTE_SPEC( ELRFad )
//! Specialization of %ScalarType to ViewFad types
template <typename ValueT, unsigned Size, unsigned Stride, typename Base>
struct ScalarType< ELRFad::ViewFad<ValueT,Size,Stride,Base> > {
typedef typename ELRFad::ViewFad<ValueT,Size,Stride,Base>::ScalarT type;
};
//! Specialization of %ValueType to ViewFad types
template <typename ValueT, unsigned Size, unsigned Stride, typename Base>
struct ValueType< ELRFad::ViewFad<ValueT,Size,Stride,Base> > {
typedef ValueT type;
};
//! Specialization of %IsADType to ViewFad types
template <typename ValueT, unsigned Size, unsigned Stride, typename Base>
struct IsADType< ELRFad::ViewFad<ValueT,Size,Stride,Base> > {
static const bool value = true;
};
//! Specialization of %IsADType to ViewFad types
template <typename ValueT, unsigned Size, unsigned Stride, typename Base>
struct IsScalarType< ELRFad::ViewFad<ValueT,Size,Stride,Base> > {
static const bool value = false;
};
//! Specialization of %Value to ViewFad types
template <typename ValueT, unsigned Size, unsigned Stride, typename Base>
struct Value< ELRFad::ViewFad<ValueT,Size,Stride,Base> > {
typedef typename ValueType< ELRFad::ViewFad<ValueT,Size,Stride,Base> >::type value_type;
KOKKOS_INLINE_FUNCTION
static const value_type& eval(const ELRFad::ViewFad<ValueT,Size,Stride,Base>& x) {
return x.val(); }
};
//! Specialization of %ScalarValue to ViewFad types
template <typename ValueT, unsigned Size, unsigned Stride, typename Base>
struct ScalarValue< ELRFad::ViewFad<ValueT,Size,Stride,Base> > {
typedef typename ValueType< ELRFad::ViewFad<ValueT,Size,Stride,Base> >::type value_type;
typedef typename ScalarType< ELRFad::ViewFad<ValueT,Size,Stride,Base> >::type scalar_type;
KOKKOS_INLINE_FUNCTION
static const scalar_type& eval(const ELRFad::ViewFad<ValueT,Size,Stride,Base>& x) {
return ScalarValue<value_type>::eval(x.val()); }
};
//! Specialization of %StringName to ViewFad types
template <typename ValueT, unsigned Size, unsigned Stride, typename Base>
struct StringName< ELRFad::ViewFad<ValueT,Size,Stride,Base> > {
static std::string eval() {
return std::string("Sacado::ELRFad::ViewFad< ") +
StringName<ValueT>::eval() + " >"; }
};
//! Specialization of %IsEqual to ViewFad types
template <typename ValueT, unsigned Size, unsigned Stride, typename Base>
struct IsEqual< ELRFad::ViewFad<ValueT,Size,Stride,Base> > {
KOKKOS_INLINE_FUNCTION
static bool eval(const ELRFad::ViewFad<ValueT,Size,Stride,Base>& x,
const ELRFad::ViewFad<ValueT,Size,Stride,Base>& y) {
return x.isEqualTo(y);
}
};
//! Specialization of %IsStaticallySized to ViewFad types
template <typename ValueT, unsigned Size, unsigned Stride, typename Base>
struct IsStaticallySized< ELRFad::ViewFad<ValueT,Size,Stride,Base> > {
static const bool value = false;
};
} // namespace Sacado
// ViewFad is not a proper scalar type, so we don't define any of the
// Teuchos traits classes
#endif // SACADO_ELRFAD_VIEWFADTRAITS_HPP
|