1b7f5c055SJed Brown static char help[] = "Create a Plex Schwarz P surface with quads\n\n"; 2b7f5c055SJed Brown 3b7f5c055SJed Brown #include <petscdmplex.h> 4b7f5c055SJed Brown 5b7f5c055SJed Brown int main(int argc, char **argv) 6b7f5c055SJed Brown { 7b7f5c055SJed Brown DM dm; 8b7f5c055SJed Brown PetscInt extent[3] = {1,1,1}, refine = 0, layers = 0, three; 9b7f5c055SJed Brown PetscReal thickness = 0.; 101436d7faSJed Brown PetscBool distribute = PETSC_TRUE; 11b7f5c055SJed Brown DMBoundaryType periodic[3] = {DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DM_BOUNDARY_NONE}; 12b7f5c055SJed Brown DMPlexTPSType tps_type = DMPLEX_TPS_SCHWARZ_P; 13b7f5c055SJed Brown PetscErrorCode ierr; 14b7f5c055SJed Brown 15b7f5c055SJed Brown ierr = PetscInitialize(&argc, &argv, NULL,help);if (ierr) return ierr; 16b7f5c055SJed Brown ierr = PetscOptionsBegin(PETSC_COMM_WORLD, NULL, "Schwarz P Example", NULL);CHKERRQ(ierr); 17*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsIntArray("-extent", "Number of replicas for each of three dimensions", NULL, extent, (three=3, &three), NULL)); 18*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsInt("-refine", "Number of refinements", NULL, refine, &refine, NULL)); 19*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsEnumArray("-periodic", "Periodicity in each of three dimensions", NULL, DMBoundaryTypes, (PetscEnum*)periodic, (three=3, &three), NULL)); 20*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsBool("-distribute", "Distribute TPS manifold prior to refinement and extrusion", NULL, distribute, &distribute, NULL)); 21*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsInt("-layers", "Number of layers in volumetric extrusion (or zero to not extrude)", NULL, layers, &layers, NULL)); 22*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsReal("-thickness", "Thickness of volumetric extrusion", NULL, thickness, &thickness, NULL)); 23*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsEnum("-tps_type", "Type of triply-periodic surface", NULL, DMPlexTPSTypes, (PetscEnum)tps_type, (PetscEnum*)&tps_type, NULL)); 24b7f5c055SJed Brown ierr = PetscOptionsEnd();CHKERRQ(ierr); 25*5f80ce2aSJacob Faibussowitsch CHKERRQ(DMPlexCreateTPSMesh(PETSC_COMM_WORLD, tps_type, extent, periodic, distribute, refine, layers, thickness, &dm)); 26*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscObjectSetName((PetscObject)dm, "TPS")); 27*5f80ce2aSJacob Faibussowitsch CHKERRQ(DMViewFromOptions(dm, NULL, "-dm_view")); 28*5f80ce2aSJacob Faibussowitsch CHKERRQ(DMDestroy(&dm)); 29b7f5c055SJed Brown ierr = PetscFinalize(); 30b7f5c055SJed Brown return ierr; 31b7f5c055SJed Brown } 32b7f5c055SJed Brown 33b7f5c055SJed Brown /*TEST 34b7f5c055SJed Brown 35b7f5c055SJed Brown test: 36b7f5c055SJed Brown suffix: 0 37b7f5c055SJed Brown args: -extent 1,2,3 -dm_view -refine 0 38b7f5c055SJed Brown test: 39b7f5c055SJed Brown suffix: 1 40b7f5c055SJed Brown args: -extent 2,3,1 -dm_view -refine 1 41b7f5c055SJed Brown 42b7f5c055SJed Brown test: 43b7f5c055SJed Brown suffix: gyroid_0 44b7f5c055SJed Brown args: -extent 1,2,3 -dm_view -refine 0 -tps_type gyroid 45b7f5c055SJed Brown test: 46b7f5c055SJed Brown suffix: gyroid_1 47b7f5c055SJed Brown args: -extent 2,3,1 -dm_view -refine 1 -tps_type gyroid 48b7f5c055SJed Brown test: 49b7f5c055SJed Brown suffix: extrude_0 50b7f5c055SJed Brown args: -extent 2,3,1 -dm_view -refine 0 -layers 3 -thickness .2 511436d7faSJed Brown test: 521436d7faSJed Brown suffix: extrude_1_dist 531436d7faSJed Brown nsize: 2 541436d7faSJed Brown args: -extent 2,1,1 -dm_view -refine 1 -layers 3 -thickness .2 55b7f5c055SJed Brown 56b7f5c055SJed Brown TEST*/ 57