From e8423ceca4d7670e36c39dffd364240758e2354f Mon Sep 17 00:00:00 2001 From: Jose Salcedo Perez Date: Sun, 21 Jan 2018 19:46:55 +0000 Subject: [PATCH] single-threaded original exec with tally-opts --- CMakeLists.txt | 8 ++++---- src/simulation.F90 | 6 +++--- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index c5150745b..f0395d69f 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -30,7 +30,7 @@ endif() # Command line options #=============================================================================== -option(openmp "Enable shared-memory parallelism with OpenMP" ON) +option(openmp "Enable shared-memory parallelism with OpenMP" OFF) option(profile "Compile with profiling flags" OFF) option(debug "Compile with debug flags" OFF) option(optimize "Turn on all compiler optimization flags" OFF) @@ -116,12 +116,12 @@ if(CMAKE_Fortran_COMPILER_ID STREQUAL GNU) endif() # GCC compiler options - list(APPEND f90flags -cpp -std=f2008ts -fbacktrace -O2) + list(APPEND f90flags -cpp -std=f2008ts -fbacktrace -O2 -fstack-arrays -g) if(debug) list(REMOVE_ITEM f90flags -O2) - list(APPEND f90flags -g -Wall -Wno-unused-dummy-argument -pedantic + list(APPEND f90flags -g -enable-checking -fbacktrace -Wall -Wno-unused-dummy-argument -pedantic -fbounds-check -ffpe-trap=invalid,overflow,underflow) - list(APPEND ldflags -g) + list(APPEND ldflags -g -v -da -Q) endif() if(profile) list(APPEND f90flags -pg) diff --git a/src/simulation.F90 b/src/simulation.F90 index ef29e7832..e86ea960f 100644 --- a/src/simulation.F90 +++ b/src/simulation.F90 @@ -498,9 +498,9 @@ contains ! Broadcast tally results so that each process has access to results if (allocated(tallies)) then do i = 1, size(tallies) - n = size(tallies(i) % obj % results) - call MPI_BCAST(tallies(i) % obj % results, n, MPI_DOUBLE, 0, & - mpi_intracomm, mpi_err) + !n = size(tallies(i) % obj % results) + !call MPI_BCAST(tallies(i) % obj % results, n, MPI_DOUBLE, 0, & + ! mpi_intracomm, mpi_err) end do end if