Ice Sheet System Model
4.18
Code documentation
src
c
toolkits
petsc
patches
KSPFree.cpp
Go to the documentation of this file.
1
5
#ifdef HAVE_CONFIG_H
6
#include <config.h>
7
#else
8
#error "Cannot compile with HAVE_CONFIG_H symbol! run configure first!"
9
#endif
10
11
/*Petsc includes: */
12
#include <petscmat.h>
13
#include <petscvec.h>
14
#include <petscksp.h>
15
16
void
KSPFree
(KSP* pksp){
17
18
#if _PETSC_MAJOR_ < 3 || (_PETSC_MAJOR_ == 3 && _PETSC_MINOR_ < 2)
19
if
(*pksp)KSPDestroy(*pksp);
20
*pksp=NULL;
21
#else
22
if
(*pksp)KSPDestroy(pksp);
23
*pksp=NULL;
24
#endif
25
26
}
KSPFree
void KSPFree(KSP *pksp)
Definition:
KSPFree.cpp:16
Generated on Thu Jul 2 2020 08:09:22 for Ice Sheet System Model by
1.8.19