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: }