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 |
|
---|
17 | void 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.