2: #include <petsc/private/dmdaimpl.h>

  4: /*@C
  5:    DMDACreatePF - Creates an appropriately dimensioned PF mathematical function object
  6:       from a DMDA.

  8:    Collective on da

 10:    Input Parameter:
 11: .  da - initial distributed array

 13:    Output Parameter:
 14: .  pf - the mathematical function object

 16:    Level: advanced

 18:    Not supported from Fortran

 20: .seealso: DMDACreate1d(), DMDACreate2d(), DMDACreate3d(), DMDestroy(), DMCreateGlobalVector()
 21: @*/
 22: PetscErrorCode  DMDACreatePF(DM da,PF *pf)
 23: {
 25:   DM_DA          *dd = (DM_DA*)da->data;

 30:   PFCreate(PetscObjectComm((PetscObject)da),da->dim,dd->w,pf);
 31:   return(0);
 32: }