1 static char help[] = "Test basic DMProduct operations.\n\n"; 2 3 #include <petscdm.h> 4 #include <petscdmproduct.h> 5 6 int main(int argc,char **argv) 7 { 8 DM dm; 9 PetscInt dim; 10 11 PetscCall(PetscInitialize(&argc,&argv,(char*)0,help)); 12 dim = 1; 13 PetscCall(PetscOptionsGetInt(NULL,NULL,"-dim",&dim,NULL)); 14 PetscCall(DMCreate(PETSC_COMM_WORLD,&dm)); 15 PetscCall(DMSetType(dm,DMPRODUCT)); 16 PetscCall(DMSetDimension(dm,dim)); 17 PetscCall(DMSetFromOptions(dm)); 18 PetscCall(DMSetUp(dm)); 19 PetscCall(DMDestroy(&dm)); 20 PetscCall(PetscFinalize()); 21 return 0; 22 } 23 24 /*TEST 25 26 test: 27 suffix: basic_1 28 29 TEST*/ 30