1c4762a1bSJed Brown static char help[] = "Test basic DMProduct operations.\n\n";
2c4762a1bSJed Brown
3c4762a1bSJed Brown #include <petscdm.h>
4c4762a1bSJed Brown #include <petscdmproduct.h>
5c4762a1bSJed Brown
main(int argc,char ** argv)6d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv)
7d71ae5a4SJacob Faibussowitsch {
8c4762a1bSJed Brown DM dm;
9c4762a1bSJed Brown PetscInt dim;
10c4762a1bSJed Brown
11327415f7SBarry Smith PetscFunctionBeginUser;
12c8025a54SPierre Jolivet PetscCall(PetscInitialize(&argc, &argv, NULL, help));
13c4762a1bSJed Brown dim = 1;
149566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-dim", &dim, NULL));
159566063dSJacob Faibussowitsch PetscCall(DMCreate(PETSC_COMM_WORLD, &dm));
169566063dSJacob Faibussowitsch PetscCall(DMSetType(dm, DMPRODUCT));
179566063dSJacob Faibussowitsch PetscCall(DMSetDimension(dm, dim));
189566063dSJacob Faibussowitsch PetscCall(DMSetFromOptions(dm));
199566063dSJacob Faibussowitsch PetscCall(DMSetUp(dm));
209566063dSJacob Faibussowitsch PetscCall(DMDestroy(&dm));
219566063dSJacob Faibussowitsch PetscCall(PetscFinalize());
22b122ec5aSJacob Faibussowitsch return 0;
23c4762a1bSJed Brown }
24c4762a1bSJed Brown
25c4762a1bSJed Brown /*TEST
26c4762a1bSJed Brown
27c4762a1bSJed Brown test:
28c4762a1bSJed Brown suffix: basic_1
29*3886731fSPierre Jolivet output_file: output/empty.out
30c4762a1bSJed Brown
31c4762a1bSJed Brown TEST*/
32