Actual source code: dapf.c

      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: {
     24:   DM_DA          *dd = (DM_DA*)da->data;

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