mirror of
https://github.com/openmc-dev/openmc.git
synced 2026-07-29 06:35:48 -04:00
deleted "<<<<<<"
This commit is contained in:
parent
5230703779
commit
764478a446
2 changed files with 0 additions and 13 deletions
|
|
@ -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()
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue