147c6ae99SBarry Smith #define PETSCDM_DLL 247c6ae99SBarry Smith 3*e1589f56SBarry Smith #include "private/daimpl.h" /*I "petscdm.h" I*/ 447c6ae99SBarry Smith 59a42bb27SBarry Smith extern PetscErrorCode PETSCDM_DLLEXPORT DMSetUp_DA_1D(DM); 69a42bb27SBarry Smith extern PetscErrorCode PETSCDM_DLLEXPORT DMSetUp_DA_2D(DM); 79a42bb27SBarry Smith extern PetscErrorCode PETSCDM_DLLEXPORT DMSetUp_DA_3D(DM); 847c6ae99SBarry Smith 947c6ae99SBarry Smith #undef __FUNCT__ 109a42bb27SBarry Smith #define __FUNCT__ "DMSetUp_DA" 119a42bb27SBarry Smith PetscErrorCode PETSCDM_DLLEXPORT DMSetUp_DA(DM da) 1247c6ae99SBarry Smith { 1347c6ae99SBarry Smith PetscErrorCode ierr; 14d7bf68aeSBarry Smith DM_DA *dd = (DM_DA*)da->data; 1547c6ae99SBarry Smith 1647c6ae99SBarry Smith PetscFunctionBegin; 1747c6ae99SBarry Smith PetscValidHeaderSpecific(da, DM_CLASSID,1); 18d7bf68aeSBarry Smith if (dd->dim == 1) { 199a42bb27SBarry Smith ierr = DMSetUp_DA_1D(da);CHKERRQ(ierr); 20d7bf68aeSBarry Smith } else if (dd->dim == 2) { 219a42bb27SBarry Smith ierr = DMSetUp_DA_2D(da);CHKERRQ(ierr); 22d7bf68aeSBarry Smith } else if (dd->dim == 3) { 239a42bb27SBarry Smith ierr = DMSetUp_DA_3D(da);CHKERRQ(ierr); 249a42bb27SBarry Smith } else SETERRQ(((PetscObject)da)->comm,PETSC_ERR_SUP,"DMs only supported for 1, 2, and 3d"); 2547c6ae99SBarry Smith PetscFunctionReturn(0); 2647c6ae99SBarry Smith } 2747c6ae99SBarry Smith 28