Esempio n. 1
0
void PETSC_STDCALL   vecvalid_(Vec v,PetscTruth *flg, int *__ierr ){
*__ierr = VecValid(
	(Vec)PetscToPointer((v) ),flg);
}
Esempio n. 2
0
// Safe vector cleanup
void _mydestroy(Vec &v) {
  PetscTruth flg;
  VecValid(v, &flg);
  if (flg) VecDestroy(v);
}