20 {
21
24 PetscOptionsBegin(PETSC_COMM_WORLD, "",
25 "Get analytical boundary conditions options", "none");
27 ierr = PetscOptionsScalar(
"-analytical_alpha",
"crack angle",
"",
aLpha,
30 PetscBool flg;
31 double fraction = 1;
32 ierr = PetscOptionsScalar(
33 "-analytical_alpha_fraction_pi",
34 "crack angle given as fraction of Pi aLpha = M_PI/fraction", "",
35 fraction, &fraction, &flg);
37 if (flg == PETSC_TRUE) {
38 aLpha = M_PI / fraction;
39 }
40 ierr = PetscOptionsEnd();
44 }
static PetscErrorCode ierr
#define MoFEMFunctionReturnHot(a)
Last executable line of each PETSc function used for error handling. Replaces return()
#define MoFEMFunctionBeginHot
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...