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 dummy in add_tallies.

Browse source
This commit is contained in:
Paul Romano 2013-01-31 00:32:33 -05:00
parent ac67d8e041
commit 139d10097e
3 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmfd_input.F90
View file

@ -318,7 +318,7 @@ contains
call mesh_dict % add_key(m % id, n_user_meshes + 1)
! allocate tallies
call add_tallies(cmfd_tallies, n_cmfd_tallies, i_cmfd_tallies)
call add_tallies(n_cmfd_tallies, i_cmfd_tallies)
! begin loop around tallies
do i = 1, n_cmfd_tallies

2
src/input_xml.F90
View file

@ -1292,7 +1292,7 @@ contains
! Allocate tally array
if (n_user_tallies > 0) then
call add_tallies(user_tallies, n_user_tallies, i_user_tallies)
call add_tallies(n_user_tallies, i_user_tallies)
end if
! Check for <assume_separate> setting

3
src/tally_initialize.F90
View file

@ -162,9 +162,8 @@ contains
! tallies, etc.
!===============================================================================
subroutine add_tallies(t, n, i_tally)
subroutine add_tallies(n, i_tally)
type(TallyObject), pointer :: t(:) ! pointer to tally group
integer, intent(in) :: n ! number of tallies to add
integer, intent(out) :: i_tally ! index of tally group