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