Example #1
0
PetscErrorCode DMCreateCoordinateDM_DA(DM dm, DM *cdm)
{
  PetscErrorCode ierr;
  PetscFunctionBegin;
  ierr = DMDAGetReducedDMDA(dm,dm->dim,cdm);CHKERRQ(ierr);
  PetscFunctionReturn(0);
}
Example #2
0
PETSC_EXTERN void PETSC_STDCALL  dmdagetreduceddmda_(DM da,PetscInt *nfields,DM *nda, int *__ierr ){
*__ierr = DMDAGetReducedDMDA(
	(DM)PetscToPointer((da) ),*nfields,nda);
}