SundanceVectorAssemblyKernel.cpp
Go to the documentation of this file.
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 "SundanceOut.hpp"
00032 #include "PlayaTabs.hpp"
00033 #include "SundanceVectorAssemblyKernel.hpp"
00034 #include "Teuchos_Time.hpp"
00035 #include "Teuchos_TimeMonitor.hpp"
00036 
00037 
00038 using namespace Sundance;
00039 using namespace Sundance;
00040 using namespace Sundance;
00041 using namespace Teuchos;
00042 using namespace Playa;
00043 using std::setw;
00044 using std::endl;
00045       
00046 VectorAssemblyKernel::VectorAssemblyKernel(
00047   const Array<RCP<DOFMapBase> >& dofMap,
00048   const Array<RCP<Array<int> > >& isBCIndex,
00049   const Array<int>& lowestLocalIndex,
00050   Array<Vector<double> >& b,
00051   bool partitionBCs,
00052   int verb
00053   )
00054   : VectorFillingAssemblyKernel(dofMap, isBCIndex, lowestLocalIndex,
00055     b, partitionBCs, verb)
00056 {}
00057 
00058 
00059 void VectorAssemblyKernel::fill(
00060   bool isBC, 
00061   const IntegralGroup& group,
00062   const RCP<Array<double> >& localValues) 
00063 {
00064   Tabs tab0;
00065   SUNDANCE_MSG1(verb(), tab0 << "in VectorAssemblyKernel::fill()");
00066 
00067   TEUCHOS_TEST_FOR_EXCEPT(!group.isOneForm());
00068 
00069   bool useCofacets = group.usesMaximalCofacets();
00070 
00071   if (group.isOneForm())
00072   {
00073     insertLocalVectorBatch(isBC, useCofacets, 
00074       group.testID(), group.testBlock(), group.mvIndices(),
00075       *localValues);
00076   }
00077 
00078   SUNDANCE_MSG1(verb(), tab0 << "done VectorAssemblyKernel::fill()");
00079 }
00080   
00081 
00082 void VectorAssemblyKernel:: prepareForWorkSet(
00083   const Array<Set<int> >& requiredTests,
00084   const Array<Set<int> >& /* requiredUnks */,
00085   RCP<StdFwkEvalMediator> mediator)
00086 {
00087   Tabs tab0;
00088   SUNDANCE_MSG1(verb(), tab0 
00089     << "in VectorAssemblyKernel::prepareForWorkSet()");
00090   IntegrationCellSpecifier intCellSpec = mediator->integrationCellSpec();
00091   buildLocalDOFMaps(mediator, intCellSpec, requiredTests);
00092   SUNDANCE_MSG1(verb(), tab0 << "done VectorAssemblyKernel::prepareForWorkSet()");
00093 }

Site Contact