int main(int argc, char **argv) {
int val = 0;
set_global_debug_level_fc(&val);
val = 0;
set_pseudo2d_domain_fc(&val);
#ifdef HAVE_MPI
MPI::Init(argc, argv);
// Undo some MPI init shenanigans
chdir(getenv("PWD"));
#endif
#ifdef HAVE_PETSC
PetscInitialize(&argc, &argv, NULL, PETSC_NULL);
// PetscInitializeFortran needs to be called when initialising PETSc from C, but calling it from Fortran
// This sets all kinds of objects such as PETSC_NULL_OBJECT, PETSC_COMM_WORLD, etc., etc.
PetscInitializeFortran();
#endif
TESTNAME();
#ifdef HAVE_MPI
MPI::Finalize();
#endif
return 0;
}
int main(int argc, char **argv) {
#ifdef HAVE_MPI
MPI::Init(argc, argv);
chdir(getenv("PWD"));
#endif
TESTNAME();
#ifdef HAVE_MPI
MPI::Finalize();
#endif
return 0;
}
int main(int argc, char **argv)
{
int val = 0;
set_global_debug_level_fc(&val);
set_pseudo2d_domain_fc(&val);
#ifdef HAVE_MPI
MPI::Init(argc, argv);
// Undo some MPI init shenanigans
chdir(getenv("PWD"));
#endif
#ifdef HAVE_PETSC
PetscInitialize(&argc, &argv, NULL, PETSC_NULL);
PetscInitializeFortran();
#endif
#ifdef HAVE_PYTHON
// Initialize the Python Interpreter
python_init_();
#endif
TESTNAME();
#ifdef HAVE_PYTHON
// Finalize the Python Interpreter
python_end_();
#endif
#ifdef HAVE_PETSC
PetscFinalize();
#endif
#ifdef HAVE_MPI
MPI::Finalize();
#endif
return 0;
}
static PyObject *
test_longlong_api(PyObject* self, PyObject *args)
{
return TESTNAME(raise_test_longlong_error);
}
