Actual source code: ex49.c

  1: static char help[] = "Test basic DMProduct operations.\n\n";

  3: #include <petscdm.h>
  4: #include <petscdmproduct.h>

  6: int main(int argc, char **argv)
  7: {
  8:   DM       dm;
  9:   PetscInt dim;

 11:   PetscFunctionBeginUser;
 12:   PetscCall(PetscInitialize(&argc, &argv, (char *)0, help));
 13:   dim = 1;
 14:   PetscCall(PetscOptionsGetInt(NULL, NULL, "-dim", &dim, NULL));
 15:   PetscCall(DMCreate(PETSC_COMM_WORLD, &dm));
 16:   PetscCall(DMSetType(dm, DMPRODUCT));
 17:   PetscCall(DMSetDimension(dm, dim));
 18:   PetscCall(DMSetFromOptions(dm));
 19:   PetscCall(DMSetUp(dm));
 20:   PetscCall(DMDestroy(&dm));
 21:   PetscCall(PetscFinalize());
 22:   return 0;
 23: }

 25: /*TEST

 27:    test:
 28:       suffix: basic_1

 30: TEST*/