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

removed debug information

Browse source
This commit is contained in:
Bryan Herman 2012-08-27 08:40:34 -07:00
parent 65b4cd1885
commit d1e0a5cf80
1 changed files with 0 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/tally.F90
View file

@ -2477,34 +2477,6 @@ contains
end do
! traverse linked list (for debugging right now)
curr_ptr => active_analog_tallies
do while(associated(curr_ptr))
print *, "ANALOG:", analog_tallies(curr_ptr % idx)
curr_ptr => curr_ptr % next
end do
! traverse linked list (for debugging right now)
curr_ptr => active_tracklength_tallies
do while(associated(curr_ptr))
print *, "TRACKLENGTH:", tracklength_tallies(curr_ptr % idx)
curr_ptr => curr_ptr % next
end do
! traverse linked list (for debugging right now)
curr_ptr => active_current_tallies
do while(associated(curr_ptr))
print *, "CURRENT:", current_tallies(curr_ptr % idx)
curr_ptr => curr_ptr % next
end do
! nullify the temporary pointer
if (associated(curr_ptr)) nullify(curr_ptr)