00001 /* @HEADER@ */ 00002 // ************************************************************************ 00003 // 00004 // Sundance 00005 // Copyright (2005) Sandia Corporation 00006 // 00007 // Copyright (year first published) Sandia Corporation. Under the terms 00008 // of Contract DE-AC04-94AL85000 with Sandia Corporation, the U.S. Government 00009 // retains certain rights in this software. 00010 // 00011 // This library is free software; you can redistribute it and/or modify 00012 // it under the terms of the GNU Lesser General Public License as 00013 // published by the Free Software Foundation; either version 2.1 of the 00014 // License, or (at your option) any later version. 00015 // 00016 // This library is distributed in the hope that it will be useful, but 00017 // WITHOUT ANY WARRANTY; without even the implied warranty of 00018 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00019 // Lesser General Public License for more details. 00020 // 00021 // You should have received a copy of the GNU Lesser General Public 00022 // License along with this library; if not, write to the Free Software 00023 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 00024 // USA 00025 // Questions? Contact Kevin Long (krlong@sandia.gov), 00026 // Sandia National Laboratories, Livermore, California, USA 00027 // 00028 // ************************************************************************ 00029 /* @HEADER@ */ 00030 00031 #include "SundanceDerivative.hpp" 00032 00033 using namespace Sundance; 00034 using namespace Sundance; 00035 using namespace Teuchos; 00036 00037 Derivative::Derivative(int direction) 00038 : ScalarExpr(), m_() 00039 { 00040 m_[direction] = 1; 00041 } 00042 00043 bool Derivative::lessThan(const ScalarExpr* other) const 00044 { 00045 const Derivative* d = dynamic_cast<const Derivative*>(other); 00046 TEUCHOS_TEST_FOR_EXCEPTION(d==0, std::logic_error, "cast should never fail at this point"); 00047 return multiIndex() < d->multiIndex(); 00048 } 00049 00050 00051 std::ostream& Derivative::toText(std::ostream& os, bool /* paren */) const 00052 { 00053 os << "D[" << m_.toString() << "]"; 00054 return os; 00055 } 00056 00057 00058 XMLObject Derivative::toXML() const 00059 { 00060 XMLObject rtn("Derivative"); 00061 rtn.addAttribute("m", m_.toString()); 00062 return rtn; 00063 } 00064 00065