PISM, A Parallel Ice Sheet Model  stable v2.1.1 committed by Constantine Khrulev on 2024-12-04 13:36:58 -0900
SNES.cc
Go to the documentation of this file.
1 /* Copyright (C) 2015, 2016, 2023 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 "pism/util/petscwrappers/SNES.hh"
21 
22 namespace pism {
23 namespace petsc {
24 SNES::SNES(::SNES snes) {
25  m_value = snes;
26 }
28  m_value = NULL;
29 }
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