/*@C
DMRedundantCreate - Creates a DM object, used to manage data for dense globally coupled variables
Collective on MPI_Comm
Input Parameter:
+ comm - the processors that will share the global vector
. rank - rank to own the redundant values
- N - total number of degrees of freedom
Output Parameters:
. red - the redundant DM
Level: advanced
.seealso DMDestroy(), DMCreateGlobalVector(), DMCreateMatrix(), DMCompositeAddDM(), DMREDUNDANT, DMSetType(), DMRedundantSetSize(), DMRedundantGetSize()
@*/
PetscErrorCode DMRedundantCreate(MPI_Comm comm,PetscInt rank,PetscInt N,DM *dm)
{
PetscErrorCode ierr;
PetscFunctionBegin;
PetscValidPointer(dm,2);
ierr = DMCreate(comm,dm);CHKERRQ(ierr);
ierr = DMSetType(*dm,DMREDUNDANT);CHKERRQ(ierr);
ierr = DMRedundantSetSize(*dm,rank,N);CHKERRQ(ierr);
ierr = DMSetUp(*dm);CHKERRQ(ierr);
PetscFunctionReturn(0);
}
PETSC_EXTERN void PETSC_STDCALL dmredundantsetsize_(DM dm,PetscInt *rank,PetscInt *N, int *__ierr ){
*__ierr = DMRedundantSetSize(
(DM)PetscToPointer((dm) ),*rank,*N);
}
