deleted "<<<<<<"

This commit is contained in:
Jose Salcedo Perez 2018-03-29 01:55:34 +00:00
parent 5230703779
commit 764478a446
2 changed files with 0 additions and 13 deletions

View file

@ -114,17 +114,10 @@ if(CMAKE_Fortran_COMPILER_ID STREQUAL GNU)
endif()
# GCC compiler options
<<<<<<< HEAD
list(APPEND f90flags -cpp -std=f2008ts -fbacktrace -O2 -g)
if(debug)
list(REMOVE_ITEM f90flags -O2)
list(APPEND f90flags -g -enable-checking -fbacktrace -Wall -Wno-unused-dummy-argument -pedantic
=======
list(APPEND f90flags -cpp -std=f2008ts -fbacktrace -O2 -fstack-arrays)
if(debug)
list(REMOVE_ITEM f90flags -O2 -fstack-arrays)
list(APPEND f90flags -g -Wall -Wno-unused-dummy-argument -pedantic
>>>>>>> 47fbf8282ea94c138f75219bd10fdb31501d3fb7
-fbounds-check -ffpe-trap=invalid,overflow,underflow)
list(APPEND ldflags -g -v -da -Q)
endif()

View file

@ -507,11 +507,6 @@ contains
! Broadcast tally results so that each process has access to results
if (allocated(tallies)) then
do i = 1, size(tallies)
<<<<<<< HEAD
n = size(tallies(i) % obj % results)
call MPI_BCAST(tallies(i) % obj % results, n, MPI_DOUBLE, 0, &
mpi_intracomm, mpi_err)
=======
associate (results => tallies(i) % obj % results)
! 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
@ -524,7 +519,6 @@ contains
call MPI_BCAST(results, n, result_block, 0, mpi_intracomm, mpi_err)
call MPI_TYPE_FREE(result_block, mpi_err)
end associate
>>>>>>> 47fbf8282ea94c138f75219bd10fdb31501d3fb7
end do
end if