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 "SundanceTestFunction.hpp" 00032 #include "SundanceOut.hpp" 00033 #include "PlayaTabs.hpp" 00034 00035 using namespace Sundance; 00036 using namespace Sundance; 00037 using namespace Sundance; 00038 using namespace Sundance; 00039 using namespace Sundance; 00040 using namespace Teuchos; 00041 00042 00043 TestFunction::TestFunction(const BasisFamily& basis, const std::string& name) 00044 : TestFunctionStub(name, vectorDimStructure(basis)[0].first, 00045 vectorDimStructure(basis)[0].second, 00046 rcp(new TestFunctionData(tuple(basis)))), 00047 FuncWithBasis(basis) 00048 {;} 00049 00050 00051 00052 TestFunction::TestFunction(const BasisFamily& basis, 00053 const SpectralBasis& spBasis, 00054 const std::string& name) 00055 : TestFunctionStub(name, spBasis, vectorDimStructure(basis)[0].first, 00056 vectorDimStructure(basis)[0].second, 00057 rcp(new TestFunctionData(replicate(basis, spBasis.nterms())))), 00058 FuncWithBasis(replicate(basis, spBasis.nterms())) 00059 {;} 00060 00061