crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 05:35:49 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update ifdef for MPI F08

Browse source
This commit is contained in:
Paul Romano 2018-02-03 12:38:01 -06:00
parent 9245228d2f
commit cb076c8e4f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/simulation.F90
View file

@ -475,7 +475,7 @@ contains
integer :: count_per_filter ! number of result values for one filter bin
integer(8) :: temp
real(8) :: tempr(3) ! temporary array for communication
#ifdef MPIF08
#ifdef OPENMC_MPIF08
type(MPI_Datatype) :: result_block
#else
integer :: result_block