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 DMDA

 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: .keywords:  distributed array, grid function

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

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