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 20 .keywords: distributed array, grid function 21 22 .seealso: DMDACreate1d(), DMDACreate2d(), DMDACreate3d(), DMDestroy(), DMCreateGlobalVector() 23 @*/ 24 PetscErrorCode DMDACreatePF(DM da,PF *pf) 25 { 26 PetscErrorCode ierr; 27 DM_DA *dd = (DM_DA*)da->data; 28 29 PetscFunctionBegin; 30 PetscValidHeaderSpecific(da,DM_CLASSID,1); 31 PetscValidPointer(pf,2); 32 ierr = PFCreate(PetscObjectComm((PetscObject)da),da->dim,dd->w,pf);CHKERRQ(ierr); 33 PetscFunctionReturn(0); 34 } 35 36 37