1 2 #include <petsc/private/dmdaimpl.h> /*I "petscdmda.h" I*/ 3 4 5 /*@C 6 DMDACreatePF - Creates an appropriately dimensioned PF mathematical function object 7 from a DMDA. 8 9 Collective on DMDA 10 11 Input Parameter: 12 . da - initial distributed array 13 14 Output Parameter: 15 . pf - the mathematical function object 16 17 Level: advanced 18 19 Not supported from Fortran 20 21 .keywords: distributed array, grid function 22 23 .seealso: DMDACreate1d(), DMDACreate2d(), DMDACreate3d(), DMDestroy(), DMCreateGlobalVector() 24 @*/ 25 PetscErrorCode DMDACreatePF(DM da,PF *pf) 26 { 27 PetscErrorCode ierr; 28 DM_DA *dd = (DM_DA*)da->data; 29 30 PetscFunctionBegin; 31 PetscValidHeaderSpecificType(da,DM_CLASSID,1,DMDA); 32 PetscValidPointer(pf,2); 33 ierr = PFCreate(PetscObjectComm((PetscObject)da),da->dim,dd->w,pf);CHKERRQ(ierr); 34 PetscFunctionReturn(0); 35 } 36 37 38