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


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

  9:    Collective on da

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

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

 17:    Level: advanced

 19:    Not supported from Fortran

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

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