Actual source code: dapf.c
  1: #include <petsc/private/dmdaimpl.h>
  3: /*@C
  4:   DMDACreatePF - Creates an appropriately dimensioned `PF` mathematical function object
  5:   from a `DMDA`.
  7:   Collective; No Fortran Support
  9:   Input Parameter:
 10: . da - initial distributed array
 12:   Output Parameter:
 13: . pf - the mathematical function object
 15:   Level: advanced
 17: .seealso: `DM`, `PF`, `DMDA`, `DMDACreate1d()`, `DMDACreate2d()`, `DMDACreate3d()`, `DMDestroy()`, `DMCreateGlobalVector()`
 18: @*/
 19: PetscErrorCode DMDACreatePF(DM da, PF *pf)
 20: {
 21:   DM_DA *dd = (DM_DA *)da->data;
 23:   PetscFunctionBegin;
 25:   PetscAssertPointer(pf, 2);
 26:   PetscCall(PFCreate(PetscObjectComm((PetscObject)da), da->dim, dd->w, pf));
 27:   PetscFunctionReturn(PETSC_SUCCESS);
 28: }