85 static PetscErrorCode CreateConcreteMesh(DMPlexTransform tr, DM *rdm)  in CreateConcreteMesh()  argument
91   PetscCall(DMPlexTransformApply(tr, cdm, rdm));  in CreateConcreteMesh()
92   PetscCall(DMSetCoarsenLevel(*rdm, cdm->leveldown));  in CreateConcreteMesh()
93   PetscCall(DMSetRefineLevel(*rdm, cdm->levelup + 1));  in CreateConcreteMesh()
94   PetscCall(DMCopyDisc(cdm, *rdm));  in CreateConcreteMesh()
96   PetscCall(DMGetCoordinateDM(*rdm, &rcodm));  in CreateConcreteMesh()
98   PetscCall(DMPlexTransformCreateDiscLabels(tr, *rdm));  in CreateConcreteMesh()
99   PetscCall(DMSetCoarseDM(*rdm, cdm));  in CreateConcreteMesh()
100   PetscCall(DMPlexSetRegularRefinement(*rdm, PETSC_TRUE));  in CreateConcreteMesh()
101   if (rdm) {  in CreateConcreteMesh()
102     ((DM_Plex *)(*rdm)->data)->printFEM = ((DM_Plex *)cdm->data)->printFEM;  in CreateConcreteMesh()
103     ((DM_Plex *)(*rdm)->data)->printL2  = ((DM_Plex *)cdm->data)->printL2;  in CreateConcreteMesh()
105   PetscCall(PetscObjectSetName((PetscObject)*rdm, "Concrete Mesh"));  in CreateConcreteMesh()
106   PetscCall(PetscObjectSetOptionsPrefix((PetscObject)*rdm, "ref_"));  in CreateConcreteMesh()
144   DM              dm, tdm, rdm;  in main()  local
156   PetscCall(CreateConcreteMesh(tr, &rdm));  in main()
161     PetscCall(DMViewFromOptions(rdm, NULL, "-dm_sec_view"));  in main()
163     if (user.concrete) PetscCall(CreateTransform(rdm, user.active, "second_", &tr2));  in main()
168     PetscCall(DMDestroy(&rdm));  in main()
171     rdm = rdm2;  in main()
174   PetscCall(DMViewFromOptions(rdm, NULL, "-dm_view"));  in main()
175   PetscCall(CompareMeshes(rdm, tdm, dm));  in main()
178   PetscCall(DMDestroy(&rdm));  in main()