00001 // $Id: Sacado_ELRFad_Expression.hpp,v 1.4 2007/11/14 00:18:18 etphipp Exp $ 00002 // $Source: /space/CVS/Trilinos/packages/sacado/src/Sacado_ELRFad_Expression.hpp,v $ 00003 // @HEADER 00004 // *********************************************************************** 00005 // 00006 // Sacado Package 00007 // Copyright (2006) Sandia Corporation 00008 // 00009 // Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation, 00010 // the U.S. Government retains certain rights in this software. 00011 // 00012 // This library is free software; you can redistribute it and/or modify 00013 // it under the terms of the GNU Lesser General Public License as 00014 // published by the Free Software Foundation; either version 2.1 of the 00015 // License, or (at your option) any later version. 00016 // 00017 // This library is distributed in the hope that it will be useful, but 00018 // WITHOUT ANY WARRANTY; without even the implied warranty of 00019 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00020 // Lesser General Public License for more details. 00021 // 00022 // You should have received a copy of the GNU Lesser General Public 00023 // License along with this library; if not, write to the Free Software 00024 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 00025 // USA 00026 // Questions? Contact David M. Gay (dmgay@sandia.gov) or Eric T. Phipps 00027 // (etphipp@sandia.gov). 00028 // 00029 // *********************************************************************** 00030 // 00031 // The forward-mode AD classes in Sacado are a derivative work of the 00032 // expression template classes in the Fad package by Nicolas Di Cesare. 00033 // The following banner is included in the original Fad source code: 00034 // 00035 // ************ DO NOT REMOVE THIS BANNER **************** 00036 // 00037 // Nicolas Di Cesare <Nicolas.Dicesare@ann.jussieu.fr> 00038 // http://www.ann.jussieu.fr/~dicesare 00039 // 00040 // CEMRACS 98 : C++ courses, 00041 // templates : new C++ techniques 00042 // for scientific computing 00043 // 00044 //******************************************************** 00045 // 00046 // A short implementation ( not all operators and 00047 // functions are overloaded ) of 1st order Automatic 00048 // Differentiation in forward mode (FAD) using 00049 // EXPRESSION TEMPLATES. 00050 // 00051 //******************************************************** 00052 // @HEADER 00053 00054 #ifndef SACADO_ELRFAD_EXPRESSION_HPP 00055 #define SACADO_ELRFAD_EXPRESSION_HPP 00056 00057 #include "Sacado_Traits.hpp" 00058 00059 namespace Sacado { 00060 00061 namespace ELRFad { 00062 00064 00068 template <typename A, typename B> struct ExprPromote {}; 00069 00071 template <typename A> struct ExprPromote<A,A> { 00072 typedef A type; 00073 }; 00074 00076 00080 template <typename ExprT> 00081 class Expr {}; 00082 00084 00087 template <typename ConstT> 00088 class ConstExpr { 00089 00090 public: 00091 00093 typedef ConstT value_type; 00094 00096 typedef ConstT base_expr_type; 00097 00099 static const int num_args = 0; 00100 00102 ConstExpr(const ConstT& constant) : constant_(constant) {} 00103 00105 int size() const { return 0; } 00106 00108 value_type val() const { return constant_; } 00109 00111 void computePartials(const value_type& bar, 00112 value_type partials[]) const {} 00113 00115 void getTangents(int i, value_type dots[]) const {} 00116 00118 template <int Arg> 00119 value_type getTangent(int i) const { return 0.0; } 00120 00122 template <int Arg> 00123 bool isActive() const { return false; } 00124 00125 protected: 00126 00128 const ConstT& constant_; 00129 00130 }; // class ConstExpr 00131 00132 template <typename T> struct ExprConstRef { 00133 typedef const T& type; 00134 }; 00135 template <typename T> struct ExprConstRef< ConstExpr<T> > { 00136 typedef const ConstExpr<T> type; 00137 }; 00138 00139 } // namespace ELRFad 00140 00141 } // namespace Sacado 00142 00143 #endif // SACADO_ELRFAD_EXPRESSION_HPP
1.4.7