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