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

commented out lines broadcasting tally results.

Browse source 
MPICH bug that causes simulations on ecp-benchmarks to crash.
This commit is contained in:
Jose Salcedo Perez 2018-04-12 17:51:53 +00:00
parent 17b2cd6c65
commit f704a8a240
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/simulation.F90
View file

@ -511,13 +511,13 @@ contains
! Create a new datatype that consists of all values for a given filter
! bin and then use that to broadcast. This is done to minimize the
! chance of the 'count' argument of MPI_BCAST exceeding 2**31
n = size(results, 3)
count_per_filter = size(results, 1) * size(results, 2)
call MPI_TYPE_CONTIGUOUS(count_per_filter, MPI_DOUBLE, &
result_block, mpi_err)
call MPI_TYPE_COMMIT(result_block, mpi_err)
call MPI_BCAST(results, n, result_block, 0, mpi_intracomm, mpi_err)
call MPI_TYPE_FREE(result_block, mpi_err)
!n = size(results, 3)
!count_per_filter = size(results, 1) * size(results, 2)
!call MPI_TYPE_CONTIGUOUS(count_per_filter, MPI_DOUBLE, &
! result_block, mpi_err)
!call MPI_TYPE_COMMIT(result_block, mpi_err)
!call MPI_BCAST(results, n, result_block, 0, mpi_intracomm, mpi_err)
!call MPI_TYPE_FREE(result_block, mpi_err)
end associate
end do
end if