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 PetscErrorCode ierr; 9 DM dm; 10 PetscInt dim; 11 12 ierr = PetscInitialize(&argc,&argv,(char*)0,help);if (ierr) return ierr; 13 dim = 1; 14 ierr = PetscOptionsGetInt(NULL,NULL,"-dim",&dim,NULL);CHKERRQ(ierr); 15 ierr = DMCreate(PETSC_COMM_WORLD,&dm);CHKERRQ(ierr); 16 ierr = DMSetType(dm,DMPRODUCT);CHKERRQ(ierr); 17 ierr = DMSetDimension(dm,dim);CHKERRQ(ierr); 18 ierr = DMSetFromOptions(dm);CHKERRQ(ierr); 19 ierr = DMSetUp(dm);CHKERRQ(ierr); 20 ierr = DMDestroy(&dm);CHKERRQ(ierr); 21 ierr = PetscFinalize(); 22 return ierr; 23 } 24 25 /*TEST 26 27 test: 28 suffix: basic_1 29 30 TEST*/ 31