Commit 005977f7 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Fix dubious re-export of MPI symbol.

parent 72fd26d1
......@@ -42,8 +42,13 @@ MODULE linear_algebra
USE solver_internal, ONLY: config
USE ppm_std_type_kinds, ONLY: sp, dp
USE ppm_extents, ONLY: extent, extent_start, extent_end
#if defined USE_MPI_MOD
USE mpi
#endif
IMPLICIT NONE
#if defined USE_MPI && ! defined USE_MPI_MOD
INCLUDE 'mpif.h'
#endif
PRIVATE
......@@ -113,7 +118,8 @@ MODULE linear_algebra
PUBLIC :: calc_abs_res, calc_rel_res, arr_dotproduct, global_sum, arr_norm_2
#if defined __GNUC__ && __GNUC__ > 4
#if defined __GNUC__ && __GNUC__ > 4 \
&& defined USE_MPI && ! defined USE_MPI_MOD
INTERFACE
SUBROUTINE mpi_allreduce(sendbuf, recvbuf, count, datatype, op, comm, &
ierror)
......
......@@ -116,7 +116,6 @@ END FUNCTION ARR_NORM_2
! Sums a variable globally up
FUNCTION GLOBAL_SUM(summand, comm_opt) RESULT(all_sum)
#ifdef USE_MPI
USE solver_internal, ONLY: MPI_SUM
USE ppm_std_type_kinds_mp, ONLY: PREC_MPI_DT
USE ppm_base, ONLY: ppm_default_comm
#endif
......
......@@ -173,9 +173,6 @@ MODULE solver_internal
PUBLIC :: stencil_type_sp, stencil_type_dp, solver_config_type, stencil_sp, &
stencil_dp, config, int2str, abort_unless_normal, clear_halos
#ifdef USE_MPI
PUBLIC :: mpi_sum
#endif
CONTAINS
......
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