crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Remove unused variables

Browse source
This commit is contained in:
Paul Romano 2018-10-10 07:56:34 -05:00
parent 6ba4d68cb9
commit ab41674527
1 changed files with 0 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/simulation.F90
View file

@ -325,9 +325,6 @@ contains
subroutine finalize_batch()
integer(C_INT) :: err
#ifdef OPENMC_MPI
integer :: mpi_err ! MPI error code
#endif
character(MAX_FILE_LEN) :: filename
interface
@ -477,17 +474,6 @@ contains
integer(C_INT) :: err
integer :: i ! loop index
#ifdef OPENMC_MPI
integer :: n ! size of arrays
integer :: mpi_err ! MPI error code
integer :: count_per_filter ! number of result values for one filter bin
real(8) :: tempr(3) ! temporary array for communication
#ifdef OPENMC_MPIF08
type(MPI_Datatype) :: result_block
#else
integer :: result_block
#endif
#endif
interface
subroutine print_overlap_check() bind(C)