00001 // $Id: Sacado_Fad_MemPoolManagerImp.hpp,v 1.3 2007/02/22 22:09:33 dmgay Exp $ 00002 // $Source: /space/CVS/Trilinos/packages/sacado/src/Sacado_Fad_MemPoolManagerImp.hpp,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 template <typename T> 00033 inline 00034 Sacado::Fad::MemPoolManager<T>::MemPoolManager(unsigned int nfad) : 00035 num_fad(nfad), 00036 poolMap() 00037 { 00038 } 00039 00040 template <typename T> 00041 inline 00042 Sacado::Fad::MemPoolManager<T>::~MemPoolManager() 00043 { 00044 for (typename MapType::iterator i = poolMap.begin(); 00045 i != poolMap.end(); ++i) 00046 delete i->second; 00047 } 00048 00049 template <typename T> 00050 inline Sacado::Fad::MemPool* 00051 Sacado::Fad::MemPoolManager<T>::getMemoryPool(unsigned int dim) { 00052 00053 // Find the memory pool 00054 typename MapType::iterator i = poolMap.find(dim); 00055 if (i != poolMap.end()) 00056 return i->second; 00057 00058 // Create a new pool 00059 unsigned int pre_alloc = 0; 00060 if (poolMap.begin() != poolMap.end()) 00061 pre_alloc = poolMap.begin()->second->numChunks(); 00062 MemPool* pool = new MemPool(sizeof(T)*dim, num_fad, pre_alloc); 00063 poolMap[dim] = pool; 00064 00065 return pool; 00066 }
1.4.7