source: issm/trunk/src/c/toolkits/petsc/patches/ISFree.cpp@ 9826

Last change on this file since 9826 was 9826, checked in by Mathieu Morlighem, 14 years ago

Added support for petsc 3.2
File size: 461 bytes
Line 
1/*!\file: ISFree.cpp
2 * \brief wrapper to ISDestroy
3 */
4
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
12/*Petsc includes: */
13#include "petscmat.h"
14#include "petscmat.h"
15#include "petscksp.h"
16
17void ISFree(IS* pis){
18
19 #if _PETSC_MAJOR_ < 3 || (_PETSC_MAJOR_ == 3 && _PETSC_MINOR_ < 2)
20 if(*pis)ISDestroy(*pis);
21 *pis=NULL;
22 #else
23 if(*pis)ISDestroy(pis);
24 *pis=NULL;
25 #endif
26
27}
28
Note: See TracBrowser for help on using the repository browser.