gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MPITOOLS: Fix compilation without MPI.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2020-08-14 21:54:46 -03:00
parent c15378bddd
commit 5a04b17ab3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sources/mpitools.F90
View File

@ -44,6 +44,7 @@ module mpitools
! subroutine interfaces ! subroutine interfaces
! !
#ifdef MPI
interface reduce_minimum interface reduce_minimum
module procedure reduce_minimum_double_array module procedure reduce_minimum_double_array
end interface end interface
@ -57,6 +58,7 @@ module mpitools
module procedure reduce_sum_double_array module procedure reduce_sum_double_array
module procedure reduce_sum_complex_array module procedure reduce_sum_complex_array
end interface end interface
#endif /* MPI */
! timer indices ! timer indices
! !
@ -82,9 +84,11 @@ module mpitools
! !
public :: initialize_mpitools, finalize_mpitools public :: initialize_mpitools, finalize_mpitools
public :: check_status public :: check_status
#ifdef MPI
public :: reduce_minimum, reduce_maximum, reduce_sum public :: reduce_minimum, reduce_maximum, reduce_sum
public :: send_array, receive_array public :: send_array, receive_array
public :: exchange_arrays public :: exchange_arrays
#endif /* MPI */
! declare public variables ! declare public variables
! !