Ice Sheet System Model  4.18
Code documentation
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