12 {
14
15 try {
16
17 moab::Core mb_instance;
18 moab::Interface &moab = mb_instance;
19
21 char mesh_out_file[255] = "out.h5m";
22 PetscBool flg_file = PETSC_FALSE;
23 PetscOptionsBegin(PETSC_COMM_WORLD, "", "none", "none");
24 CHKERR PetscOptionsString(
"-my_file",
"mesh file name",
"",
"mesh.h5m",
26 CHKERR PetscOptionsString(
"-file_name",
"mesh file name",
"",
"mesh.h5m",
28 CHKERR PetscOptionsString(
"-output_file",
"output mesh file name",
"",
29 "out.h5m", mesh_out_file, 255, PETSC_NULLPTR);
30 PetscOptionsEnd();
31
32 const char *option;
33 option = "";
35
36 ParallelComm *pcomm = ParallelComm::get_pcomm(&moab,
MYPCOMM_INDEX);
37 if (pcomm == NULL)
38 pcomm = new ParallelComm(&moab, PETSC_COMM_WORLD);
39
40
43
45
46 CHKERR moab.write_file(mesh_out_file);
47 }
49
51
52 return 0;
53}
#define CATCH_ERRORS
Catch errors.
#define MYPCOMM_INDEX
default communicator number PCOMM
#define CHKERR
Inline error check.
static MoFEMErrorCode Initialize(int *argc, char ***args, const char file[], const char help[])
Initializes the MoFEM database PETSc, MOAB and MPI.
static MoFEMErrorCode Finalize()
Checks for options to be called at the conclusion of the program.
Deprecated interface functions.
Interface for managing meshsets containing materials and boundary conditions.
MoFEMErrorCode getInterface(IFACE *&iface) const
Get interface reference to pointer of interface.