Commit f13327e4 authored by Andreas Marek's avatar Andreas Marek

WIP

parent e9d0b2a6
......@@ -1262,7 +1262,7 @@ AC_CONFIG_FILES([
m4_include([m4/ax_fc_check_define.m4])
AC_MSG_CHECKING([if workaround for broken preprocessor is needed])
need_manual_cpp=no
need_manual_cpp=yes
AX_FC_CHECK_DEFINE([__INTEL_COMPILER],[is_intel=yes],[])
AX_FC_CHECK_DEFINE([__PGI],[is_pgi=yes],[])
ACTUAL_FC="$FC"
......
......@@ -1287,12 +1287,11 @@ module elpa_impl
#ifdef USE_FORTRAN2008
if (present(error)) then
error = ELPA_ERROR_CRITICAL
return
endif
#else
error = ELPA_OK
return
#endif
return
#endif /* HAVE_DETAILED_TIMINGS */
#ifdef WITH_MPI
......@@ -1300,17 +1299,16 @@ module elpa_impl
call self%get("mpi_comm_parent", mpi_comm_parent, error2)
call self%get("num_processes", np_total, error3)
if ((error2 .ne. ELPA_OK) .or. (error3 .ne. ELPA_OK)) then
print *, "Parrent communicator is not set properly. Aborting..."
print *, "Parent communicator is not set properly. Aborting..."
#ifdef USE_FORTRAN2008
if (present(error)) &
error = ELPA_ERROR_CRITICAL
return
endif
#else
error = ELPA_ERROR_CRITICAL
return
#endif
endif
return
endif
sendbuf(1) = time_spent
call MPI_Allreduce(sendbuf, recvbuf, 1, MPI_REAL8, MPI_SUM, mpi_comm_parent, mpierr)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment