From f704a8a2405978a16c202fbda3c2a21db62b5619 Mon Sep 17 00:00:00 2001 From: Jose Salcedo Perez Date: Thu, 12 Apr 2018 17:51:53 +0000 Subject: [PATCH] commented out lines broadcasting tally results. MPICH bug that causes simulations on ecp-benchmarks to crash. --- src/simulation.F90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/simulation.F90 b/src/simulation.F90 index 8fe4f025c3..83b7ae3ced 100644 --- a/src/simulation.F90 +++ b/src/simulation.F90 @@ -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