147c6ae99SBarry Smith 2af0996ceSBarry Smith #include <petsc/private/dmdaimpl.h> /*I "petscdmda.h" I*/ 347c6ae99SBarry Smith 447c6ae99SBarry Smith /*@C 5dce8aebaSBarry Smith DMDACreatePF - Creates an appropriately dimensioned `PF` mathematical function object 6*20f4b53cSBarry Smith from a `DMDA`. 747c6ae99SBarry Smith 8*20f4b53cSBarry Smith Collective; No Fortran Support 947c6ae99SBarry Smith 1047c6ae99SBarry Smith Input Parameter: 1147c6ae99SBarry Smith . da - initial distributed array 1247c6ae99SBarry Smith 1347c6ae99SBarry Smith Output Parameter: 1447c6ae99SBarry Smith . pf - the mathematical function object 1547c6ae99SBarry Smith 1647c6ae99SBarry Smith Level: advanced 1747c6ae99SBarry Smith 18dce8aebaSBarry Smith .seealso: `DM`, `PF`, `DMDA`, `DMDACreate1d()`, `DMDACreate2d()`, `DMDACreate3d()`, `DMDestroy()`, `DMCreateGlobalVector()` 1947c6ae99SBarry Smith @*/ 20d71ae5a4SJacob Faibussowitsch PetscErrorCode DMDACreatePF(DM da, PF *pf) 21d71ae5a4SJacob Faibussowitsch { 2247c6ae99SBarry Smith DM_DA *dd = (DM_DA *)da->data; 2347c6ae99SBarry Smith 2447c6ae99SBarry Smith PetscFunctionBegin; 25a9a02de4SBarry Smith PetscValidHeaderSpecificType(da, DM_CLASSID, 1, DMDA); 2647c6ae99SBarry Smith PetscValidPointer(pf, 2); 279566063dSJacob Faibussowitsch PetscCall(PFCreate(PetscObjectComm((PetscObject)da), da->dim, dd->w, pf)); 283ba16761SJacob Faibussowitsch PetscFunctionReturn(PETSC_SUCCESS); 2947c6ae99SBarry Smith } 30