1c4762a1bSJed Brown const char help[] = "Test memory allocation in DMPlex refinement.\n\n";
2c4762a1bSJed Brown
3c4762a1bSJed Brown #include <petsc.h>
4c4762a1bSJed Brown
main(int argc,char ** argv)5d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv)
6d71ae5a4SJacob Faibussowitsch {
7b5a892a1SMatthew G. Knepley DM dm;
8c4762a1bSJed Brown
9327415f7SBarry Smith PetscFunctionBeginUser;
109566063dSJacob Faibussowitsch PetscCall(PetscInitialize(&argc, &argv, NULL, help));
119566063dSJacob Faibussowitsch PetscCall(DMCreate(PETSC_COMM_WORLD, &dm));
129566063dSJacob Faibussowitsch PetscCall(PetscObjectSetName((PetscObject)dm, "BaryDM"));
139566063dSJacob Faibussowitsch PetscCall(DMSetType(dm, DMPLEX));
149566063dSJacob Faibussowitsch PetscCall(DMSetFromOptions(dm));
159566063dSJacob Faibussowitsch PetscCall(DMViewFromOptions(dm, NULL, "-dm_view"));
169566063dSJacob Faibussowitsch //PetscCall(DMPlexSetRefinementUniform(dm, PETSC_TRUE));
179566063dSJacob Faibussowitsch //PetscCall(DMRefine(dm, comm, &rdm));
189566063dSJacob Faibussowitsch PetscCall(PetscObjectSetName((PetscObject)dm, "RefinedDM"));
199566063dSJacob Faibussowitsch PetscCall(PetscObjectSetOptionsPrefix((PetscObject)dm, "ref_"));
209566063dSJacob Faibussowitsch PetscCall(DMSetFromOptions(dm));
219566063dSJacob Faibussowitsch PetscCall(DMViewFromOptions(dm, NULL, "-dm_view"));
229566063dSJacob Faibussowitsch PetscCall(DMDestroy(&dm));
239566063dSJacob Faibussowitsch PetscCall(PetscFinalize());
24b122ec5aSJacob Faibussowitsch return 0;
25c4762a1bSJed Brown }
26c4762a1bSJed Brown
27c4762a1bSJed Brown /*TEST
28c4762a1bSJed Brown
29c4762a1bSJed Brown test:
30*914717cbSPierre Jolivet requires: datafilespath hdf5 double !complex !defined(PETSC_USE_64BIT_INDICES)
31*914717cbSPierre Jolivet args: -dm_plex_filename ${DATAFILESPATH}/meshes/hdf5-petsc/petsc-v3.16.0/v1.0.0/barycentricallyrefinedcube.h5 -dm_view ascii::ASCII_INFO_DETAIL -ref_dm_refine 1 -ref_dm_view ascii::ASCII_INFO_DETAIL
32c4762a1bSJed Brown
33c4762a1bSJed Brown TEST*/
34