FEApp_DakotaPCE.cpp

Go to the documentation of this file.
00001 // $Id$ 
00002 // $Source$ 
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 "FEApp_DakotaPCE.hpp"
00033 #include "DakotaIterator.H"
00034 
00035 // Dakota driver when linking in as a library 
00036 // Assumes MPI_COMM_WORLD both for Dakota and the model evaluation
00037 FEApp::DakotaPCE::
00038 DakotaPCE(const char* dakota_in,  
00039           const char* dakota_out,
00040           const char* dakota_err,
00041           const char* dakota_restart_out)
00042   :  
00043   parallel_lib(), 
00044   problem_db(parallel_lib)
00045 {
00046   parallel_lib.specify_outputs_restart(dakota_out, dakota_err, NULL,
00047                                        dakota_restart_out, 0);
00048   problem_db.manage_inputs(dakota_in);
00049   problem_db.check_input();
00050 
00051   // instantiate the strategy
00052   selected_strategy = Strategy(problem_db);
00053 }
00054 
00055 MPI_Comm 
00056 FEApp::DakotaPCE::
00057 getAnalysisComm()
00058 {
00059   Model& first_model = *(problem_db.model_list().begin());
00060   MPI_Comm analysis_comm =
00061      first_model.parallel_configuration_iterator()->ea_parallel_level().server_intra_communicator();
00062 
00063   return analysis_comm;
00064 }
00065 
00066 Dakota::ProblemDescDB& 
00067 FEApp::DakotaPCE::
00068 getProblemDescDB()
00069 {
00070   return problem_db;
00071 }
00072 
00073 Dakota::Model 
00074 FEApp::DakotaPCE::
00075 getDakotaModel()
00076 {
00077   //return *(problem_db.model_list().begin());
00078   return problem_db.iterator_list().begin()->iterated_model();
00079 }
00080   
00081 void 
00082 FEApp::DakotaPCE::
00083 run(Teuchos::RCP<FEApp::DakotaElementInterface> elemInterface)
00084 {
00085 
00086   Dakota::Model& first_model = *(problem_db.model_list().begin());
00087   Dakota::Interface& interface  = first_model.interface();
00088 
00089   // Pass a pointer to a Dakota::DirectApplicInterface
00090   interface.assign_rep(elemInterface.get(), false);
00091 
00092   selected_strategy.run_strategy();
00093 }

Generated on Wed May 12 21:39:32 2010 for Sacado Package Browser (Single Doxygen Collection) by  doxygen 1.4.7