00001 // $Id: Sacado_ScalarParameterLibrary.cpp,v 1.2 2007/06/23 00:46:31 etphipp Exp $ 00002 // $Source: /space/CVS/Trilinos/packages/sacado/src/parameter/Sacado_ScalarParameterLibrary.cpp,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 // @HEADER 00031 00032 #include "Sacado_ScalarParameterLibrary.hpp" 00033 00034 void 00035 Sacado::ScalarParameterLibrary:: 00036 setRealValueForAllTypes(const std::string& name, double value) 00037 { 00038 FamilyMap::iterator it = library.find(name); 00039 TEST_FOR_EXCEPTION( 00040 it == library.end(), 00041 std::logic_error, 00042 std::string("Sacado::ScalararameterLibrary::setRealValueForAllTypes(): ") 00043 + "Invalid parameter family " + name); 00044 (*it).second->setRealValueForAllTypes(value); 00045 } 00046 00047 void 00048 Sacado::ScalarParameterLibrary:: 00049 fillVector(const Teuchos::Array<std::string>& names, 00050 Sacado::ScalarParameterVector& pv) 00051 { 00052 FamilyMap::iterator it; 00053 00054 // Fill in parameters 00055 for (unsigned int i=0; i<names.size(); i++) { 00056 it = library.find(names[i]); 00057 TEST_FOR_EXCEPTION( 00058 it == library.end(), 00059 std::logic_error, 00060 std::string("Sacado::ParameterLibraryBase::fillVector(): ") 00061 + "Invalid parameter family " + names[i]); 00062 pv.addParam((*it).second, 0.0); 00063 pv[i].baseValue = (*it).second->getValue<double>(); 00064 } 00065 }
1.4.7