6 static char help[] =
"...\n\n";
8 int main(
int argc,
char *argv[]) {
15 ParallelComm *pcomm = ParallelComm::get_pcomm(&moab,
MYPCOMM_INDEX);
17 pcomm =
new ParallelComm(&moab, PETSC_COMM_WORLD);
25 char mesh_out_file[255] =
"out.h5m";
29 ierr = PetscOptionsBegin(PETSC_COMM_WORLD,
"",
"none",
"none");
32 CHKERR PetscOptionsString(
"-file_name",
"mesh file name",
"",
"mesh.h5m",
34 CHKERR PetscOptionsString(
"-output_file",
"output mesh file name",
"",
35 mesh_out_file, mesh_out_file, 255, PETSC_NULL);
36 CHKERR PetscOptionsInt(
"-dim",
"mesh dimension",
"", dim, &dim, PETSC_NULL);
39 ierr = PetscOptionsEnd();
42 if (flg_file != PETSC_TRUE)
43 SETERRQ(PETSC_COMM_SELF, 1,
44 "*** ERROR -my_file (-file_name) (MESH FILE NEEDED)");
47 MOFEM_LOG(
"WORLD", Sev::inform) <<
"Out file " << mesh_out_file;
48 MOFEM_LOG(
"WORLD", Sev::inform) <<
"Mesh dimension " << dim;
55 CHKERR moab.get_entities_by_dimension(0, dim, ents);
56 MOFEM_LOG(
"WORLD", Sev::verbose) <<
"Ents:\n" << ents;
58 Skinner skinner(&moab);
59 CHKERR skinner.find_skin(0, ents,
false, skin);
60 MOFEM_LOG(
"WORLD", Sev::verbose) <<
"Skin:\n" << skin;
63 CHKERR moab.create_meshset(MESHSET_SET, set);
64 CHKERR moab.add_entities(set, skin);
66 CHKERR moab.write_file(mesh_out_file,
"MOAB",
"", &set, 1);