tSNES.cc - pism - [fork] customized build of PISM, the parallel ice sheet model (tillflux branch) (HTM) git clone git://src.adamsgaard.dk/pism (DIR) Log (DIR) Files (DIR) Refs (DIR) LICENSE --- tSNES.cc (1081B) --- 1 /* Copyright (C) 2015, 2016 PISM Authors 2 * 3 * This file is part of PISM. 4 * 5 * PISM is free software; you can redistribute it and/or modify it under the 6 * terms of the GNU General Public License as published by the Free Software 7 * Foundation; either version 3 of the License, or (at your option) any later 8 * version. 9 * 10 * PISM is distributed in the hope that it will be useful, but WITHOUT ANY 11 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 12 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more 13 * details. 14 * 15 * You should have received a copy of the GNU General Public License 16 * along with PISM; if not, write to the Free Software 17 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA 18 */ 19 20 #include "SNES.hh" 21 22 namespace pism { 23 namespace petsc { 24 SNES::SNES(::SNES snes) { 25 m_value = snes; 26 } 27 SNES::SNES() { 28 m_value = NULL; 29 } 30 SNES::~SNES() { 31 if (m_value != NULL) { 32 PetscErrorCode ierr = SNESDestroy(&m_value); CHKERRCONTINUE(ierr); 33 } 34 } 35 } // end of namespace petsc 36 } // end of namespace pism